将数据从一张纸复制到另一张纸的最后一行

Question

I'm trying to make something in Excel work, but I cannot. I have 2 Sheets Sheet 1 is the "main sheet" Sheet 2 has a filter. I want 2 filtered columns to be copied to the main sheet and pasted at the end of the already existing content.

Answer 1

Try this - you will need to update the ranges/sheet names as required.

Sub CopyDataLastRow()

Dim wsCopy As Worksheet
Dim wsDest As Worksheet
Dim CopyLastRow As Long
Dim DestLastRow As Long

'Set Variables
Set wsCopy = Sheets("Sheet1") 'Update your sheet name as required.
Set wsDest = Sheets("Sheet2") 'Update your sheet name as required.
   
'Find Last Row in Copy Range
CopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row

'Find 1st blank row in Destination Range - Offset 1 row
DestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row

'Copy & Paste Data
wsCopy.Range("A2:B" & CopyLastRow).Copy _
wsDest.Range("A" & DestLastRow)

End Sub