使用VBA程序删除行的方法

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

3、在VBA编辑器的代码框里面输入以下程序：Sub deleterows()Dim i争犸禀淫&, k& '定义i，k为长整数On Error Resume 绿覆冗猩Next '忽略运行过程中出现的错误Application.ScreenUpdating = False '关闭屏幕更新，以加快宏的执行速度Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表k = 1For 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 IfNextApplication.ScreenUpdating = True '开启屏幕更新MsgBox "共删除：" & 80000 - k & "行" '弹出提示End Sub

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