Excel에서 모든 순열을 생성하는 방법

Written by

Editorial Team

Reviewed by

Laura Tsitlidze

Last updated on 10월 18, 2023

이 튜토리얼에서는 Excel에서 모든 순열을 생성하는 방법을 설명합니다.

vba 순열 인트로

모든 순열 생성

VBA 매크로를 사용하면 주어진 문자 집합의 가능한 모든 순열을 생성할 수 있습니다. 작은 코드를 만들고 입력 문자를 입력하기만 하면 됩니다.

리본메뉴에서 개발 도구 > Visual Basic으로 이동합니다. 이 탭을 사용할 수 없는 경우 개발도구 탭을 추가하는 방법을 알아보세요.

vba 순열 개발도구

VBA 창에서 삽입 > 모듈로 이동합니다.

vba 순열 모듈

오른쪽의 코드 창에 다음 코드를 붙여 넣고 저장합니다.

Sub 문자열가져오기()
    Dim xStr As String
    Dim FRow As Long
    Dim xScreen As Boolean
    xScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xStr = Application.InputBox("순열할 텍스트를 입력하세요.:", "순열", , , , , 2)
    If Len(xStr) < 2 Then Exit Sub
    If Len(xStr) >= 8 Then
        MsgBox "순열이 너무 많습니다!", vbInformation, "순열"
        Exit Sub
    Else
        ActiveSheet.Columns(1).Clear
        FRow = 1
        Call 순열가져오기("", xStr, FRow)
    End If
    Application.ScreenUpdating = xScreen
End Sub
Sub 순열가져오기(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 순열가져오기(Str1 Mid(Str2, i, 1), Left(Str2, i - 1) Right(Str2, xLen - i), xRow)
        Next
    End If
End Sub

vba 순열 생성 코드