VBA：Cells.SpecialCells 篩選後資料應用+FOR EACH

小編常利用這個功能，在篩選用，透過 SpecialCells(xlCellTypeVisible)方式，蒐集篩選後的資料集方式，逐一做進一步的應用。

例如下面這樣，透過SET方式，則可以透過A指定為篩選後的B行資料，然後再指定TEST為該儲存格資料的物件，那就可以做很多判斷式應用了。

例如下列則為判斷TEST是否數字，當然也可以類似作法二方式也行，看習慣搂。

Set a = Sheets(Name_a).Range("b5:b" & ar1).SpecialCells(xlCellTypeVisible)

   For Each A1 In a

    Set TEST= Sheets(Name_a).Range("b" & A1.Row)

     IF ISNUMERIC(TEST)=TRUE THEN 

    MSGBOX TEST & "是數字"

    END IF 

  Next