首页 > TAG信息列表 > lbound
vba 数组判断与转换
Private Function CountArr(arr)'*****************************'计算数组是几维数组'*****************************Dim i%, j%On Error GoTo errFor i = 1 To 10 j = UBound(arr, i)Next iCountArr = jExit Function err: CountArr = 1 On Error GoTo 0End