应用自动过滤后，Excel VBA从可见单元格中获取范围值

Question

是否不可能做这样简单的事情来获得B2的范围值？

crdata.Range("B2").SpecialCells(xlCellTypeVisible).Value

我已经应用了自动过滤器来过滤掉给定的标准并尝试将B2的范围作为函数返回。

Answer 1

将.SpecialCells(xlCellTypeVisible)设置为范围，然后在此范围内使用Cells(row, column)来选择所需的值。如果您在结果中使用标题，则可能还必须使用Offset(1,0)来处理您的数据。因此，'MySheet'被定义为Worksheet对象，如：

Set rsltRng = MySheet.Autofilter.Range.SpecialCells(xlCellTypeVisible)
msgbox rsltRng.cells(2,2)