带自动筛选的VBA代码问题：无空白单元格仍弹出MsgBox

原代码核心问题 #

原代码错误地将AutoFilter方法当作布尔判断条件使用：.AutoFilter(Field:=rng1.Column, Criteria1:="")是执行筛选的操作语句，并非返回True/False的判断逻辑，因此无论目标列是否存在空白单元格，都会触发提示框。此外还存在跨工作表筛选逻辑混乱、错误处理无效、提示文本与需求不符等问题。

修正后的代码 #

Sub CheckIssuerBlanks()
    Dim ws As Worksheet
    Dim searchCol As String
    Dim headerRng As Range
    Dim issuerCol As Range
    Dim hasBlanks As Boolean
    
    searchCol = "Issuer"
    
    '遍历所有工作表
    For Each ws In Worksheets
        '清除当前工作表已有的筛选
        If ws.AutoFilterMode Then ws.AutoFilter.ShowAllData
        
        '查找"Issuer"列的表头位置
        Set headerRng = ws.UsedRange.Find(searchCol, LookIn:=xlValues, LookAt:=xlWhole)
        If Not headerRng Is Nothing Then
            '定位Issuer列的数据区域（跳过表头行）
            Set issuerCol = ws.Range(headerRng.Offset(1), ws.Cells(ws.UsedRange.Rows.Count, headerRng.Column))
            
            '检查数据区域是否存在空白单元格
            On Error Resume Next
            hasBlanks = Not issuerCol.SpecialCells(xlCellTypeBlanks) Is Nothing
            On Error GoTo 0
            
            If hasBlanks Then
                '筛选显示Issuer列的空白行
                ws.UsedRange.AutoFilter Field:=headerRng.Column, Criteria1:=""
                '应用H列的筛选规则（若仅需对当前激活表执行，可将此行移至循环外）
                ws.Range("H:H").AutoFilter Field:=8, Criteria1:="<>Cash"
                MsgBox "工作表[" & ws.Name & "]的Issuer列存在空白单元格"
            End If
        End If
    Next ws
End Sub

关键修正点 #

• 使用SpecialCells(xlCellTypeBlanks)准确判断是否存在空白单元格，返回布尔值用于条件判断
• 对每个工作表单独处理筛选逻辑，避免跨表操作混乱
• 增加表头查找的容错处理，防止因找不到"Issuer"列导致报错
• 提示框明确标注对应工作表名称，便于定位问题
• 保留需求中的H列筛选规则，可根据实际场景调整作用范围

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