Excel에서 그룹을 기반으로 행을 하나의 셀로 연결하는 방법은 무엇입니까?

다음은 두 개의 열로 구성된 범위입니다. 하나는 수업 목록이고 다른 하나는 학생 이름 목록입니다. 보시다시피 일부 학생은 같은 반에 있고 일부는 그렇지 않습니다. 이제 아래 스크린 샷과 같이 같은 클래스의 학생들을 하나의 셀로 연결하고 싶습니다. Excel에서 어떻게 빠르게 처리 할 수 ​​있습니까?

수식 및 필터 기능으로 그룹화 및 연결

VBA 코드로 그룹화 및 연결

고급 결합 행으로 그룹화 및 연결

수식 및 필터 기능으로 그룹화 및 연결

Excel에서는 하나의 열을 기준으로 연결된 행에 수식을 적용한 다음 필터 기능을 사용하여 결과 만 표시 할 수 있습니다.

주의 사항: 단계를 수행하기 전에 클래스별로 데이터를 정렬해야합니다.

1. 데이터 범위 옆의 빈 셀 (예 : C13)에 다음 수식을 입력합니다. =IF(A13=A12,C12&", "&B13,B13), 언론 Enter 키를 누르고 채우기 핸들을 끌어 셀에 수식을 채 웁니다.

수식에서 A13은 "Class"열의 첫 번째 데이터이고, B13은 "Name"열의 첫 번째 데이터이고, ","는 연결 내용을 구분하는 구분 기호입니다.

2. 그런 다음 다음 열인 D13에 다음 수식을 입력합니다. =IF(A13<>A14,"Last","") 을 클릭하고 채우기 핸들을 아래로 끌어 필요한 셀에 수식을 적용합니다.

3. 이제 수식을 포함한 모든 데이터 범위를 선택하고 데이터 > Filter 추가 Filter icons 데이터에.

4. 을 클릭합니다 Filter icon 마지막 공식 헤더에서 Last 드롭 다운 목록에서만 확인란을 선택하고 OK.

이제 결과가 아래와 같이 표시되며, 필요하지 않은 경우 마지막 도우미 열을 제거 할 수 있습니다.

VBA 코드로 그룹화 및 연결

다음은이 작업도 처리 할 수있는 VBA 코드입니다.

1. 프레스 Alt + F11 활성화하는 키 Microsoft Visual Basic for Applications 창.

2. 그런 다음 창에서 Tools > References 사용하려면 References 대화 상자 및 확인 Microsoft Scripting Runtime. 스크린 샷보기 :

3. 클릭 OK그리고 클릭 Insert > Module VBA 창에서 복사하여 VBA 코드 아래에 붙여 넣습니다. Module 스크립트. 스크린 샷보기 :

VBA : 그룹을 기반으로 행을 하나의 셀로 연결

  Sub ConcatenateCellsIfSameValues()
'UpdatebyExtendoffice20180201
    Dim I As Long
    Dim J As Long
    Dim xRg As Range
    Dim xRgKey As Range
    Dim xRgVal As Range
    Dim xStr As String
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select data range", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRgKey = Application.InputBox("Select key column", "KuTools for Excel", xRg.Columns(1).Address, , , , , 8)
    If xRgKey Is Nothing Then
        MsgBox "Key column cannot be empty", vbInformation, "KuTools for Excel"
    End If
    Set xRgVal = xRg(1).Offset(, 1).Resize(xRg.Rows.Count, xRg.Columns.Count - 1)
    For I = 1 To xRgKey.Count
        If I > xRgKey.Count Then Exit For
        xStr = ""
        For J = 1 To xRgVal.Columns.Count
            xStr = xStr & " " & xRgVal(I, J)
        Next
        If xDic.Exists(xRgKey(I).Text) Then
            xDic(xRgKey(I).Text) = xDic(xRgKey(I).Text) & xStr
            xRgKey(I).EntireRow.Delete
            I = I - 1
       Else
            xDic.Add xRgKey(I).Text, xStr
        End If
    Next
    For I = 1 To xRgVal.Count
        xRgVal(I).Value = xDic(xRgKey(I).Text)
    Next
End Sub

4. 프레스 F5 키를 누르고 팝업 대화 상자에서 사용하는 데이터 범위를 선택하십시오.

5. 클릭 OK 그룹화 할 키 열을 선택합니다.

6. 클릭 OK, 이제 결과는 다음과 같이 표시됩니다.

고급 결합 행으로 그룹화 및 연결

다음은 유틸리티입니다. Excel 용 Kutools, Advanced Combine 행, 행을 결합하거나 Excel의 키 열을 기반으로 계산을 수행 할 수 있습니다.

설치 후 Excel 용 Kutools는 다음과 같이하십시오.（지금 Excel 용 Kutools 무료 다운로드!)

1. 사용하는 데이터 범위를 선택하고 Kutools > 병합 및 분할 > 고급 결합 행.

2. 에서 Advanced Combine Rows 창에서 행을 결합 할 기준이되는 열을 선택하고 Primary Key 키 열로 설정합니다.

3. 결합 할 열을 선택하고 Combine을 클릭하고 결합 된 콘텐츠를 구분하는 데 사용할 구분 기호를 하나 선택합니다.

4. 클릭 Ok. 결과는 다음과 같이 표시됩니다.

주의 사항: 유틸리티를 적용하기 전에 원본 데이터의 복사본이 있어야합니다.

  데모

최고의 사무 생산성 도구

Excel 용 Kutools는 대부분의 문제를 해결하고 생산성을 80 % 향상시킵니다.

• 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
• 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
• 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
• 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
• 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
• 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
• 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
• 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
• 300 개 이상의 강력한 기능. Office / Excel 2007-2019 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에 쉽게 배포 할 수 있습니다. 전체 기능 30 일 무료 평가판. 60 일 환불 보장.

자세히보기 ... 무료 다운로드... 매수... 

---

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

• Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
• 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
• 생산성을 50 % 향상시키고 매일 수백 번의 마우스 클릭을 줄입니다!

자세히보기 ... 무료 다운로드... 매수...