使用VBA程序删除行的方法

 

打开Excel表格，使用【Alt】+【F11】组合快捷键打开VBA编辑器，也可以点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器。

 

在VBA编辑器的菜单栏上面点击【插入】，【模块】。

 

在VBA编辑器的代码框里面输入以下程序：

Sub deleterows()

Dim i&, k&     '定义i，k为长整数

 

On Error Resume Next   '忽略运行过程中出现的错误

 

Application.ScreenUpdating = False  '关闭屏幕更新，以加快宏的执行速度

 

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")  '定义工作表

 

k = 1

 

For i = 2 To 80000  '共执行这么多行

 

k = k + 1   '从第二行开始

 

If mysheet1.Cells(k, 1) = mysheet1.Cells(1, 6) Then '条件判断

 

mysheet1.Rows(k).Delete shift:=xlUp  '删除行

 

k = k - 1  '如果删除一行，则少一行

 

End If

 

Next

 

Application.ScreenUpdating = True  '开启屏幕更新

 

MsgBox "共删除：" & 80000 - k & "行"  '弹出提示

 

End Sub

 

程序释义：

在程序里面，每删除一行，则少一行，下面的行会自动补上。如果单独使用For循环进行删除，将会漏掉一些，所以才引入行的中间变量k，每执行一个循环将增加一行（k=k+1），即使行被删除后上移，其对应的条件行数还是不变（即：k=k-1）。

 

点击VBA编辑器工具栏上面的“运行”图标运行程序，或者按下【F5】键运行程序。

6

程序运行完成后，将会弹出删除多少行的提示，Excel表格上面满足条件的行已经被删除。