Excel 宏将某些列从一个工作表复制到另一个工作表。细罐头'；不要让它从第2页的第4行而不是第2行粘贴

宏将某些列从一张图纸复制到另一张图纸。我无法将它从第2页的第4行粘贴到第2行

Sub CopyPaste()
Dim lastrow As Integer, erow As Long, sheet1 As Worksheet, sheet2 As Worksheet
Set sheet1 = Worksheets("Sheet1")
Set sheet2 = Worksheets("Sheet2")
lastrow = sheet1.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
    erow = sheet2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
    sheet2.Cells(erow, 2) = sheet1.Cells(i, 3)
    sheet2.Cells(erow, 3) = sheet1.Cells(i, 4)
    sheet2.Cells(erow, 4) = sheet1.Cells(i, 9)
Next i
End Sub

---

跳过循环并将整个范围指定为一个：

Sub CopyPaste()
    Dim sheet1 As Worksheet
    Set sheet1 = Worksheets("Sheet1")
    
    Dim sheet2 As Worksheet
    Set sheet2 = Worksheets("Sheet2")
    
    Dim lastrow As Long
    lastrow = sheet1.Cells(Rows.Count, 1).End(xlUp).Row
    
    Dim erow As Long
    erow = sheet2.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
    
    sheet2.Cells(erow, 2).Resize(lastrow - 1).Value = sheet1.Cells(2, 3).Resize(lastrow - 1).Value
    sheet2.Cells(erow, 3).Resize(lastrow - 1).Value = sheet1.Cells(2, 4).Resize(lastrow - 1).Value
    sheet2.Cells(erow, 4).Resize(lastrow - 1).Value = sheet1.Cells(2, 9).Resize(lastrow - 1).Value
End Sub

---

跳过循环：

Sheet2.Cells（erow，2）。Resize（lastrow-1）。Value=sheet1.Cells（2,3）。Resize（lastrow-1）。Value

我不明白。没用，很好，谢谢！