Excel 将粘贴从第1页复制到第2页

Excel 将粘贴从第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值多次粘贴到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     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")