VBA删除空白单元格行代码无效的问题排查与解决请求

我来帮你搞定这个问题！你的代码没生效主要有两个关键问题，咱们一步步拆解解决：

1. 首先修正列判断的错误 #

你原本的目标是删除E列单元格为空的行，但代码里写的是If Cells(r, 1) = ""——这里的Cells(r,1)对应的是A列，不是E列！这是导致代码完全没按预期工作的核心原因之一。

2. 处理“看起来空但实际有内容”的单元格 #

你提到用公式检测后显示单元格不为空，这说明单元格里存在不可见字符（比如空格、换行符、制表符这类肉眼看不到的内容），Excel会把这些字符判定为单元格有值，所以单纯的=""判断会失效。

修改后的代码 #

基础修正版（仅解决列错误） #

这个版本先把列的问题修正，适用于单元格真的是空值的情况：

Sub DeleteRow()
    Dim r As Long
    Dim LastRow As Long
    ' 使用With语句避免重复引用工作表，代码更高效规范
    With ThisWorkbook.Worksheets("List")
        LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
        ' 从最后一行往上遍历，避免删除行后索引错乱
        For r = LastRow To 1 Step -1
            ' 修正为判断E列（"E"或数字5都可以）
            If .Cells(r, "E").Value = "" Then
                .Rows(r).Delete
            End If
        Next r
    End With
End Sub

增强版（处理不可见字符） #

这个版本加入了对不可见字符的处理，能识别那些“看起来空”的单元格：

Sub DeleteRow_Enhanced()
    Dim r As Long
    Dim LastRow As Long
    With ThisWorkbook.Worksheets("List")
        LastRow = .Cells(.Rows.Count, "E").End(xlUp).Row
        For r = LastRow To 1 Step -1
            ' Clean清除非打印字符，Trim去除首尾空格，再判断是否为空
            If Trim(WorksheetFunction.Clean(.Cells(r, "E").Value)) = "" Then
                .Rows(r).Delete
            End If
        Next r
    End With
End Sub

补充说明 #

• WorksheetFunction.Clean：会清除ASCII码0-31的非打印字符（比如换行符、制表符）
• Trim：会去除字符串首尾的空格（如果需要连中间空格也处理，可以用Replace(.Cells(r,"E").Value, " ", "")）
• 你可以用=LEN(E2)公式快速验证单元格的字符长度，如果长度大于0但看不到内容，就说明存在不可见字符。

内容的提问来源于stack exchange，提问作者rob