|
上述增加辅助行列的方法虽然操作简单，但是对于很多追求效率的朋友来说，还是略显繁琐。对于这类朋友，还可以借助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 |
