技术教程 编程教程 vba 数组判断与转换 正文

vba 数组判断与转换

2023-02-12,,,

Private Function CountArr(arr)
'*****************************
'计算数组是几维数组
'*****************************
Dim i%, j%
On Error GoTo err
For i = 1 To 10
　　j = UBound(arr, i)
Next i
CountArr = j
Exit Function

err:
　　CountArr = 1
　　On Error GoTo 0
End Function

Function TransposeArray(arrA) As Variant
'***************************************
'数组行列转换
'因Transpose无法处理NULL值，此函数可以处理
'但是最多不超过65536行
'***************************************
Dim aRes()
If VBA.IsArray(arrA) Then
　　ReDim aRes(LBound(arrA, 2) + 1 To UBound(arrA, 2) + 1, _
　　LBound(arrA, 1) + 1 To UBound(arrA, 1) + 1)

　　For i = LBound(arrA, 1) + 1 To UBound(arrA, 1) + 1
　　　　For j = LBound(arrA, 2) + 1 To UBound(arrA, 2) + 1
　　　　　　aRes(j, i) = arrA(i - 1, j - 1)
　　　　Next j
　　Next i
　　TransposeArray = aRes
End If
End Function

vba 数组判断与转换的相关教程结束。

《vba 数组判断与转换.doc》

下载本文的Word格式文档，以方便收藏与打印。

Copyright 2023. 昆居客 - IT编程,互联网信息技术文档大全!