从第二行复制一列数据，直到其中有数据的最后一行，并将其作为最后一行粘贴到另一张纸上的VBA中

Question

我正在研究VBA代码，以将数据从第二个单元格“ A2”复制到包含数据的最后一个单元格（此范围将更改）。然后，我想将数据从另一列的A列的最后一行开始粘贴。

到目前为止，我的VBA代码似乎无能为力。有人可以帮我找出原因吗？

Option Explicit

Public Sub AddNotes()

Dim lastRow1 As String
Dim lastRow2 As String

lastRow1 = Sheets("PropertiesToMatch").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("PropertiesToMatch").Range("A2" & lastRow1).Copy

lastRow2 = Sheets("PropertyNotesToUpload").Cells(Rows.Count, "A").End(xlUp).Row + 1
Sheets("PropertyNotesToUpload").Range("A" & lastRow2).PasteSpecial Paste:=xlPasteValues

End Sub

Answer 1

更改

.Range("A2" & lastRow1)

to

.Range("A2:A" & lastRow1)

第一个只是one单元格，第二个是您想要的范围。

也可以更改

Dim lastRow1 As String
Dim lastRow2 As String

to

Dim lastRow1 As Long
Dim lastRow2 As Long

因为Range.Row是Range.Row，而不是Long。

Answer 2

String