[已解决]程序执行错误求助

ygy147258

sheet1.range("a1").Copy  sheet2.Range("A" & .[A65536].End(xlUp).Row + 1)

为什么执行以上语句时，在sheet2工作表中最上面还要空一行？

最佳答案

月排行榜 / 总排行榜

zjdh

2011-11-26 10:14

1.  你的这句语句有问题，应该是：
    Sheet1.Range("a1").Copy Sheet2.Range("A" & Sheet2.[A65536].End(xlUp).Row + 1)
2.  Sheet2.[A65536].End(xlUp).Row  至少为“1”，当Sheet2为空表时，以上语句就是复制到A2了，所以应该插一句判断来排除。

跳转到最佳答案楼层

zjdh

1.  你的这句语句有问题，应该是：
    Sheet1.Range("a1").Copy Sheet2.Range("A" & Sheet2.[A65536].End(xlUp).Row + 1)
2.  Sheet2.[A65536].End(xlUp).Row  至少为“1”，当Sheet2为空表时，以上语句就是复制到A2了，所以应该插一句判断来排除。