根据单元格值删除整行

我在计算如何删除整行，如果该行中的单元格等于）的麻烦。

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

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

我对你的代码做了一些小的修改，现在我想它现在可以做你想做的事了。

 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 2

这是我的解决scheme。 它总结所有的值，并删除它当总和为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 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