a=array(1,2,3) b=array(4,5,6) 希望生成一新的数组 c=array(14,15,16,24,25,26,34,35,36)

这里就需要用VBA来进行合并了：

Sub Test()
    Dim a, b, c
    Dim i%, j%, k%

    a = Array(1, 2, 3)
    b = Array(4, 5, 6)
    ReDim c(1 To (UBound(a) + 1) * (UBound(b) + 1))
    k = 0
    For i = 0 To UBound(a)
        For j = 0 To UBound(b)
            k = k + 1
            c(k) = a(i) & b(j)
        Next
    Next
End Sub