Question

我正在尝试使用VBA将一大堆行复制到存档中。（VBA noob在这里）。我有两张纸，一张叫Active，还有Archive。在活动中，我有一个名为Job Number的列，这是其他数据的基础。我需要复制作业号不为空的所有行，并将每一行分别复制到我的存档表，其中有一行空行。然后清除作业号单元格。

到底是我到目前为止。基本上我需要获取列e中具有非空单元格的所有行。（我试图计算行直到最后的非空记录 - ＆gt; NumRows）也在Archive（lr2）中找到最后一个非空变量的位置然后我尝试了一个for循环复制，但它没有做任何事情。任何帮助都是极好的。

Sub Archiver()
Dim lr As Long, lr2 As Long, r As Long, NumRows As Integer
lr2 = Sheets("Archive").Cells(Rows.Count, "E").End(xlUp).Row
NumRows = Range("A1", Range("A1").End(xlDown)).Rows.Count
For r = 5 To NumRows
    Rows(r).Copy Destination:=Sheets("Archive").Range("A" & lr2 + 1)
    lr2 = Sheets("Archive").Cells(Rows.Count, "E").End(xlUp).Row
Next r
End Sub

Answer 1

试试这个：

myCol.Cells

Excel VBA行复制到存档中

1 个答案: