如何在Excel中生成或列出所有可能的排列？

如何在Excel中生成或列出所有可能的排列？

例如，我有三个字符XYZ，现在，我想基于这三个字符列出所有可能的排列，以获得六个不同的结果，例如：XYZ，XZY，YXZ，YZX，ZXY和ZYX。 在Excel中，如何根据不同的字符数快速生成或列出所有排列？

使用VBA代码根据字符生成或列出所有可能的排列

使用VBA代码根据字符生成或列出所有可能的排列

以下VBA代码可以帮助您根据字母的具体数量列出所有排列，请执行以下操作：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块，然后将以下代码粘贴到 模块 窗口。

VBA代码：列出excel中所有可能的排列

Sub GetString() Updateby Extendoffice Dim xStr As String Dim FRow As Long Dim xScreen As Boolean xScreen = Application.ScreenUpdating Application.ScreenUpdating = False xStr = Application.InputBox("Enter text to permute:", "Kutools for Excel", , , , , , 2) If Len(xStr) < 2 Then Exit Sub If Len(xStr) >= 8 Then MsgBox "Too many permutations!", vbInformation, "Kutools for Excel" Exit Sub Else ActiveSheet.Columns(1).Clear FRow = 1 Call GetPermutation("", xStr, FRow) End If Application.ScreenUpdating = xScreen End Sub Sub GetPermutation(Str1 As String, Str2 As String, ByRef xRow As Long) Dim i As Integer, xLen As Integer xLen = Len(Str2) If xLen < 2 Then Range("A" & xRow) = Str1 & Str2 xRow = xRow + 1 Else For i = 1 To xLen Call GetPermutation(Str1 + Mid(Str2, i, 1), Left(Str2, i - 1) + Right(Str2, xLen - i), xRow) Next End If End Sub

3。 然后按 F5 键以运行此代码，并弹出一个提示框，提醒您输入要列出所有排列的字符，请参见屏幕截图：

4。 输入字符后，再单击 OK 按钮，所有可能的排列都显示在活动工作表的A列中。 看截图：

备注：如果输入的字符长度等于或大于8个字符，则此代码将无效，因为排列过多。