Excel VBA 2次元配列UBound

以下のようなシーンで利用されます。

・実行時に動的に作成された配列のサイズを知りたい場合

・関数やサブルーチン内で、引数として渡された2次元配列のサイズを取得する場合

・ダイナミックなデータ処理で、2次元配列のサイズに応じて特定の操作を行いたい場合

Option Explicit

Sub GetArraySize()
    Dim myArray(1 To 3, 1 To 4) As Variant
    
    ' 行と列の上限を取得
    Dim rowCount As Integer
    Dim colCount As Integer
    
    rowCount = UBound(myArray, 1)
    colCount = UBound(myArray, 2)
    
    ' 結果の表示
    MsgBox "行の上限: " & rowCount & vbCrLf & "列の上限: " & colCount
End Sub