シートを選択( Select ) 領域( Range )を選択( Select ) の手順を踏まないと上記エラーになる模様*1。なんつーか、仕様の不備だと思ふ。 参照 http://okwave.jp/qa1722099.html *1:ただし、アクティブシートに対する操作であれば、この範疇ではない

以下はA列を使って有効要素数を算出する方法 Range("A1:A" & Cells(65530, 1).End(xlUp).Row).SpecialCells(xlCellTypeVisible).Count 上記の方法では対象の各セル要素が全て詰まっている列を使って処理をすることが望ましい。