新手求助! 从一个表复制一列数据到另一个表 VBA代码怎么写

zhangmi2430

一个文件里面有两张表格sheet1,sheet2 我要复制sheet2表格中的D列的第二条数据D2到数据尾（自动判断数据有多少）到sheet1表格，并且判断sheet1表格的A列是否有数据，如果有自动粘贴到B2，以此类推。自己写了一个，可是老是出错，请大大们帮忙指正下：

Sub test()

Dim r1%, r2%

r1 = Sheets("sheet2").Cells(.Rows.Count, 4).End(xlUp).Row

r2 = Sheets("sheet1").Cells(2, .Columns.Count).End(xlToLeft).Column

Sheets("sheet2").Range("D2" & ":" & "D" & r1).Copy _
    Sheets("sheet1").Cells(2, r2 + 1)

End Sub

zhangmi2430

发错板块啦，麻烦群主帮我移一下