sheets(1).activate
sheets(1).range("A:C").copy
sheets(2).activate
sheets(2).cells(1,1).select
sheets(2).paste
如果上面的不行就录制一下宏、然后修改代码。。。
你要复制的 内容 与方式 还有 粘贴的位置 不够清楚 你要这些引用位置 显示在什么地方?
这些都没有说清楚啊……
你可以 录制一段 你按着你的想法 所做的一系列操作 然后看 那些代码 ……就是你要的vba 代码……
给你最简单的代码:
假设复制的列是:sheet1表A列
粘贴的地方时:sheet2表B列
Worksheets("sheet1").Columns("A:A").Copy
Worksheets("sheet2").Select
Worksheets("sheet2").Range("B1").Select
ActiveSheet.Paste