【实例】VBA excel 隔行插入行与列

参考：https://jingyan.baidu.com/article/d621e8da25177a2865913fb5.html

效果

代码

Sub 插入空列()
For i = 1 To 20                          '20即插入20列
Cells(1, 2 * i).Select                   '(1,2*i)即在第1行，2*i列处插入
Selection.EntireColumn.Insert  'EntireColumn 列
Next i
End Sub

Sub 插入空行()
For i = 1 To 10
Cells(2 * i, 1).Select
Selection.EntireRow.Insert
Next i
End Sub