使用VBA删除excel中的行

Question

我想运行一个代码，该代码将在我名为 PxV 的工作表中的所有列 D (D:D) 中向下移动，如果他们找到一个空白单元格，它将完全删除相应的行。 如果我的单元格真的是空白的，另一个警告是 idk？ 有一个公式贯穿所有单元格，如果它是假的，则返回“”。 如果这将被 VBA 识别为空白，那么如果您必须删除具有“”的单元格，即使它们是空白的。 连续运行也很好，因此当填充新数据时它会运行，但我不确定这是否可能。 谢谢！！！

Answer 1

看看这是否有效。 您需要编辑代码以匹配您的工作表名称和列。

Sub DelRow()
Dim ws As Worksheet
Dim SheetsToSearch, SrchStrg As String, r As Range
Set ws = Sheets("Sheet1")
SrchStrg = ""
SrchStrg2 = 0

Application.ScreenUpdating = False
    With ws.Range("A:A")
        Set r = .Find(what:=SrchStrg, After:=.Range("A1"))
        For Each r In ws.Range("A1:A1000")
            If r = SrchStrg Then
                r.EntireRow.Delete
            ElseIf r = SrchStrg2 Then
                r.EntireRow.Delete
            End If
        Next
    End With
Application.ScreenUpdating = True
End Sub