VBA代码,当某一指定列中有空值,则删除整行

2019-11-30 23:39:34  阅读 731 次 评论 0 条

以下代码测试成功,留存

Sub shanchukonghang()

    Dim i As Integer

    Dim irow As Integer

    irow = Sheet1.Range("a65536").End(xlUp).Row

    For i = irow To 2 Step -1

        If Range("e" & i) = "" Then

        Range("e" & i).Select

        Selection.EntireRow.Delete

        End If

    Next

End Sub


方式2,未测试,代码留存



 Sub Macro1()
    Dim arr, rng As Range, i&
    With Sheets("BOMyy")
    arr = .Range("f1:f" & .[a65536].End(xlUp).Row)
    For i = 2 To UBound(arr)
        If Len(arr(i, 1)) = 0 Then
            If rng Is Nothing Then Set rng = .Cells(i, 1) Else Set rng = Union(rng, .Cells(i, 1))
        End If
    Next
    If Not rng Is Nothing Then rng.EntireRow.Delete
    End With
End Sub 


WPS达师专注于免费分享WPS Office使用教程、PPT、word模板及办公常用软件等资源,欢迎大家收藏和分享本站。
WPS交流群:121023130

发表评论


表情

还没有留言,还不快点抢沙发?