[已解决]急救：复制最后50行的代码！

徐淑颖

我现在想把sheet2的最后50行的A-F列的内容复制到SHEET1的B1-G50 ;求代码，因为SHEET2的工作行数是会变化的{:091:}

最佳答案

月排行榜 / 总排行榜

小我

2011-5-25 09:36

sub 复制()
arow = Sheets(2).Range("a65536").End(3).Row
sheets(2).Cells(arow - 49, 1).Resize(50, 6).Copy Sheets(1).Range("b1")
end sub

跳转到最佳答案楼层

小我

sub 复制()
arow = Sheets(2).Range("a65536").End(3).Row
sheets(2).Cells(arow - 49, 1).Resize(50, 6).Copy Sheets(1).Range("b1")
end sub

徐淑颖

回复 小我 的帖子

试试，能顺便帮我解释下吗？笑我{:011:}

小我

回复 徐淑颖 的帖子

第一行取A列最后非空的行号
第二行是复制

徐淑颖

回复 小我 的帖子

懂了，不过AROW不用定义吗？

小我

回复 徐淑颖 的帖子

最好定义，不过有时不定义也能用，定义了效率会高一点

徐淑颖

回复 小我 的帖子

{:101:}谢谢，问题基本解决了！

小我

{:011:}{:011:}