VBA 获取二维数组的行数和列数

　 Dim arr As Variant
　 ReDim arr(3, 4)
    Dim row As Long
    Dim col As Long
    row = UBound(arr, 1)
    col = UBound(arr, 2)