Dim Var(3 To 5, -2 To 1) As Integer '第2引数を省略すると1次元の値を表示します。 Debug.Print "1次元 添字下限:" & LBound(Var) Debug.Print "1次元 添字上限:" & UBound(Var) '2次元 Debug.Print "2次元 添字下限:" & LBound(Var, 2) Debug.Print "2次元 添字上限:" & UBound(Var, 2) '実行結果 1次元 添字下限:3 1次元 添字上限:5 2次元 添字下限:-2 2次元 添字上限:1