请问数字组合代码怎么写

ssassa44

如附件，想列出所有数组，代码要怎么写，谢谢了

pengyx

最后一位逢4进一对吗？其他位呢？

JX_shangrila

Dim a%, b&, c&, d%, e&, t%, arr, brr(30000)
Sub tx()
      t = 0
     Columns("h:h").ClearContents
     arr = Application.Transpose(Range("a1:e4"))
     Call b2(1, 1, 1, 1, 1)
     [h1].Resize(t + 1, 1) = Application.Transpose(brr)
End Sub
Function b2(a, b, c, d, e)
    If e > 4 Then d = d + 1: e = 1
    If d > 4 Then c = c + 1: d = 1
    If c > 4 Then b = b + 1: c = 1
    If b > 4 Then a = a + 1: b = 1
    If a > 4 Then Exit Function
    t = t + 1
    brr(t) = arr(1, a) & arr(2, b) & arr(3, c) & arr(4, d) & arr(5, e)
    Call b2(a, b, c, d, e + 1)
End Function