使用SpecialCells遍历可见单元格在LR=2场景下出现异常

问题根源 #

当LR=2时，你的代码实际处理的是单个单元格范围A2:A2。在Excel VBA中，如果这个单个单元格处于隐藏状态，调用SpecialCells(xlCellTypeVisible)会触发异常行为：它会自动扩展范围，返回整个A列的所有可见单元格（包括A1），这就是你拿到(1,1)、(2,1)的原因。

这是Excel VBA的设计特性：当指定的目标范围中没有符合条件的单元格时，SpecialCells会尝试向上查找连续区域，最终可能返回整个列的可见单元格。

修复方案 #

方案1：提前判断范围与可见性 #

在遍历前先检查目标范围状态，避免单个隐藏单元格触发异常：

Dim targetRange As Range
Set targetRange = POListSheet.Range("A2:A" & LR)

' 处理多单元格范围或单个可见单元格的情况
If targetRange.Cells.Count > 1 Then
    For Each RangeCnt In targetRange.SpecialCells(xlCellTypeVisible)
        ' 你的遍历逻辑
    Next
Else
    ' 仅当单个单元格可见时执行逻辑
    If Not targetRange.EntireRow.Hidden Then
        ' 针对A2的业务逻辑
    End If
End If

方案2：错误捕获处理 #

利用错误捕获避免SpecialCells在无可见单元格时抛出错误，同时确保遍历范围合规：

Dim visibleCells As Range
With POListSheet
    On Error Resume Next
    Set visibleCells = .Range("A2:A" & LR).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
End With

' 仅当存在有效可见单元格时遍历
If Not visibleCells Is Nothing Then
    For Each RangeCnt In visibleCells
        ' 你的遍历逻辑
    Next
End If

方案3：交集限定范围（推荐） #

通过取目标范围与列可见范围的交集，彻底避免范围扩展到表头：

With POListSheet
    Dim targetRange As Range, visibleRange As Range
    Set targetRange = .Range("A2:A" & LR)
    Set visibleRange = .Columns("A").SpecialCells(xlCellTypeVisible)
    
    ' 仅保留目标范围内的可见单元格
    Set visibleRange = Intersect(targetRange, visibleRange)
    
    If Not visibleRange Is Nothing Then
        For Each RangeCnt In visibleRange
            ' 你的遍历逻辑
        Next
    End If
End With

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