如何从工作表中插入一些列到另一个工作簿？

Question

我有一个excel containts 2张，我需要，如果在第一张表中修改列数自动修改表2中相同。我怎么能用宏在VBBA Excel？我试过这段代码：

Sub sbInsertingColumns() 
'Inserting a Column at Column B 
Range("B1").EntireColumn.Insert 
'Inserting 2 Columns from C 

Range("C:D").EntireColumn.Insert 
End Sub 

Answer 1

目前还不清楚你想实现什么。可能类似于以下内容。将代码放在原始工作表中。一个重要的警告是代码无法区分列插入和列删除。原创想法从Gary's Student。

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Columns.Count = 1 And Target.Rows.Count = Rows.Count Then 
     Worksheets("MyOtherSheet").Range(Target.Address).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove 
    End If 
End Sub