在EXCEL中如何快速插入行

操作方法如下:

首先:打开Visual Basic编辑器

单击”office按钮”选中”EXCEL 选项”,在弹出的框架中选择”在功能区显示”开发工具”选项卡(D)”;

在” 开发工具”单击” Visual Basic”,打开VBA编辑器.

第二:编写代码

Sub macro1()  '此方法仅适用于表格中无空行的情况,如存在空行,则分步进行,修改m和n 的值

Dim i As Integer '用于循环的递增变量

Dim row As Integer '用于记录要插入当前的行的序号

Dim lastRow As Integer '获取最后的行序号;如中间有空行则获取空行前的那行为止.

Dim n As Integer   '循环的起始

Dim m As Integer

 

Set cRange = Range("A1", Range("A1").End(xlDown))

lastRow = cRange.Rows.Count

 

m = lastRow

n = 1                  '只要修改n 的起始值就可用了;比如要从第二行开始插入,则n=2;插入的空行就是                       '3,5,7,9,……

 

 

 

For i = n To m   '循环从1开始,这里取row=2*i为起始行;如果从2开始呢?则取row=2*i-1作为起始行,

 row = 2 * i - n + 1       '以此推出通用公式,循环从n开始则:row=2*i-(n-1)=2*i-n+1

 Rows(row).Insert      '插入行

 

 Next i                'next i相当于自加了1(i++),或跳到下一个值

 

End Sub

 

代码编写完毕之后，按F5运行。当然也可以在Excel工作区中执行宏，选择上面编写的方法名称。