Excel에서 그룹을 기반으로 행을 하나의 셀로 연결하는 방법은 무엇입니까?
다음은 두 개의 열로 구성된 범위입니다. 하나는 수업 목록이고 다른 하나는 학생 이름 목록입니다. 보시다시피 일부 학생은 같은 반에 있고 일부는 그렇지 않습니다. 이제 아래 스크린 샷과 같이 같은 클래스의 학생들을 하나의 셀로 연결하고 싶습니다. Excel에서 어떻게 빠르게 처리 할 수 있습니까?
수식 및 필터 기능으로 그룹화 및 연결
Excel에서는 하나의 열을 기준으로 연결된 행에 수식을 적용한 다음 필터 기능을 사용하여 결과 만 표시 할 수 있습니다.
주의 사항: 단계를 수행하기 전에 클래스별로 데이터를 정렬해야합니다.
1. 데이터 범위 옆의 빈 셀 (예 : C13)에 다음 수식을 입력합니다. =IF(A13=A12,C12&", "&B13,B13), 언론 Enter 키를 누르고 채우기 핸들을 끌어 셀에 수식을 채 웁니다.
수식에서 A13은 "Class"열의 첫 번째 데이터이고, B13은 "Name"열의 첫 번째 데이터이고, ","는 연결 내용을 구분하는 구분 기호입니다.
2. 그런 다음 다음 열인 D13에 다음 수식을 입력합니다. =IF(A13<>A14,"Last","") 을 클릭하고 채우기 핸들을 아래로 끌어 필요한 셀에 수식을 적용합니다.
3. 이제 수식을 포함한 모든 데이터 범위를 선택하고 Data > 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, 이상과 300 편리한 기능으로 작업이 더 쉬워집니다. |
설치 후 Excel 용 Kutools는 다음과 같이하십시오.（지금 Excel 용 Kutools 무료 다운로드!)
1. 사용하는 데이터 범위를 선택하고 Kutools > 병합 및 분할 > 고급 결합 행.
2. 에서 Advanced Combine Rows 창에서 행을 결합할 열을 선택하고 클릭합니다. Primary Key 키 열로 설정합니다.
3. 결합해야 할 열을 선택하고 Combine을 클릭하고 결합된 콘텐츠를 구분하는 데 사용할 구분 기호 하나를 선택하세요.
 |
 |
 |
4. 클릭 Ok. 결과는 다음과 같이 표시됩니다.
주의 사항: 유틸리티를 적용하기 전에 원본 데이터의 복사본을 가지고 있는 것이 좋습니다.
Rescale과 함께 비즈니스를 가속화하는 방법에 대해 알아보세요.
최고의 사무 생산성 도구
| 🤖 | Kutools AI 보좌관: 다음을 기반으로 데이터 분석을 혁신합니다. 지능형 실행 | 코드 생성 | 사용자 정의 수식 만들기 | 데이터 분석 및 차트 생성 | Kutools 기능 호출... |
| 인기 기능: 중복 항목 찾기, 강조 표시 또는 식별 | 빈 행 삭제 | 데이터 손실 없이 열이나 셀 결합 | 수식없이 반올림 ... | |
| 슈퍼 조회: 다중 기준 VLookup | 다중 값 VLookup | 여러 시트에 걸친 VLookup | 퍼지 조회 .... | |
| 고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성 | 종속 드롭다운 목록 | 다중 선택 드롭 다운 목록 .... | |
| 열 관리자: 특정 개수의 열 추가 | 열 이동 | Toggle 숨겨진 열의 가시성 상태 | 범위 및 열 비교 ... | |
| 특색 지어진 특징: 그리드 포커스 | 디자인보기 | 큰 수식 바 | 통합 문서 및 시트 관리자 | 리소스 라이브러리 (자동 텍스트) | 날짜 선택기 | 워크 시트 결합 | 셀 암호화/해독 | 목록으로 이메일 보내기 | 슈퍼 필터 | 특수 필터 (굵게/기울임꼴/취소선 필터링...) ... | |
| 상위 15개 도구 세트: 12 본문 도구 (텍스트 추가, 문자 제거,...) | 50+ 거래차트 유형 (Gantt 차트,...) | 40+ 실용 방식 (생일을 기준으로 나이 계산,...) | 19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...) | 12 매출 상승 도구 (숫자를 단어로, 환율,...) | 7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...) | ... 그리고 더 |
Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다. 가장 필요한 기능을 얻으려면 여기를 클릭하십시오...
Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.
- Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
- 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
- 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
