SpecialCells(xlCellTypeVisible)でできんじゃねーかな