粘贴到最后一个空行

Question

我的代码尝试将“粘贴到列中的最后一个可用行”生成一个“应用程序定义的错误或对象定义的错误”。

sub pastelastrow()

Dim Dec18 As Worksheet
Dim wb As Workbook
Dim a As Long
Dim Template As Worksheet

Set wb = ThisWorkbook
Set Dec18 = wb.Sheets("Dec18")
Set Template = wb.Sheets("Template")

a = Dec18.Range("A" & Rows.Count).End(xlUp).Row

Dec18.Range("A1:C" & a).Copy_ 
Destination:=Template.Range("B1").End(xlDown).Offset(1, 0)

end sub

Answer 1

像这样改变。

Destination:=Template.Range("B" & rows.count).End(xlUp).Offset(1, 0)