Question

SRP

这根本不起作用，给我一个错误。任何帮助将不胜感激！

谢谢！

Answer 1

您可以用1行替换整个代码：

ActiveSheet.Range("C9").Offset(0, 1).Resize(, 3).EntireColumn.Insert

第一部分ActiveSheet.Range("C9").Offset(0, 1)选择Cell＆＃34; C9＆＃34;右侧的单元格。

第二部分.Resize(, 3).EntireColumn.Insert您在右侧一次插入3列（而不是重复同一行3次）

如果您打算在第9行找到包含数据的最后一列，例如在Range("C9").End(xlRight)中，请使用以下代码：

With ActiveSheet
    ' find last column with data in row 9
    LastColumn = .Cells(9, .Columns.Count).End(xlToLeft).Column

    .Range(Cells(9, LastColumn), Cells(9, LastColumn)).Offset(0, 1).Resize(, 3).EntireColumn.Insert
End With

Excel VBA：选择包含数据的列旁边的列，然后插入3列

1 个答案: