【ExcelVBA】ユーザー定義型に格納した配列の要素数を調べたい

Question

ユーザー定義型の中に格納した配列の要素数を調べたいです。
開いた別ファイルから取得してきた値をシートに貼り付けるだけの処理なのですが、
TypeC、Dにはそれぞれ下位分類があるため(例：対応状況―＜未対応／対応中／済＞)、定義型の中で値を配列として格納しています。

それをテーブルに貼り付ける際、For文で横にペーストしたいのですが、UBoundで要素数を取り出すことができません
””エラー9 インデックスが有効範囲にありません""

↓以下コードになります

--Class1--
Public TypeA As string
Public TypeB as long
Public TypeC as variant
Public TypeD as variant
'※CとDで配列の要素数が異なる


--Module1--
※★でエラー
Dim data as new Class1

'値の取得
With ActiveWorkbook.sheets(1)
    data.TypeA = "hoge"
    data.TypeB = 2
    data.TypeC = Range("AQ8:BD8")
    data.TypeD = Range("BE8:BJ8") 
end with

'値の貼り付け
With ThisWorkbook.sheets(1)
    .Cells(1,1) = data.TypeA
    .Cells(1,2) = data.TypeB
    
    Dim i as long
　　★for i = 1 to UBound(data.TypeC,1)　
        .Cells(1,3 +i-1) = data.TypeC(1,i)
    next
    Dim j as long
    Dim startColumn as long
    startColumn = .Cells(1,.Columns.Count).End(xlToLeft).Column +1
    ★for j = 1 to UBound(data.TypeD,1)
        .Cells(1,startColumn + j -1) = data.TypeD(1,j)
    next

※UBound(data.TypeC(1),1)試みたが同じエラー発生

※ローカルウィンドウ上、data -TypeCで展開すると
TypeC(1)
-TypeC(1,1)
-TypeC(1,2)..etc
と続いています。

基礎的な記法の質問のようにも思えますが、調べても見つけられませんでした。。
よろしくお願いいたします。

Answer 1

★のところでエラーになる理由はわかりませんが、気になったところ。

Rangeの前に.が必要では。

    'data.TypeC = Range("AQ8:BD8")
    'data.TypeD = Range("BE8:BJ8") 
    data.TypeC = .Range("AQ8:BD8")
    data.TypeD = .Range("BE8:BJ8") 

UBoundの対象にするのは2次元目かと。

'for i = 1 to UBound(data.TypeC,1)
for i = 1 to UBound(data.TypeC,2)

TypeDも同様。

Comments

[MitsuhiroN]

迅速な回答ありがとうございます！！！
次元数２で解決しました！！！