Excel一步到位 利用VBA脚本快速实现行列添加
- 2022-05-03
- 来源/作者： Wps Office教程网/ 菜鸟图库
- 129 次浏览
上述增加辅助行列的方法虽然操作简单，但是对于很多追求效率的朋友来说，还是略显繁琐。对于这类朋友，还可以借助VBA脚本实现空白行列的一键添加。
要在上述示例中插入空白列，点击“开发工具→VB→插入→模块”，在打开的窗口将下列代码粘贴到空白处，这样保存后就会添加一个名为“插入空白列”的宏脚本（图7）。
Sub 插入空白列()
For i = 1 To 3
Cells(1, 2 * i).Select
Selection.EntireColumn.Insert
Next i
End Sub
代码解释：
For i = 1 To 3 ：本例表示只插入3列空白列，具体数值请根据自己实际数据选择。
Cells(1, 2 * i).Select：表示在第一行，2*i列处插入空白列进行间隔
Selection.EntireColumn.Insert： EntireColumn表示插入的是列，如果是插入行则使用EntireRow代码。
图7 插入空白列代码
保存后返回原始数据窗口，点击“开发工具→宏→插入空白列→执行”，执行这个宏后就会在原来的列之间插入一个空白列了（图8）。
图8 运行宏插入空白列
如果是插入空白行，输入下列的代码即可：
Sub 插入空白行()
For i = 1 To 10 ,表示插入10个空行
Cells(2 * i, 1).Select
Selection.EntireRow.Insert ,表示插入的是空行
Next i
End Sub
