Public Function NumberOfArrayDimensions(arr As Variant) As Integer
Dim Ndx As Integer
Dim Res As Integer
On Error Resume Next
Do
Ndx = Ndx + 1
Res = UBound(arr, Ndx)
Loop Until Err.Number <> 0
NumberOfArrayDimensions = Ndx - 1
End Function
VBA数组维数
最新推荐文章于 2024-07-06 22:58:00 发布