Excel 将粘贴从第1页复制到第2页
我不知道这件事,所以非常感谢你的帮助。需要有关编写脚本的帮助,该脚本将复制a+B列,并根据C值多次粘贴到sheet2。请参见下面的示例。这将为我们节省大量的时间。任何帮助都将不胜感激 表1Excel 将粘贴从第1页复制到第2页,excel,vba,Excel,Vba,我不知道这件事,所以非常感谢你的帮助。需要有关编写脚本的帮助,该脚本将复制a+B列,并根据C值多次粘贴到sheet2。请参见下面的示例。这将为我们节省大量的时间。任何帮助都将不胜感激 表1 A B C 1111 aaaa 3 2222 bbbb 4 3333 cccc 2 后宏 表2 A B C 1111 aaaa 3 1111 aaaa 3 1111 aaaa
A B C
1111 aaaa 3
2222 bbbb 4
3333 cccc 2
后宏
表2
A B C
1111 aaaa 3
1111 aaaa 3
1111 aaaa 3
2222 bbbb 4
2222 bbbb 4
2222 bbbb 4
2222 bbbb 4
3333 cccc 2
3333 cccc 2
您需要更改图纸参考以匹配您的情况。上面使用的图纸参考是代码名参考。如果在VBE(Control+R)中打开项目资源管理器并展开投影,将看到类似“Sheet1(MyTablName)”的对象。Sheet1部分称为代码名,在重命名工作表时不会更改。如果要使用选项卡名称,可以使用
ThisWorkbook.Worksheets("MyTabName").Range("A1:A3")
祝你好运。LOL。我不知道我的格式怎么了。让我们再试一次。表1 A B C 1111 aaaa 3 2222 bbbb 4 3333 cccc 2宏表2 A B C 1111 aaaa 3 1111 aaaa 3 2222 bbbb 4 2222 BBB 4 2222 BBB 4 3333 cccc 2 3333 cccc 2我更新了格式,但是您可以自己选择文本并单击编辑框上方的
{}
code按钮来完成。
ThisWorkbook.Worksheets("MyTabName").Range("A1:A3")