Excel VBA質問スレ Part7

Excel VBA質問スレ Pa ..

718:y
08/08/07 21:38:52
>>715
Unionで結合されたRangeは、内部的にはコレクション（のようなもの）であり、
二次元配列ではないので、直接に代入はできません。全体が連続していれば、
二次元配列と解釈してくれるので代入は可能なのですが、この場合は各範囲が
離れています。３行分入ったのは、Unionされた各範囲のうち、先頭の範囲から
３行分が偶然連続していたためと思われます。

さて、Unionされた範囲を取得ところまではなさっているようですので、
そこからどうもっていくかについてです。上記の通り、全体を直接代入できないため、
ここでもやはり、一つ一つ値を格納していくことになります。

まずは、格納先となる配列のサイズを確定します。dataは動的配列で宣言しておき、
　Dim data() As Variant
ReDimステートメントを使ってサイズを確定します。
　Redim data(1 To 行数, 1 To 列数)
列数は、data_n となります。さて行数はどうなるでしょうか？
ヒント：rng.Countで、Unionされた範囲rngに何個のセルが含まれるかを取得できます。

>続きます

次ページ

続きを表示

1を表示