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

Sub New ActiveSheet.Range(“c9”).End(xlRight).Offset(1,0).Select Selection.Insert Shift:xlToRight Selection.Insert Shift:xlToRight Selection.Insert Shift:xlToRight End Sub 

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

谢谢！

Answer 1

你可以用1行replace你的整个代码：

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

第一部分ActiveSheet.Range("C9").Offset(0, 1)您select单元格“C9”右侧的单元格。

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

如果你打算用数据find第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