Excel에서 모든 가능한 순열을 생성하거나 나열하려면 어떻게 해야 하나요?

예를 들어, XYZ라는 세 글자가 있을 때, 이 세 글자에 기반하여 여섯 가지 다른 결과를 얻기 위해 모든 가능한 순열을 나열하고 싶습니다. 즉, XYZ, XZY, YXZ, YZX, ZXY 및 ZYX와 같은 결과를 얻고자 합니다. Excel에서는 다양한 글자 수에 따라 모든 순열을 빠르게 생성하거나 나열하려면 어떻게 해야 할까요?

VBA 코드를 사용하여 문자에 기반한 모든 가능한 순열 생성 또는 나열하기

VBA 코드를 사용하여 문자에 기반한 모든 가능한 순열 생성 또는 나열하기

다음 VBA 코드는 특정 글자 수에 따라 모든 순열을 나열하는 데 도움이 될 수 있습니다. 아래 단계를 따르세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

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. 문자를 입력한 후 확인 버튼을 클릭하면, 활성 워크시트의 A 열에 모든 가능한 순열이 표시됩니다. 스크린샷 참조:

참고: 입력된 문자 길이가 8자 이상인 경우 이 코드는 너무 많은 순열로 인해 작동하지 않습니다.