Question

vba怎样批量删除行

比如已知我要删除第5-10行 该怎么写代码？
然后 删除13-15行 17-20行 删除这3组 代码该怎么写啊？

Answer 1

1、在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】。

2、会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】。

3、会弹出模块编辑窗口。

4、在代码编辑窗口输入以下代码：Sub 删除行()Rows(2).delete，End Sub。

5、在VBA窗口，点击【运行】按钮。

6、工作表中第二空白行被删除了。

Answer 2

你那么些太慢了,看我的.
Range(rows(13),rows(15)).delete 这一句话把 13-15都删了.

Range(rows(17),rows(20)).delete 这一句话把 17-20都删了. 如果你有一万组,就用Union 语句,先联合起来再删一次,比较快,目前只有2组的话,删两句就行了.

Answer 3

每次都是删除的行都一样的话就用
rows("5:10").delete
rows("13:15").delete
rows("17:20").delete

每次都不一样的话就用
Selection.EntireRow.Delete

Answer 4

Sheet1.Rows("5:10").Delete Shift:=xlUp
Sheet1.Rows("13:15").Delete Shift:=xlUp
Sheet1.Rows("17:20").Delete Shift:=xlUp