使用.SpecialCells(xlCellTypeVisible)时如何正确定位仅可见单元格

你遇到的核心问题是：SpecialCells(xlCellTypeVisible)返回的是由多个不连续区域（Areas）组成的Range对象，直接用数字索引（如FilteredRecord(h)）遍历，会按照原始未筛选范围的单元格顺序来访问，而非可见单元格的实际顺序。

从你的输出能看到，FilteredRecord.Address显示的是$A$2,$A$4,$A$6:$A$7，这说明它包含3个独立的Area：A2、A4、A6:A7。当你用FilteredRecord(2)时，它会取原始范围A2:A7里的第2个单元格（也就是A3），而不是可见区域里的第2个单元格。

要正确遍历所有可见单元格，需要先遍历每个Area，再遍历Area内的每个单元格，代码如下：

Dim FilteredRecord As Range
Dim area As Range
Dim cell As Range

Set FilteredRecord = shTable.Range("A2:A7").SpecialCells(xlCellTypeVisible)

Debug.Print "Filtered count: " & FilteredRecord.Count
Debug.Print "Filtered address: " & FilteredRecord.Address

' 遍历每个区域，再遍历区域内的单元格
For Each area In FilteredRecord.Areas
    For Each cell In area
        Debug.Print cell.Row - 1 & " = " & cell.Value & "/address: " & cell.Address
    Next cell
Next area

• FilteredRecord.Areas：返回Range对象中所有不连续的子区域集合
• 外层循环遍历每个子区域，内层循环遍历子区域里的每个单元格，这样就能严格按照可见单元格的实际顺序访问，不会拿到隐藏单元格。

运行这段代码后，你会得到预期的输出：

Filtered count: 4
Filtered address: $A$2,$A$4,$A$6:$A$7
1 = ABC/address: $A$2
2 = ABC/address: $A$4
3 = XYZ/address: $A$6
4 = XYZ/address: $A$7

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