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

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

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

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