复制一个variables开始的列

这是我的：

而我的问题很简单：我想复制所有行在工作表2中的“维护”（C8）下，但是我希望它工作，即使我们删除了“维护”（C8）上面的一些行。

例如：

因为它改变了副本的开始。 （从8到结束，5到结束）

这是我的代码：

n = 8 j = 2 Sheets("1").Select Do While Cells(n, 1) <> "x" If Cells(n, 1) <> "x" Then Sheets("2").Cells(j, 2) = Sheets("1").Cells(n, 2) Sheets("2").Cells(j, 3) = Sheets("1").Cells(n, 3) j = j + 1 End If n = n + 1 Loop 

Answer 1

使用Range.Find()方法来查找“维护”的起始位置，然后将数据拉到下面，直到任何条件定义数据的结尾（空单元格或新的类别名称）

对于OP的代码：

 n = Sheets("1").UsedRange.Find("Maintenance",LookAt:=xlWhole).Row