批量插入多列

之前我们介绍了在Excel里批量插入多行的方法，现在我们把兄弟篇在Excel里批量插入多列的方法也介绍下：

Sub 插入多列()

'快捷键为Ctrl + Shift + T

Dim i As Integer

i = Application.InputBox(prompt:="请输入列数：", Type:=1)

'Type = 1的意思是强制要求输入一个数字，如果不是数字则会报错

If i = 0 Then

Exit Sub

'当你改变主意不想插入列数的时候你可以输入数字0

End If

Selection.Resize(1, i).EntireColumn.Insert Shift:=xlToRight

End Sub

操作过程与上篇内容类似，这里就不再赘述了，欢迎查看如下内容。

批量插入多行