用excel如何排列组合

Sub Ioi()
    ar = [{1,2,3,4,5}]
    br = [{6,7,8,9,10}]
    cr = [{11,12,13,14,15}]
    For x = 1 To UBound(ar)
        For y = 1 To UBound(br)
            For Z = 1 To UBound(cr)
                xr = [d65536].End(3).Row + 1
                Range("d" & xr) = ar(x)
                Range("e" & xr) = br(y)
                Range("f" & xr) = cr(Z)
            Next
        Next
    Next
End Sub
再问： 不好意思啊，我再问一下，如果是ABC列，5个数据里面每次取3个数字，填到EDF里。

比如，如A列取123，B列取678，C列去111213，D、E、F就分别显示123、678、111213
再答： 没明白
再问： 本来是每列取1个数字，最后总共是3个数字。现在是每列取3个数字，最后总共9个数字。