宏删除特定行下的所有行 [英] Macro to delete all rows below a specific row

问题描述

我正在努力删除特定行下面的所有行。第一行在Col"D"中有"Ref"，在Col"F"中有一个空单元格，我需要删除从这一行到最后一行的所有行。

I am struggling with deleting all rows below a specific row. The first row that has"Ref" in Col "D" and an empty cell in Col "F", I need to delete all rows starting from this row to Last row.

谢谢

推荐答案

Sub TestMacro（）

    Dim rngC As Range

    

   如果Application.CountIfs（Range（"D：D"），"Ref"，Range（"F：F"），"""）= 0则则为
        MsgBox""" Ref""在D中，找不到F中的空白。"

       退出Sub $
   结束如果

    

   设置rngC =范围（"D：D"）。查找（"参考"）

    

   虽然不是rngC什么都不是b $ b       如果rngC.Offset（0,2）.Value =""然后

           范围（rngC，Cells（Rows.Count，1））。EntireRow.Delete

           退出Sub $
       结束如果

       设置rngC =范围（"D：D"）。FindNext（rngC）

    Wend $
End Sub

Sub TestMacro()
    Dim rngC As Range
    
    If Application.CountIfs(Range("D:D"), "Ref", Range("F:F"), "") = 0 Then
        MsgBox """Ref"" in D and blank in F not found."
        Exit Sub
    End If
    
    Set rngC = Range("D:D").Find("Ref")
    
    While Not rngC Is Nothing
        If rngC.Offset(0, 2).Value = "" Then
            Range(rngC, Cells(Rows.Count, 1)).EntireRow.Delete
            Exit Sub
        End If
        Set rngC = Range("D:D").FindNext(rngC)
    Wend
End Sub

这篇关于宏删除特定行下的所有行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！