vba - Selection.SpecialCells() 方法返回意外范围(Excel VBA)

Question

当我选择一个包含三个单元格的范围时，例如 B3:B5，该方法按预期运行，并显示三个带有“3”、“4”和“5”的消息。

Sub visTest()
    Dim c As Range
    For Each c In Selection.SpecialCells(xlCellTypeVisible)
        MsgBox c.row
    Next c
End Sub

问题是当我只选择一个单元格时: Selection.SpecialCells(xlCellTypeVisible)返回工作表上的所有可见单元格并从单元格 A1 开始。

如何让它只返回一个选定单元格中的一个可见单元格？
为什么会出现问题？

谢谢!

Answer 1

这将执行正确的限制:

Sub visTest()
    Dim c As Range
    For Each c In Intersect(Selection, Selection.SpecialCells(xlCellTypeVisible))
        MsgBox c.Row
    Next c
End Sub