VBA技术问询：按条件删除冗余空行及修复Instr函数失效问题

我来帮你搞定这个InStr函数失效的问题，顺便优化下空行判断的逻辑~

你的核心需求是删除**同时满足「行内容为空」且「不是包含"Total"的汇总行」**的冗余行，目前InStr没生效大概率是用法细节没处理好，比如大小写敏感、判断范围不对，或是空行判断不够严谨。下面是修正后的完整代码，附详细说明：

Sub Clean_HB()
    Dim CLEANHBWS As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置目标工作表（可替换成具体表名，比如Sheets("HB数据")）
    Set CLEANHBWS = ActiveSheet
    ' 取数据最后一行（假设用A列判断，按需修改列号）
    lastRow = CLEANHBWS.Cells(CLEANHBWS.Rows.Count, "A").End(xlUp).Row
    
    ' 从下往上遍历（删除行时从后往前才不会跳行）
    For i = lastRow To 1 Step -1
        Dim isTotalRow As Boolean
        Dim isEmptyRow As Boolean
        
        ' 判断是否为汇总行：整行任意单元格含"Total"（大小写不敏感）
        isTotalRow = False
        For Each cell In CLEANHBWS.Rows(i).Cells
            ' vbTextCompare忽略大小写，若需严格匹配可换成vbBinaryCompare
            If InStr(1, cell.Value, "Total", vbTextCompare) > 0 Then
                isTotalRow = True
                Exit For ' 找到匹配就停止检查该行
            End If
        Next cell
        
        ' 判断是否为空行：整行所有单元格都为空（含去除空格的情况）
        On Error Resume Next ' 处理整行无空单元格的报错
        isEmptyRow = CLEANHBWS.Rows(i).SpecialCells(xlCellTypeBlanks).Count = CLEANHBWS.Rows(i).Cells.Count
        On Error GoTo 0
        
        ' 满足条件则删除：是空行 且 不是汇总行
        If isEmptyRow And Not isTotalRow Then
            CLEANHBWS.Rows(i).Delete
        End If
    Next i
    
    MsgBox "冗余空行清理完成！", vbInformation
End Sub

关键修正点说明： #

• InStr函数的正确用法：新增vbTextCompare参数实现大小写不敏感匹配（比如"total"或"Total"都能被识别）；同时改成遍历整行单元格，确保只要行内有一个单元格含"Total"，就判定为汇总行（如果你知道汇总行固定在某一列，比如B列，可以简化为isTotalRow = InStr(1, CLEANHBWS.Cells(i, "B").Value, "Total", vbTextCompare) > 0）。
• 空行判断优化：用SpecialCells(xlCellTypeBlanks)统计空单元格数量，对比整行单元格总数，避免把含空格的行误判为空行。
• 遍历顺序调整：从最后一行往前遍历，删除行时不会导致后续行的索引错乱，避免漏删或误删。

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