龙空技术网

vb 、vba合并一个或多个数组到个新数组中

探索3000 183

前言:

现在朋友们对“java字节数组拼接”都比较着重,大家都想要了解一些“java字节数组拼接”的相关资讯。那么小编也在网上网罗了一些关于“java字节数组拼接””的相关内容,希望朋友们能喜欢,你们一起来了解一下吧!

'函数名: MergeArrays

'功能:合并一个或多个数组到个新数组中

'参数: ParamArray arrays ()Variant,包含一个或多个待合并数组的参数数组

返回值: Variant 类型的新数组

Function MergeArrays (ParamArray arrays () As Variant) As Variant

Dim mergedArray () As Variant ‘定义个 Variant 类型的新数组'

’计算所有待合并数组的总长度

Dim totalLength As Long

For Each arr In arrays

totalLength totalLength+UBound (arr)-LBound (arr)+1

Next arr

'重新调整新数组的大小以容纳所有元素

ReDim mergedArray (totalLength -1)

'将所有待合并数组中的元素复制到新数组中

Dim i As Long

For Each arr In arrays

For j=LBound (arr) To UBound (arr)

mergedArray (i)=arr (j)

i=i+1

Next j

Next arr

'返回合并后的新数组

MergeArrays=mergedArray

End Function

标签: #java字节数组拼接