Excel에서 단일 열의 모든 가능한 조합을 나열하려면 어떻게 해야 하나요?

아래 스크린샷에 표시된 것처럼 단일 열 데이터에서 모든 가능한 조합을 반환하여 결과를 얻으려는 경우, Excel에서 이 작업을 처리하기 위한 빠른 방법이 있나요?

수식을 사용하여 단일 열의 모든 가능한 조합 나열하기

VBA 코드를 사용하여 단일 열의 모든 가능한 조합 나열하기

수식을 사용하여 단일 열의 모든 가능한 조합 나열하기

다음 배열 수식은 이 작업을 수행하는 데 도움이 될 수 있습니다. 아래 단계를 따라 주세요:

1. 먼저 두 개의 보조 수식 셀을 만들어야 합니다. C1 셀에 다음 수식을 입력하고 Ctrl + Shift + Enter 키를 눌러 결과를 얻으세요:

2. C2 셀에 다음 수식을 입력하고 Ctrl + Shift + Enter 키를 함께 눌러 두 번째 결과를 얻으세요. 스크린샷을 참조하세요:

3. 그런 다음 D2 셀에 다음 수식을 복사하여 붙여넣고 Ctrl + Shift + Enter 키를 함께 눌러 첫 번째 결과를 얻으세요. 스크린샷을 참조하세요:

4. 그리고 이 수식 셀을 선택한 후, 빈 셀이 나타날 때까지 채우기 핸들을 아래로 드래그하세요. 이제 지정된 열 데이터의 모든 조합이 아래 데모에 표시된 대로 표시됩니다:

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

VBA 코드를 사용하여 단일 열의 모든 가능한 조합 나열하기

위의 수식은 최신 Excel 버전에서만 사용할 수 있으며, 이전 Excel 버전을 사용 중인 경우 다음 VBA 코드가 도움이 될 수 있습니다.

1. Alt+ F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. 그런 다음, 삽입 > 모듈을 클릭하고 아래 VBA 코드를 창에 복사하여 붙여넣습니다.

VBA 코드: 단일 열의 모든 가능한 조합 나열하기

Sub ConnectArr()
'Updateby ExtendOffice
Dim xDValue As Variant
Dim xOutRg As Range
Dim xDictionary As Object
Dim xF As Long
Dim xChar As String
xDValue = Range("A2:A6").Value 'the data range
Set xOutRg = Range("C1") 'output range
xChar = "," 'separator
For xF = 1 To UBound(xDValue)
    Set xDictionary = CreateObject("Scripting.Dictionary")
    xDictionary(0) = "Sets of " & xF
    Call ConnectValue(xDValue, xDictionary, 0, xF, 0, "", xChar)
    xOutRg.Offset(0, xF - 1).Resize(xDictionary.Count).Value = WorksheetFunction.Transpose(xDictionary.Items)
    Set xDictionary = Nothing
Next
End Sub
Sub ConnectValue(ByRef pDValue, ByRef pDictionary, ByRef pLevel, ByVal pMaxLevel, ByVal pIndex, ByVal pValue, ByVal pChar)
Dim xF As Long
If pLevel = pMaxLevel Then
    pDictionary(pDictionary.Count + 1) = pValue
    Exit Sub
End If
For xF = pIndex + 1 To UBound(pDValue)
    If pValue = "" Then
        Call ConnectValue(pDValue, pDictionary, pLevel + 1, pMaxLevel, xF, pDValue(xF, 1), pChar)
    Else
        Call ConnectValue(pDValue, pDictionary, pLevel + 1, pMaxLevel, xF, pValue & pChar & pDValue(xF, 1), pChar)
    End If
Next
End Sub

3. 그리고 F5 키를 눌러 이 코드를 실행합니다. 단일 열의 모든 조합이 아래 스크린샷에 표시된 대로 나열됩니다: