复制具有变量start的列

Question

这就是我所拥有的：

我的问题很简单：我想复制工作表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