Excel VBA質問スレ Part7

Excel VBA質問スレ Part7 at TECH

628:y
08/08/01 22:22:26
>>624

コードを見る限り、SpecialCells(xlCellTypeVisible)が
可視セルのコレクションを返す、ということは分かっておられると思います。
コレクションに何個のセルが含まれているかをCountプロパティで取得し、
配列の要素数を確定するところまでは、きちんとできています。

問題は、最後のForループです。今の場合は、可視セルのコレクションの
個々の要素の値を配列に格納したいわけなので、
Forループではなく、For Each ループを使うのが妥当です。
（あらかじめ、コレクションの要素を受けるための変数c as Variantを宣言しておいてください）

i=0
For Each c in Range("B2", Range("B2").End(xlDown)).SpecialCells(xlCellTypeVisible)
　hairetu(i) = c.Value
　i=i+1
Next

次ページ

続きを表示

1を表示