UDF用于连接两个阵列VBA Excel中的元素
问题描述:
假设有两个一维数组它们中的每含有3种元素作为遵循UDF用于连接两个阵列VBA Excel中的元素
A 1
2 3
B C
一个人如何将两者连接起来的阵列与元件的单个阵列
A1
23
BC
通过使用&或CONCATENATE函数在表单操作中很容易做到这一点,但是如何在数组中执行此操作?
答
迭代通过数组并将它们组合成第三:
Sub foooooo()
Dim arr1() As Variant
Dim arr2() As Variant
Dim outArr() As Variant
arr1 = Array("A", "2", "B")
arr2 = Array("1", "3", "C")
ReDim outArr(UBound(arr1))
For i = LBound(arr1) To UBound(arr1)
outArr(i) = arr1(i) & arr2(i)
Next i
Debug.Print Join(outArr, ",")
End Sub
,如果你需要使用一次以上,创造一个功能它可能是有益的。 '函数concatArrays(arr1()As Variant,arr2()As Variant)As Variant' –
@MichaelRusso我会让OP做到这一点,我只是给出了概念验证。由于OP没有包含他自己的任何代码,因此很难准确推断出需要什么,输出的类型和地点。所以我给了OP可以得到任何需要的骨干。 –
我并不是暗示你没有给出完整的回答,因为你做到了。我只是想给另一个选择。它不需要另一个答案,因为你已经回答了。 –