Question

我有一个包含2张的excel，我需要在第一张表中修改列数以自动修改在表2中相同。如何处理vba 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

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

1 个答案: