For i = 1 To UBound(arr)
Next
Public Function 数组连接(arr, brr) '将arr,brr数组连接起来返回新数组
Dim i&, j&, crr
ReDim crr(1 To UBound(brr) - LBound(brr) + UBound(arr) - LBound(arr) + 2)
For i = LBound(arr) To UBound(arr)
j = j + 1: crr(j) = arr(i)
Next
For i = LBound(brr) To UBound(brr)
j = j + 1: crr(j) = brr(i)
Next
数组连接 = crr
End Function
VBA数组循环
最新推荐文章于 2024-09-14 22:07:12 发布