如何把两个数组用&连接，合并成一个新数组

回眸醉倾心ヾ

各位老师好！
我想把数组[A1:A5]和数组[B1:B5]，合并成一个新数组[C1:C5]
[A1:A5]={A1,A2,A3,A4,A5}
[B1:B5]={B1,B2,B3,B4,B5}
想要的结果：
[C1:C5]={A1B1,A2B2,A3B3,A4B4,A5B5}

使用arr(c)=arr(a) & arr(b) 或者arr(c)=arr(a)+ arr(b)，“提示类型不匹配”

请各位老师施以援手，谢谢！

回眸醉倾心ヾ

试出来了，要把crr设置成一个相同维度的数组，才能进行相连。

lrh788

你写出来我们学习下

shi353

Sub zzz1()
Dim A()
[E1:E100].ClearContents
arr = [A1].CurrentRegion
arr1 = Application.Index(arr, , 1)
arr2 = Application.Index(arr, , 2)
'--------------------------------
ReDim A(1 To UBound(arr1))
For i = 1 To UBound(A)
    A(i) = arr1(i, 1) & "|" & arr2(i, 1)
Next
'--------------------------------
S = Join(A, Chr(13))
MsgBox S
'--------------------------------
A = Application.Transpose(A)
[E1].Resize(UBound(A), 1) = A
End Sub

回眸醉倾心ヾ

shi353 发表于 2018-3-29 22:36
Sub zzz1()
Dim A()
[E1:E100].ClearContents

谢谢~Redim A(1 to ubound)是把A变成一个和arr1和arr2一样的一维数组吧？可以放置在分割线上面吗？A(i)就是A（i，1）。直接转置数组，我把数组添加到字典里了，然后转置关键字到[E1]

gelisiman

最后怎么实现的？ 写出来我们学习下，谢谢

约定的童话

lrh788 发表于 2018-3-29 22:31
你写出来我们学习下

..........................................

chentonny

用&连接，这想法好！