五个不同数字12345任意排列组合成5位数120种组合 公式或者VBA编辑器 怎么实现

Question

如题所述

Answer 1

代码如下：

Sub 排列()
For i1 = 1 To 5
   For i2 = 1 To 5
      If i1 <> i2 Then
         For i3 = 1 To 5
            If i1 <> i3 And i2 <> i3 Then
               For i4 = 1 To 5
                  If i1 <> i4 And i2 <> i4 And i3 <> i4 Then
                     For i5 = 1 To 5
                        If i1 <> i5 And i2 <> i5 And i3 <> i5 And i4 <> i5 Then
                           n = n + 1
                           Range("A" & n) = i1 & i2 & i3 & i4 & i5
                        End If
                     Next
                  End If
               Next
            End If
         Next
      End If
   Next
Next
End Sub