根据单元格值删除整行

Question

我很难弄清楚如果该行中的一个单元格等于）则如何删除整行。

这是我写的，关于如何使其工作的任何想法？

Dim rng As Range, rrng As Range
    Set rng = Range("A1:E1")
    Set rng = Range(rng, rng.End(xlDown))
    For Each rrng In rng
    If rrng.Value = 0 Then .EntireRow.Delete
Next rrng

Answer 1

这是我的解决方案。 它对行中的所有值求和，并在总和为0时将其删除。

Sub deleting_empty_rows()

Dim rng, rrng, rcell As Range
Dim i, j As Long

Set rng = Range("A1:E1")
Set rng = Range(rng, rng.End(xlDown))

For j = rng.Rows.Count To 1 Step -1

    Set rrng = rng.Rows(j)

    i = 0

    For Each rcell In rrng.Cells
        i = i + rcell.Value
    Next rcell

    If i = 0 Then rrng.EntireRow.Delete

Next j

End Sub

Answer 2

我对您的代码做了一些小的修改，我认为它现在可以完成您想要的工作。

Dim rng As Range, rrng As Range
Set rng = Sheet1.Range("A1:E1")
Set rng = Range(rng, rng.End(xlDown))
For Each rrng In rng
If rrng.Value = 0 Then Sheet1.Rows(rrng.Row).Delete
Next rrng

Answer 3

要删除空行，请使用反向循环...

例

Option Explicit
Public Sub Example()
    Dim Row&, i&

    i = Cells.SpecialCells(xlCellTypeLastCell).Row

    For Row = i To 1 Step -1
        Debug.Print Row ' Immediate Window
        If Application.CountA(Rows(Row)) = 0 Then
            i = i - 1

            If IsEmpty(Cells(Row, 1)) Then
                Rows(Row).Delete
            End If
        End If
    Next
End Sub