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

排列可以定义为按特定顺序排列对象。在本文中，用户将了解使用VBA代码生成排列的方法。为此，用户需要打开VBA的代码编辑器，然后简单地点击“确定”按钮。最后，运行编写的代码，排列序列将正常显示在工作表上。请参考所有列出的步骤，以了解完整的方法。

示例1：使用VBA代码在Excel中生成或列出所有可能的排列组合

步骤 1

理解在Excel中生成所有可能排列的过程。在这个例子中，用户将能够通过使用VBA代码计算所有可能的排列组合。 考虑下面给定的工作表 –

步骤 2

前往“开发人员”选项卡，然后在“代码”部分下转到“Visual Basic”选项卡。请参考下面给出的图像以获得正确的参考。

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

步骤 3

新打开的对话框是“Microsoft Visual Basic for Applications”。这将打开下面给出的代码窗口。 −

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

步骤 4

在对话框中，打开“插入”选项，然后单击“模块”。请参考下面所示的图像。

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

步骤 5

这将打开一个空白的代码区域。 −

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

步骤 6

将以下代码输入编辑器中 –

' define function header
Sub Evaluating_String()
   'Declaring required variables
   Dim str_x As String
   Dim row_f As Long
   Dim sc_x As Boolean
   ' setting required parameter values
   sc_x = Application.ScreenUpdating
   Application.ScreenUpdating = False
   ' message to display for dialog box
   str_x = Application.InputBox("Enter text to permute:", "Input dialog box", , , , , , 2)
   ' if length of entered string is less than 2
      ' then exist the sub
   If Len(str_x) < 2 Then Exit Sub
      ' if len is greater than 8, then
   If Len(str_x) >= 8 Then
      ' print message for too many premutations
      MsgBox "Please eneter less than 8 word combination!!!!!", vbInformation, "Input dialog box"
      Exit Sub
   ' else block
   Else
      'clear column 1 data
      ActiveSheet.Columns(1).Clear
      'set 1 to row_f value
      row_f = 1
      ' calling GetPermutation
      Call GetPermutation("", str_x, row_f)
   End If
      Application.ScreenUpdating = sc_x
End Sub
' defining submodule
Sub GetPermutation(str_1 As String, str_2 As String, ByRef row_x As Long)
   Dim i As Integer, len_x As Integer
   ' calculating the required length
   len_x = Len(str_2)
   ' if expression
   If len_x < 2 Then
      ' calculating range data
      Range("A" & row_x) = str_1 & str_2
      row_x = row_x + 1
   ' else block
   Else
      ' for each block
      For i = 1 To len_x
         ' calling permutation
         Call GetPermutation(str_1 + Mid(str_2, i, 1), Left(str_2, i - 1) + Right(str_2, len_x - i), row_x)
      Next
   End If
End Sub