15选4的排列方式如何用excel体现宏代码怎么修改

关键字：excel 更新时间：2019-01-02 13:39:08 120次访问

15选4的排列方式如何用excel体现 宏代码怎么修改   谢谢

=FACT(15)/FACT(11)

=32760   

太多了，没有什么用处。

Sub p15x4()
I = 1
J = 1
For A = 1 To 15
  For B = 1 To 15
    For C = 1 To 15
      For D = 1 To 15
        If A <> B And A <> C And A <> D And _
                    B <> C And B <> D And _
                             C <> D Then
             Cells(J, A + 1) = Chr(64 + A) + _
                        Chr(64 + B) + _
                        Chr(64 + C) + _
                        Chr(64 + D)
                        J = J + 1
                        End If
      Next
    Next
  Next
  J = 1
Next
End Sub

相关标签：excel