我有财务数据，其中某些行是空白的，如果选定范围内的整行都是空白的，我希望能够删除整行（它在选定范围内很重要，因为我可能有“收入” A 列，但 BD 列是空白数据（基本上没有数字）。
我希望它应用于选定的范围，而不是在代码中具有预定范围（以使代码灵活）。
我正在尝试使用这种格式，但它似乎不起作用：
Sub deleteBlankRows()
Dim c As Range
On Error Resume Next
For Each c In Selection.Row.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Next
End Sub
欢迎提出任何想法。
【问题讨论】：
标签： excel vba delete-row
循环遍历每个完整行选择并检查空白单元格的数量是否与行中所有单元格的数量匹配：
我的代码：
Dim rng As Range
For Each rng In Selection.Rows
If Application.WorksheetFunction.CountBlank(rng) = rng.Cells.Count Then rng.EntireRow.Delete
Next rng
执行代码后：
空行不见了
更新：
@VasilyIvoyzha 是绝对正确的。 For each 在这种情况下无法正常工作。更好的方法是：
Dim i&, x&, lastRow&
lastRow = Range(Split(Selection.Address, ":")(1)).Row
x = Selection.Rows.Count
For i = lastRow To Selection.Cells(1).Row Step -1
If WorksheetFunction.Concat(Selection.Rows(x)) = "" Then Rows(i).Delete
x = x - 1
Next i
这种方式会在选择时删除空行，即使它们是连续的。
【讨论】：
for each改成for和step -1