通过一个实例来介绍excel数字排列组合公式的写法

办公教程导读

收集整理了【通过一个实例来介绍excel数字排列组合公式的写法】办公软件教程，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1238字，纯文字阅读大概需要2分钟。

办公教程内容图文

Sub 排列组合公式()
Dim II%, I%, J%, K%, L%, M%
Dim Srt1$, Srt2$, Srt3$, Srt4$, Srt5$
Dim TStr1$, TStr2$, TStr3$, TStr4$
Dim t, arr()
Const FullStr = "9876543"
t = Timer
II = 0
For I = 1 To 7
    Srt1 = Mid(FullStr, I, 1)
    TStr1 = Replace(FullStr, Srt1, "")
    For J = 1 To 6
        Srt2 = Mid(TStr1, J, 1)
        TStr2 = Replace(TStr1, Srt2, "")
        For K = 1 To 5
            Srt3 = Mid(TStr2, K, 1)
            TStr3 = Replace(TStr2, Srt3, "")
            For L = 1 To 4
                Srt4 = Mid(TStr3, L, 1)
                TStr4 = Replace(TStr3, Srt4, "")
                For M = 1 To 3
                    Srt5 = Mid(TStr3, M, 1)
                    II = II + 1
                    ReDim Preserve arr(1 To II)
                    arr(II) = Srt1 & Srt2 & Srt3 & Srt4 & Srt5
                Next
            Next
        Next
    Next
Next
Range("A1:A" & II) = Application.Transpose(arr)
End Sub

办公教程总结

以上是为您收集整理的【通过一个实例来介绍excel数字排列组合公式的写法】办公软件教程的全部内容，希望文章能够帮你了解办公软件教程通过一个实例来介绍excel数字排列组合公式的写法。
如果觉得办公软件教程内容还不错，欢迎将网站推荐给好友。