将第n行复制并粘贴到其他表格（mod）

Question

我有此代码（工作）。

Sub Copy_Ten() 
Dim X As Long, LastRow As Long 
Dim CopyRange As Range 
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row 
For X = 1 To LastRow Step 4 
    If CopyRange Is Nothing Then 
     Set CopyRange = Rows(X).EntireRow 
    Else 
     Set CopyRange = Union(CopyRange, Rows(X).EntireRow) 
    End If 
Next 
If Not CopyRange Is Nothing Then 
CopyRange.Copy Destination:=Sheets("Sheet2").Range("A1") 
End If 
End Sub 

在工作表2上始终从A1开始。我希望它能够继续寻找下一个空间。

我的代码是Range("A1").End(xldown).Select但是我不知道该把它放在哪里。

因此，最终表2不会在第一次从A1开始......因为会有越来越多的列表。

Answer 1

您可以使用代码，但它包装在一个与功能，像这样

With Sheets("Sheet2") 
    lastRow2 = .Cells(.Rows.Count, "A").End(xlUp).Row 
End With 

然后改变

CopyRange.Copy Destination:=Sheets("Sheet2").Range("A1") 

要

CopyRange.Copy Destination:=Sheets("Sheet2").Range("A" & lastRow2) 

为了使这更清楚一点尝试以下

Sub Copy_Ten() 
    Dim X As Long, LastRow As Long, PasteRow As Long 
    Dim CopyRange As Range 
    LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row 
    With Sheets("Sheet2") 
     PasteRow = .Cells(.Rows.Count, "A").End(xlUp).Row 
    End With 
    For X = 1 To LastRow Step 4 
     If CopyRange Is Nothing Then 
      Set CopyRange = Rows(X).EntireRow 
     Else 
      Set CopyRange = Union(CopyRange, Rows(X).EntireRow) 
     End If 
    Next 
    If Not CopyRange Is Nothing Then 
     CopyRange.Copy Destination:=Sheets("Sheet2").Range("A" & PasteRow) 
    End If 
End Sub