應用自動篩選器後，Excel VBA從可見單元格中獲取範圍值

Question

難道不可能像這樣做簡單的事情來獲取B2的範圍值？

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

我已經應用了自動篩選與給定的標準來過濾掉並試圖返回B2的範圍內的功能。

Answer 1

將.SpecialCells(xlCellTypeVisible)設置爲Range，然後在此範圍上使用Cells(row, column)來挑選出您需要的值。如果您在結果中使用標題，那麼您可能還必須使用Offset(1,0)來處理您的數據。因此，在'MySheet'被定義爲工作表對象的情況下，類似於：

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