중복 없이 Excel에서 열의 텍스트를 결합하는 방법은 무엇입니까?

Excel에서 중복 없이 열의 텍스트를 셀에 결합하는 방법을 알고 있습니까? 특정 셀 값에 따라 열의 텍스트를 중복 없이 결합하려면 어떻게 해야 합니까? 이 문서에서는 이러한 문제를 해결하기 위한 방법을 제공합니다.

수식을 사용하여 열의 텍스트를 중복 없이 결합하기
VBA 코드를 사용하여 다른 셀 값에 따라 열의 텍스트를 중복 없이 결합하기
놀라운 도구를 사용하여 다른 셀 값에 따라 열의 텍스트를 쉽게 결합하기
셀 결합에 대한 추가 자습서…

수식을 사용하여 열의 텍스트를 중복 없이 결합하기

아래 스크린샷과 같이 열 A의 텍스트를 중복 없이 하나의 셀로 결합하려고 합니다. 다음 단계를 따르세요.

1. 빈 셀을 선택하고 아래 수식을 복사한 후 Alt + Shift + Enter 키를 동시에 누릅니다.

=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12, 0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, ""))

참고: 수식에서 “, ”는 결합된 텍스트의 구분 기호입니다; A2:A12는 결합할 열 셀입니다. 필요에 따라 변경하세요.

이제 지정된 열의 텍스트가 중복 없이 결합되었습니다.

VBA 코드를 사용하여 다른 셀 값에 따라 열의 텍스트를 중복 없이 결합하기

때로는 아래 스크린샷과 같이 다른 셀의 값에 따라 열의 텍스트를 중복 없이 결합해야 할 수도 있습니다. 다음과 같이 진행할 수 있습니다.

1. 결합할 텍스트가 포함된 워크시트에서 Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 Insert > Module을 클릭하고 아래 VBA 코드를 모듈 코드 창에 복사합니다.

VBA 코드: 다른 셀 값에 따라 열의 텍스트를 중복 없이 결합하기

Sub JoinTextsWithoutDuplicates()
'Updated by Extendoffice 20190924
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    Dim xValue
    Dim xStr, xStrValue As String
    Dim xB As Boolean
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xStrValue = xArr(I, 2)
           xB = True
            For Each xStr In Split(xArr(xDic.Item(xArr(I, 1)), 2), ",")
                If xStr = xStrValue Then
                    xB = False
                    Exit For
                End If
            Next
            If xB Then
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
            End If
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3. F5 키를 눌러 코드를 실행합니다. 팝업되는 Kutools for Excel 대화 상자에서 결합할 텍스트와 그 값을 포함하는 범위를 선택하고 확인 버튼을 클릭합니다.

그러면 고유한 값이 추출되고 해당하는 다른 열의 고유한 텍스트가 결합되어 새 워크시트에 배치됩니다.

놀라운 도구를 사용하여 다른 셀 값에 따라 열의 텍스트를 쉽게 결합하기

참고: 이 유틸리티는 원본 범위에 직접 적용되므로 아래 작업을 수행하기 전에 원본 데이터의 사본을 만들어 두세요.

1. (결합할 텍스트와 결합할 값을 포함하는) 범위를 선택하고 Kutools > 병합 및 분할 > 고급 행 병합을 클릭합니다.

2. 고급 행 병합 대화 상자에서 다음을 수행하세요:

• 텍스트를 결합할 값을 포함하는 열을 선택하고 기본 키를 클릭합니다;
• 셀에 결합할 텍스트를 포함하는 열을 선택하고 결합 > 쉼표를 클릭합니다;
• 남은 열이 있는 경우 조건을 지정하세요. 이 경우 Sales 열을 선택하고 계산 > 합계를 선택합니다.
• 확인 버튼을 클릭합니다. 스크린샷 보기:

그러면 지정된 열의 모든 텍스트가 키 열을 기준으로 결합됩니다. 스크린샷 보기:

관련 기사