FilteredRecord(h)等效于FilteredRecord.Item(h)。其结果与FilteredRecord.Cells(h)相同。对于非连续范围，它不是目标范围内的迭代。
请试试看。

Sub demo()
    Dim Filter_Range As String
    Dim c As Range, h As Long
    Set FilteredRecord = ActiveSheet.Range("A2:A7").SpecialCells(xlCellTypeVisible)
    Debug.Print "Filtered count: " & FilteredRecord.Count
    Debug.Print "Filtered address: " & FilteredRecord.Address
    h = 1
    For Each c In FilteredRecord.Cells
        Debug.Print h & " = " & c.Value & "/address: " & c.Address
        h = h + 1
    Next
End Sub

字符串

好吧，这很有趣-我在提出我的问题后就解决了它。我不应该用索引遍历范围，我应该在过滤范围上使用For Each。以下修改后的代码工作得很好：

Dim FilteredRecord As Range
    Dim Record As Range
    Dim h As Integer
    Filter_Range = "A2:A7"
    Set FilteredRecord = shTable.Range("A2:A7").SpecialCells(xlCellTypeVisible)
    Debug.Print "Filtered count:" & FilteredRecord.Count
    Debug.Print FilteredRecord.Address
    For Each Record In FilteredRecord.Rows
           Debug.Print Record & "/address: " & Record.Address
    Next

字符串
输出为：

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

型

这个结果的解释是，如果一个区域包含不连续的单元格，则结果Range对象具有“区域”，即连续区域的列表。
这可以通过范围的Areas属性来实现。
试试这个

set a=shTable.Range("A2:A7").SpecialCells(xlCellTypeVisible)
For i=1 To a.Areas.Count
  Debug.Print a.Areas(i).Address
Next i

字符串