vba如何在like语句后接上多个词语

vba如何在like语句后接上多个词语

If Sheet1.Cells(i, 4) Like "*自来水*" Or "*水的生产*" Or "*公共制水*" Or "*公共供水*" Then

改成：
If Sheet1.Cells(i, 4) Like "*自来水*" Or Sheet1.Cells(i, 4) Like "*水的生产*" Or Sheet1.Cells(i, 4) Like "*公共制水*" Or Sheet1.Cells(i, 4) Like "*公共供水*" Then追问你好，我想问下vba如何一段语句复制多行数据？我知道单行复制是
Sheet1.Rows(i).Copy
Sheet2.Rows(j).Insert
Application.CutCopyMode = False
这次我需要连续复制3行，总不能连写3遍吧...我在精简语句上有点强迫症，希望能帮帮忙。
我是想知道能不能像
Sheet1.Rows(i,j,k).Copy
Sheet2.Rows(i,j,k).Insert
Application.CutCopyMode = False
这样写（目测不行...）或者类似的写法追答Range("11:11,14:14,17:17").copy

看看上面的代码，你可以自己改了吧？追问懂了！多谢！