没有直接获得纬度的函数，可以探测，例如：On Error GoTo aaaFor i = 1 To 64 aa = UBound(Arr, i)NextExit Subaaa:MsgBox "维数＝ " & i - 1
