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列Ce造婷用痃lls(1, 2 * i).Select '(1,2*i)即在第1行，2*i列处插入Selection.EntireColumn.Insert 'EntireColumn 列Next iEnd Sub

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

5、 这个是控制插入行的代码（我在这里就不加注释了）：Sub 插入空行猾诮沓靥()For i = 1 To 10Cells(2 * i, 1).SelectSelection.EntireRow.InsertNext iEnd Sub

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