ExcelVBAのRangeで複数指定

Excel 2003 のVBAで質問です。

以下のサンプルプログラムですが、最後の MsgBox で 1 になってしまいます。
3 が帰ってくるようにするには、Range でどのように指定すればよいのでしょうか。

宜しくお願いします。


〔Sheetの値〕
┌─┬─┬─┬─┐
│＊│Ａ│Ｂ│Ｃ│
├─┼─┼─┼─┤
│１│11│12│13│
├─┼─┼─┼─┤
│２│21│22│23│
├─┼─┼─┼─┤
│３│31│32│33│
├─┼─┼─┼─┤
│４│41│42│43│
├─┼─┼─┼─┤
│５│51│52│53│
└─┴─┴─┴─┘

〔サンプルプログラム〕
Dim myArray1, myArray2 As Variant

myArray1 = ThisWorkbook.ActiveSheet.Range("A1:C5")
myArray2 = ThisWorkbook.ActiveSheet.Range("A1:A5,B1:B5,C1:C5") '指定が間違ってる？

MsgBox UBound(myArray1, 1) '結果 5
MsgBox UBound(myArray1, 2) '結果 3
MsgBox UBound(myArray2, 1) '結果 5
MsgBox UBound(myArray2, 2) '結果 1 → 3になって欲しい

No.2 回答者： n-jun 回答日時： 2013/07/03 21:51

連続した範囲ではないからでは？

なので　A1:A5　ここしか代入されていないから
そうなると思うのですが。。。

No.1 回答者： hirotn 回答日時： 2013/07/03 19:24

Range().Selectしてみると、実際に選択されている範囲が確認できるでしょう。

myArray2 = Union(Range(),Range(),Range()) ではいかがですか？

http://msdn.microsoft.com/ja-jp/library/office/f …