excel vba实例004 如何隔列或隔行插入空列空行

1、       先来说插入列的问题，可以看到有20列，想要隔列插入空列，即1234...变成1  2  3  4...，前两种方法给妹子鄙视了，现在就只能用VBA了。

2、       打开Excel后按Alt+F11，打开VBA编辑窗口，在sheet1（sheet1）处双击以打开代码编辑窗口，然后再该窗口输入代码。

3、       这个是控制插入列的代码（我在这里给加点注释，直接复制也没有关系）：

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

4、       现在运行一下（看到一个绿色的小三角没有，就是它，按它）来看一下效果，可以看到1234...变成1  2  3  4...，表示可以了，如果需要插入多列的话修改一下上图用红框框注的几个值就可以了。不难，自己研究了。

5、       这个是控制插入行的代码（我在这里就不加注释了）：

Sub 插入空行()

For i = 1 To 10

Cells(2 * i, 1).Select

Selection.EntireRow.Insert

Next i

End Sub

6、       现在运行一下来看一下效果，可以看到第一列的1234...变成1  2  3  4...，，如果需要插入多行的话修改一下值就可以了，这里也不多解释了。