用VBA如何把两个一维数组aaa,bbb合成一个数组ddd

02761752696

laoau128 发表于 2018-11-21 16:36
还有一个问题，这里不能用一个循环

Sub Array_Merge()

10楼  一个循环   哈哈

laoau128

02761752696 发表于 2018-11-21 16:48
合并  输出  行和列  哈哈  初学........
Sub 两个数组如何合成一个数组()
Dim aaa, bbb, crr(1 To 15)

用for each循环如何做
还有能不能   ddd= array(aaa,bbb)

yaozong

Sub 两个数组如何合成一个数组()
  Dim aaa, bbb, ab, s$
  aaa = Array(1, 2, 3, 4, 5, 6)
  bbb = Array("AA", "BB", "CC", "DD", "EE")
  s = Join(aaa, ",") & "," & Join(bbb, ",")
  ab = Split(s, ",")
  [a1].Resize(UBound(ab) + 1) = Application.Transpose(ab)
  [c1].Resize(, UBound(ab) + 1) = ab
End Sub

laoau128

02761752696 发表于 2018-11-21 16:48
合并  输出  行和列  哈哈  初学........
Sub 两个数组如何合成一个数组()
Dim aaa, bbb, crr(1 To 15)

果然是高手

laoau128

zhenghui13 发表于 2018-11-21 15:56
根据上面用循环改写的，union好像只能合并工作薄的区域
如果数组很多的话，可以考虑多维数组的形式，就是 ...

写得非常好   果然是高手

laoau128

yaozong 发表于 2018-11-21 19:52
Sub 两个数组如何合成一个数组()
  Dim aaa, bbb, ab, s$
  aaa = Array(1, 2, 3, 4, 5, 6)

高手啊这个

zhangcheng6688

yaozong 发表于 2018-11-21 19:52
Sub 两个数组如何合成一个数组()
  Dim aaa, bbb, ab, s$
  aaa = Array(1, 2, 3, 4, 5, 6)

join......

huazai688

zhenghui13 发表于 2018-11-21 15:56
根据上面用循环改写的，union好像只能合并工作薄的区域
如果数组很多的话，可以考虑多维数组的形式，就是 ...

假如aaa在sheet1表中的A1:A6区域、bbb在sheet2表中的B5:B9区域，想实现一样的效果，代码该做如何修改?我参照上述代码改了一下，运行不成功，恳请大师帮忙，谢谢！
Sub 两个数组如何合成一个数组()
   
    Dim aaa(), bbb()
    Dim ddd
    Dim i&, j&, k&
    Dim m&, n&
   
    aaa = Sheet1.Range("a1:a6")
    bbb = Sheet2.Range("b1:b5")
    ddd = Array(aaa, bbb)
   
   
With Sheet1
    m = 0: n = 3
   
  '  .Cells.ClearContents '清除
    For i = 0 To UBound(ddd)
        For j = 0 To UBound(ddd(i))
      
        m = m + 1
        .Cells(m, 3) = ddd(i)(j) '纵向
      
        n = n + 1
        .Cells(1, n) = ddd(i)(j) '横向
        Next j
    Next i
End With

End Sub