vba - 在Excel中添加列

Question

我正在尝试创建一个 Excel 宏，该宏会自动在 D 列之前插入两列...当我创建它时，该过程运行良好，如下:

Sub AddColumns()
    Columns("D:D").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub

但是当我打开工作表并尝试时，我的所有数据都被推到右侧约 11 列，并插入了 11 个空白列。我确信这与某些合并了 11 列的行有关。 Select 语句选择前 11 列 A-K。

如何解决这个问题？

Answer 1

发生这种情况是因为 Columns("D:D").Select 行。如果您不选择此列，代码将正常工作。

改用这个:

With Range("D:D")
    .Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    .Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End With

并且，How to avoid using Select/Active statements :)