及时D列每个单元格取号的数

不可说7625

D1=0135689，E1等于从D1里面取3个数组合，每个数可以取1次、2次、3次， 组合的数用空格隔开
0135689共7个数字，取000 001 003 005 006 008…… 999，共计7*7*7=343个组合方式

D2=012345789，E2等于000 001 002 003 004…… 999，共计9*9*9=729个组合方式

liulang0808

三层for循环，可以解决吧？

longwin

蓝桥玄霜

组合的例子：

LIUZHU

这组合没看懂，数字还可以重复？

不可说7625

longwin 发表于 2024-5-25 20:30

有的出现2位数，是啥问题？

不可说7625

longwin 发表于 2024-5-25 20:30

这个组合的数字不对，是啥问题？

longwin

不可说7625 发表于 2024-5-26 00:26
这个组合的数字不对，是啥问题？

源串里面有空格造成的

gwjkkkkk

Option Explicit
Sub TEST5()
    Dim vResult, ar, br, cr, i&, j&
   
    ar = Range("D1", Cells(Rows.Count, "D").End(xlUp)).Value
    ReDim vResult(1 To UBound(ar), 0)
    ReDim cr(1 To 3)
   
    For i = 1 To UBound(ar)
        If Len(ar(i, 1)) Then
            ReDim br(1 To Len(ar(i, 1)), 1 To 1)
            For j = 1 To UBound(br)
                br(j, 1) = Mid(ar(i, 1), j, 1)
            Next j
            For j = 1 To UBound(cr)
                cr(j) = br
            Next j
            vResult(i, 0) = Join(cartesianProduct3(cr))
        End If
    Next i
   
    Columns("E").ClearContents
    [E1].Resize(UBound(vResult)) = vResult
    Beep
End Sub
Function cartesianProduct3(ByVal ar) As Variant
    Dim br&(), cr, vResult(), iGroup&, i&, j&, m&, n&, x&
   
    n = UBound(ar)
    For i = 1 To UBound(ar)
         m = m + UBound(ar(i), 2)
    Next i
    ReDim br(1 To n)
    ReDim cr(1 To m)
    For j = 1 To n: br(j) = 1: Next

    iGroup = 0
    Do
        x = 0
        For j = 1 To n
            For i = 1 To UBound(ar(j), 2)
                x = x + 1
                cr(x) = ar(j)(br(j), i)
            Next i
        Next
        iGroup = iGroup + 1
        ReDim Preserve vResult(1 To iGroup)
        vResult(iGroup) = Join(cr, "")
        For j = n To 1 Step -1
            br(j) = br(j) + 1
            If br(j) <= UBound(ar(j)) Then Exit For Else br(j) = 1
        Next
    Loop Until j = 0
   
    cartesianProduct3 = vResult
End Function

gwjkkkkk

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