VBA筛选代码问题：Else分支失效，无空白时仍弹出提示

问题分析 #

你的代码当前无论是否存在空白单元格都会弹出提示，核心原因是没有正确判断筛选后是否存在符合条件的可见数据行——通常是误将表头或者筛选本身的状态当成了有数据的依据，导致Else分支从未触发。

修正方案 #

在完成两次筛选后，需要检查是否存在除表头外的可见数据行。可以通过定位可见单元格区域、统计可见行数的方式实现：

修正后的代码示例 #

Sub CheckIssuerBlanks()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim visibleRows As Range
    
    Set ws = ActiveSheet ' 可替换为具体工作表，如ThisWorkbook.Worksheets("Sheet1")
    
    ' 清除原有筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    lastRow = ws.Cells(ws.Rows.Count, "H").End(xlUp).Row ' 获取第8列（H列）最后一行
    
    ' 1. 筛选第8列（资产类别）排除Cash
    ws.Range("A1:H" & lastRow).AutoFilter Field:=8, Criteria1:="<>Cash"
    ' 2. 筛选Issuer列空白（将Field:=4替换为Issuer列实际列号）
    ws.Range("A1:H" & lastRow).AutoFilter Field:=4, Criteria1:="="
    
    ' 定位筛选后的可见数据行（排除表头）
    On Error Resume Next
    Set visibleRows = ws.Range("A2:H" & lastRow).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 判断是否存在符合条件的行
    If Not visibleRows Is Nothing Then
        visibleRows.Select ' 显示对应行
        MsgBox "发现Issuer列空白的行，请检查！"
    End If
    
    ' 清除筛选（可选，按需保留）
    ws.AutoFilterMode = False
End Sub

关键修正点 #

• 排除表头判断：用A2:H&lastRow定位数据区域，避免把表头的可见性误判为数据行存在。
• 捕获可见行：通过xlCellTypeVisible获取所有可见数据行，若不存在则visibleRows为Nothing，以此触发分支逻辑。
• 错误处理：添加On Error Resume Next避免无可见行时抛出运行错误。

注意事项 #

• 请将代码中的Field:=4替换为Issuer列对应的实际列号（比如Issuer在E列就写Field:=5）。
• 若表格表头不在第1行，需调整数据区域的起始行（比如表头在第2行，就用A3:H&lastRow）。

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