分享高质量的原创Office教程、Word教程、Excel教程。
位置:主页 > excel教程 >

excel表格利用VBA脚本快速行列添加的操作方法

发布时间:2019-07-06 02:44:48 来源:www.roce6.com 浏览量:
excel表格已经在我国普及,但有一些新用户会遇见对excel表格利用VBA脚本快速行列添加进行设置的问题,其实有很多用户都反映过如何设置excel表格利用VBA脚本快速行列添加的问题,那么到底怎样才能快速的设置excel表格利用VBA脚本快速行列添加呢?其实很简单,只需要按照要在上述示例中插入空白列,点击“开发工具→VB→插入→模块”,在打开的窗口将下列代码粘贴到空白处,这样保存后就会添加一个名为“插入空白列”的宏脚本(图7)。来处理就搞定了,现在详细的给大家讲下excel表格利用VBA脚本快速行列添加的具体步骤:

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

1716A-KBHL-7

图7 插入空白列代码

保存后返回原始数据窗口,点击“开发工具→宏→插入空白列→执行”,执行这个宏后就会在原来的列之间插入一个空白列了(图8)。

1716A-KBHL-8

图8 运行宏插入空白列

如果是插入空白行,输入下列的代码即可:

Sub 插入空白行()

For i = 1 To 10 ,表示插入10个空行

Cells(2 * i, 1).Select

Selection.EntireRow.Insert ,表示插入的是空行

Next i

End Sub