Question

我尝试创建一个宏，用户可以将更多用户添加到“工作表1”上的电子表格中，然后将更多列添加到“工作表2”和“工作表2”中。与前一列相同，因此所有格式都保持不变。

我已经获得了将表1中的更多行添加到表中的代码，但是还要努力，然后复制表2中的列并将其插入右侧。

任何帮助都会很棒。

截图帮助：

https://www.dropbox.com/s/2pu7okcxjk2h79m/Advisor.png?dl=0 https://www.dropbox.com/s/kvhi4p4dn6zcp6x/Setup.png?dl=0

我不会让我直接发布图片，因为需要更多代表：/

在“设置”页面中，目的是单击“加号”，它将添加一行在Advisor页面中，它复制并插入V的前面的列（Q：U），而不会破坏总和代码

Answer 1

使用以下子例程将Sheet1的col复制到Sheet2。 ColId是列的索引。

Sub CopyColumnsFromSheet1ToSheet2()
Dim ColId As Long
'1 is Col A
ColId = 1
Sheets("Sheet1").Columns(ColId).Copy Destination:=Sheets("Sheet2").Columns(ColId)
End Sub

初始宏复制和粘贴列

1 个答案: