使用Areas函数的可见单元格遍历循环为何偶尔选中多个单元格？

你遇到的核心问题是：SpecialCells(xlCellTypeVisible) 返回的 Areas 集合，每个成员是连续可见单元格组成的区域，而非单个单元格。当过滤后存在连续可见行时，相邻单元格会被合并成一个Area，此时直接取 .Value 会返回数组，和单个单元格值比较就触发了「类型不匹配」错误。

下面给你两种可靠的优化方案，以及问题根源的详细解释：

优化方案1：直接遍历所有可见单元格（最推荐） #

这种方式完全避开Areas的坑，逐个访问每个可见单元格，逻辑清晰且不易出错：

Dim Fchours As Range
Dim cell As Range
Dim prevCellVal As Variant
Dim FCcount As Long

Set Fchours = ActiveSheet.Range(rng1.Address).SpecialCells(xlCellTypeVisible)
FCcount = 0
prevCellVal = Empty ' 初始化前一个单元格的值

' 逐个遍历每个可见单元格
For Each cell In Fchours
    ' 跳过空单元格
    If cell.Value <> "" Then
        ' 不是第一个单元格时才执行比较逻辑
        If Not IsEmpty(prevCellVal) Then
            ' 满足条件则计数
            If prevCellVal < 5000 And cell.Value < prevCellVal Then
                FCcount = FCcount + 1
            End If
        End If
        ' 更新前一个单元格的值为当前值
        prevCellVal = cell.Value
    End If
Next cell

优化方案2：修复原代码的Area遍历逻辑 #

如果想保留类似原代码的结构，需要先判断每个Area的单元格数量，逐个处理Area内的单元格：

Dim Fchours As Range
Dim area As Range
Dim cell As Range
Dim prevCellVal As Variant
Dim FCcount As Long

Set Fchours = ActiveSheet.Range(rng1.Address).SpecialCells(xlCellTypeVisible)
FCcount = 0
prevCellVal = Empty

If ActiveSheet.FilterMode Then
    ' 遍历每个连续可见区域
    For Each area In Fchours.Areas
        ' 遍历当前区域内的每个单元格
        For Each cell In area
            If cell.Value <> "" Then
                If Not IsEmpty(prevCellVal) Then
                    If prevCellVal < 5000 And cell.Value < prevCellVal Then
                        FCcount = FCcount + 1
                    End If
                End If
                prevCellVal = cell.Value
            End If
        Next cell
    Next area
End If

原代码出错的关键原因 #

1. Areas的本质误解：你假设每个Area是单个单元格，但实际上Areas是把连续的可见单元格合并成一个区域（比如第2、3行都可见，对应列的Area就是Range("A2:A3")），此时.Value返回的是二维数组，和单个值比较必然类型不匹配。
2. 硬编码循环次数：Do While i < 328是固定次数，一旦可见单元格/Area的数量不等于328，就会出现越界或遗漏数据的问题。

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