启动循环或不迭代。 继续进行VBA

我试图循环通过一个单元格范围，并删除整个行，如果一个单元格不匹配某种模式。 由于删除行跳过一个迭代步骤，我试图使用“继续”，所以我会删除一行，而不是移动到下一个单元格，但重新运行相同的单元格值不跳过一行。 不幸的是继续似乎没有被认可。 （不知道包括什么参考）这是我在做什么：

Set Values = Sheets("A").Range(Sheets("A").Cells(2, 1), Sheets("A").Cells(2, 1).End(xlDown)) For Each Cell In Values If Not Cell.Value Like "*pattern*" Then Cell.EntireRow.Delete Continue For End If Next Cell 

任何想法如何使这项工作？

Answer 1

 Dim x as long Set Values = Sheets("A").Range(Sheets("A").Cells(2, 1), _ Sheets("A").Cells(2, 1).End(xlDown)) For x = Values.cells.count to 1 step -1 With Values.Cells(x) If Not .Value Like "*pattern*" Then .EntireRow.Delete End With Next x