アプリ版:「スタンプのみでお礼する」機能のリリースについて

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

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

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

A 回答 (1件)

For Each a In Selection.Areas


' a の為の配列を用意
For Each c In a.Rows
' c を配列に追加
Next
Next
    • good
    • 1
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A