將第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