エクセルVBA セル選択範囲を調べるメソッドについ

質問

こんにちは
今回エクセルでセル選択範囲を調べる方法について探していたのですが”Selection.Address”が
見つかりました。
これは、結果を文字型で返す仕様となっていて、文字型では、応用処理がややこしそうになります。
離れた範囲で選択した場合"例　R1C1:R2:C2,R4C4:R5C5"　のように返ってきます"
そこで、これを数値に変換したり、選択範囲が離れてていた場合は離れた範囲ごとに配列として返
してくれる関数やメソッドのようなものは、VBAに用意されていないでしょうか?
または、直接　希望する型で返ってくればそれでよいのですが、見つけることが出来ませんでした。

なお、エクセルのバージョンは２００３です。
もしなければ作成する予定です。

回答No.5

cj_mover

こんにちは。＃１～４、ｃｊです。

フラグ配列を使った例をあげることにしました。
応用できる機会が比較的多いと思います。
また、この方法だと、元々の行位置の順に格納できますから、
ソートする必要がありません。
また、重複の処理も簡単です。
一応、これは、元々の質問に対する答えに近いようにも思います。

Range オブジェクトのプロパティからフラグ配列を作って、
テーブル全体の値を格納した配列から
フラグ配列のインデックスに対応したレコードを
バッファに流し込みます。

（レコードの先頭が１行目から始まらない場合を考慮して書いていますので、その分少し長いです。）
（一般的なエラー処理も加えました。）

' ' ============================================================

Sub Re7761791c5()
　　Dim buf()　　　　　　　　　 ' 抽出レコードを流し込む配列
　　Dim mtxV()　　　　　　　　　' テーブル全体の値を格納する配列
　　Dim Target　　 As Range　　 ' Selectionを元に、テーブルからはみ出た範囲を削いだセル範囲
　　Dim a　　　　　As Range　　 ' Area ループ用
　　Dim nRowOffset　As Long　　 ' 『テーブル上の行番地』と『配列インデックス』との相対補正
　　Dim nYSize　　　As Long　　 ' テーブルの行サイズ
　　Dim nXSize　　　As Long　　 ' テーブルの列サイズ
　　Dim nTop　　　　As Long　　 ' Area 先頭行の相対番地
　　Dim nBottom　　 As Long　　 ' Area 最下行の相対番地
　　Dim arFlg()　As Boolean　　 ' 抽出レコードをマークするフラグ配列
　　Dim cnt　　　　 As Long　　 ' 抽出レコード数カウンタ
　　Dim i As Long, j As Long　　' ループ用カウンタ

'　　Range("G13:G14,B2:B3,E10:G13,C6:D7,F7:G7").Select ' ダミー

　　' ' セル範囲以外を選択中なら、抜ける
　　If TypeName(Selection) <> "Range" Then Exit Sub

　　With Sheets("リスト")
　　　　nRowOffset = 0　　' 先頭.Row - 1
　　　　' ' 最下行位置を取得して、行サイズを求める
　　　　nYSize = .Cells(Rows.Count, "A").End(xlUp).Row - nRowOffset
　　　　nXSize = 11　　' 列サイズ

　　　　' ' テーブル全体を捉える
　　　　With .Cells.Resize(nYSize, nXSize).Offset(nRowOffset)
　　　　　　' ' Selection について、テーブルから、はみ出た部分を削いでおく
　　　　　　Set Target = Application.Intersect(.Cells, Selection)
　　　　　　' ' Selection がテーブル内にない場合、抜ける
　　　　　　If Target Is Nothing Then Exit Sub
　　　　　　' ' テーブル全体の値を配列として格納しておく
　　　　　　mtxV() = .Value
　　　　End With
　　End With

　　' ' フラグ配列を行サイズで定義
　　ReDim arFlg(1 To nYSize) As Boolean
　　' ' Target 各Areaをループ
　　For Each a In Target.Areas
　　　　' ' Area の先頭行位置を相対位置で求める
　　　　nTop = a.Row - nRowOffset
　　　　' ' Area の行数を取得して、最下行位置を相対位置で求める
　　　　nBottom = nTop + a.Rows.Count - 1
　　　　' ' Area の先頭行から最下行に対応したフラグをTrueに設定する
　　　　For i = nTop To nBottom
　　　　　　' ' （他のAreaと重複している場合）既にTrueに設定してある場合は何もしない
　　　　　　If Not arFlg(i) Then
　　　　　　　　arFlg(i) = True
　　　　　　　　' ' 抽出するレコード数をカウント
　　　　　　　　cnt = cnt + 1
　　　　　　End If
　　　　Next i
　　Next a

　　' ' 抽出レコードを流し込む配列をレコード数と列サイズで定義
　　ReDim buf(1 To cnt, 1 To nXSize)
　　cnt = 0
　　' ' フラグ配列を総なめして、Trueならbufに流し込む
　　For i = 1 To nYSize
　　　　If arFlg(i) Then
　　　　　　cnt = cnt + 1
　　　　　　For j = 1 To nXSize
　　　　　　　　buf(cnt, j) = mtxV(i, j)
　　　　　　Next j
　　　　End If
　　Next i

' Range("M1").Resize(cnt, nXSize).Value = buf ' ダミー

　　' ' オブジェクト変数の解放
　　Set Target = Nothing
　　' ' 配列変数の初期化
'　　Erase mtxV, arFlg, buf
End Sub

' ' ============================================================

応用できる場面が見つかるといいのですけれど。

以上です。