在将现有条目相互比较后,如何将数据行从一个工作表添加到另一个工作表?我试过这样做,但唯一的问题是有重复的条目被添加到其中。
For Each Cell1 In Worksheets(1).Range("A1", Worksheets(1).Range("A1").End(xlDown))
For Each Cell3 In Worksheets(3).Range("A1", Worksheets(3).Range("A1").End(xlDown))
If Not Cell1 = Cell3 Then
Dim LastRow3 As Long
LastRow3 = Worksheets(3).Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1
Worksheets(3).Range("A1:C1").Rows(LastRow3).Value = Worksheets(1).Range("A1:C1").Rows(Cell1.Row).Value
Else
Exit For
End If
Next Cell3
Next Cell1