[已解决]请用vba复制单元格区域至指定表区域

心灵有约 · 发表于 2011-5-9 09:47

复制至指定表.rar (36.98 KB, 下载次数: 488)

小我 · 发表于 2011-5-9 10:06

最好用2003年做附件，多人用2003的

徐淑颖 · 发表于 2011-5-9 10:46

{:101:}这个我刚好知道，我也用2003

心灵有约 · 发表于 2011-5-9 13:31

回复小我的帖子

好的。现在为2003版的了。

复制至指定表.rar (22.34 KB, 下载次数: 279)

sunjing-zxl · 发表于 2011-5-9 13:51

这个最佳答案由 sunjing-zxl 给出，感谢 sunjing-zxl 的回答。

单击隐藏图章

回复心灵有约的帖子

Sub 复制()
Range("A2:D" & [A65536].End(xlUp).Row).Copy Sheets("计算表").Range("F3")
End Sub

复制代码

sh790512 · 发表于 2011-5-9 14:31

本帖最后由 sh790512 于 2011-5-9 14:35 编辑

Sub Macro1()
With Sheets("整理表")
i = .Range("b65536").End(xlUp).Row
End With
Range(Cells(1, 1), Cells(i, 4)).Select
Selection.Copy


   Sheets("计算表").Range("F3“).Select

      ActiveSheet.Paste
End Sub

小我 · 发表于 2011-5-9 14:35

Sheets("整理表").Range("a2").CurrentRegion.Offset(1, 0).Copy Sheets("计算表").Range("f3")

心灵有约 · 发表于 2011-5-11 13:58

sh790512 发表于 2011-5-9 14:31
Sub Macro1()
With Sheets("整理表")
i = .Range("b65536").End(xlUp).Row

谢谢。运行至第六句时好像出了错。

心灵有约 · 发表于 2011-5-11 13:59

小我发表于 2011-5-9 14:35
Sheets("整理表").Range("a2").CurrentRegion.Offset(1, 0).Copy Sheets("计算表").Range("f3")

谢谢。结果正确。

ls · 发表于 2011-5-29 21:35

学习。。。。。。。。。。。。。。。

		自动登录	找回密码
密码			注册