如果特定范围内的单元格全部为空，则删除整行

Question

我想创建一个宏，如果特定范围内的所有单元格（10行中每一行中的B到K）都为空，则会删除整行。 我尝试了以下方法：

Dim i As Integer
Dim rng As Range

For i = 1 To 10
Set rng = Range("B" & i, "K" & i).SpecialCells(xlCellTypeBlanks)
rng.EntireRow.Delete
Next i

如果有更多的后续行与空单元格，让我们说1和2，它删除第1行并移动第2行而不是删除的第1行，所以它变成第1行。然后它跳过移动的行，因为我总是增加所以它永远不会再次检查第1行。 在移动到下一个i之前，有没有办法检查刚删除的行是否真的非空？

顺便说一句：我正在使用Excel 2013。

Answer 1

而不是使用特殊单元格，为什么不使用CountA() ？

Sub t()
Dim i&

For i = 10 To 1 Step -1
    If WorksheetFunction.CountA(Range("B" & i, "K" & i)) = 0 Then
        Rows(i).EntireRow.Delete
    End If
Next i
End Sub

这样，您可以避免任何错误，以防没有空白。 此外，删除行时，建议从最后开始，然后从Step -1开始。

编辑：

试试这个，它可能会更快：

Sub T()
Dim rng As Range

Set rng = Range("B1:K10") ' Since you're going to loop through row 1 to 10, just grab the blank cells from the start
rng.SpecialCells(xlCellTypeBlanks).EntireRow.Select ' Just to show you what's being selected. Comment this out in the final code
rng.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

我建议首先使用F8逐步完成，看看它是如何工作的。 在B1:K10范围内，它将首先选择所有有空白单元格的行。 然后，它将删除这些行。