Sub 插入多列()'快捷键为Ctrl + Shift + TDim i As Integeri = Application.InputBox(prompt:="请输入列数：", Type:=1)'Type = 1的意思是强制要求输入一个数字，如果不是数字则会报错If i = 0 ThenExit Sub'当你改变主意不想插入列数的时候你可以输入数字0End IfSelection.Resize(1, i).EntireColumn.Insert Shift:=xlToRightEnd Sub
如下图所示，我们要在这样的单元格的左边插入一行，如果我们单独插入一行，左边的数据行数也一起增加了，很显然不是我们想要的效果。