複数の選択範囲の行番号を個別に取得する方法

VBAを使って、
例えば、行番号5～10と20～30、50～60の三カ所のセルを選択した状態で
行番号を全て取得したい場合

ccc = 0

For Each c In Selection.Rows

ccc = ccc + 1
Row0(ccc) = c.Row

Next c

で取得することができます。

ここで三カ所の領域毎に配列を分割したいのですが


For i = 2 To row_num0

If Row0(i) - Row0(i - 1) > 1 Then

を使って行をひとつずつ調べていって、
配列から別の配列に入れ直しいくしかないでしょうか？

もっと簡単な方法があれば教えてください

No.1 ベストアンサー 回答者： Ogre7077 回答日時： 2015/03/19 16:32

For Each a In Selection.Areas

' a の為の配列を用意
For Each c In a.Rows
' c を配列に追加
Next
Next

この回答へのお礼

ありがとうございました。

お礼日時：2015/03/19 19:40