如何用vba删除指定的整行

积极学习excel

请问各位老师，如何用VBA删除符合条件的行！例子中，我想实现当姓名列出现空值（不管其他列有没有值），都把他整行删除掉。

凯哥003

你这是求助,不是原创

Sub kg003 ()
Application.ScreenUpdating = False

    Dim i, r As Integer
    r = Sheets("sheet1").Range("a65536").End(xlUp).Row
    For i = r To 6 Step -1
      If Cells(i, 3) = "" Or Cells(i, 3) = 0 Then
      Rows(i).Delete
      End If
    Next
    Application.ScreenUpdating = True
End Sub

凯哥003

你这是求助不是原创
Sub kg003() '删除空白和0值的行
Application.ScreenUpdating = False

    Dim i, r As Integer
    r = Sheets("sheet1").Range("a65536").End(xlUp).Row
    For i = r To 6 Step -1
      If Cells(i, 3) = "" Or Cells(i, 3) = 0 Then
      Rows(i).Delete
      End If
    Next
    Application.ScreenUpdating = True
End Sub

不知道为什么

建议补上附件。


if  姓名 为空 then
   rows(行号）.delete

end if

mmwwdd

rows(i).delete

mmwwdd

for i=r to 1 step -1
  if .cells(i,1)="" then
     .rows(i).delete
end if
next

吴中泉

    i = 16 '要删除的行号赋给变量i
    Range(i & ":" & i).Delete '条件符合时删除16行

吴中泉

    i = 16 '要删除的行号赋给变量i
    Range(i & ":" & i).Delete '条件符合时删除16行

ykcbf1100

上传附件吧

凯哥003

Sub kg003 () '删除空白和0值的行
Application.ScreenUpdating = False

    Dim i, r As Integer
    r = Sheets("sheet1").Range("a65536").End(xlUp).Row
    For i = r To 6 Step -1
      If Cells(i, 3) = "" Or Cells(i, 3) = 0 Then
      Rows(i).Delete
      End If
    Next
    Application.ScreenUpdating = True
End Sub