Excel에서 다른 열에 동일한 값이 있는 경우 셀을 연결하는 방법은 무엇입니까?

아래 스크린샷에 표시된 것처럼 첫 번째 열의 동일한 값을 기준으로 두 번째 열의 셀을 연결하려는 경우 사용할 수 있는 여러 가지 방법이 있습니다. 이 문서에서는 이 작업을 수행하는 세 가지 방법을 소개합니다.

수식과 필터를 사용하여 동일한 값을 가진 셀 연결하기

다음 수식들은 다른 열의 일치하는 값을 기반으로 한 열의 해당 셀들을 연결하는 데 도움이 됩니다.

1. 두 번째 열 옆의 빈 셀을 선택합니다(여기서는 C2 셀을 선택). 수식 =IF(A2<>A1,B2,C1 & "," & B2)을 수식 표시줄에 입력하고 Enter 키를 누릅니다.

2. 그런 다음 C2 셀을 선택하고 연결하려는 셀까지 채우기 핸들을 드래그합니다.

3. D2 셀에 수식 =IF(A2<>A3,CONCATENATE(A2,",""",C2,""""),"")을 입력하고 나머지 셀까지 채우기 핸들을 드래그합니다.

4. D1 셀을 선택하고 데이터 > 필터를 클릭합니다. 스크린샷 참조:

5. D1 셀의 드롭다운 화살표를 클릭하고 (빈칸) 상자를 선택 해제한 후 확인 버튼을 클릭합니다.

첫 번째 열의 값이 동일한 경우 셀이 연결된 것을 볼 수 있습니다.

참고: 위의 수식을 성공적으로 사용하려면 A열의 동일한 값들이 연속적이어야 합니다.

Kutools for Excel을 사용하면 몇 번의 클릭만으로 동일한 값을 가진 셀을 쉽게 연결할 수 있습니다.

위에서 설명한 방법은 두 개의 보조 열을 생성해야 하고 여러 단계가 포함되어 불편할 수 있습니다. 더 간단한 방법을 찾고 있다면 Kutools for Excel의 고급 행 병합 도구를 고려해보세요. 특정 구분 기호를 사용하여 셀을 연결할 수 있어 과정이 빠르고 번거롭지 않습니다.

1. Kutools > 병합 및 분할 > 고급 행 병합을 클릭하여 이 기능을 활성화합니다.

2. 고급 행 병합 대화상자에서 다음을 수행하기만 하면 됩니다:

• 연결하려는 범위를 선택합니다;
• 동일한 값을 가진 열을 키 열로 설정합니다.
• 셀을 결합하기 위한 구분 기호를 지정합니다.
• 확인을 클릭합니다.

결과

VBA 코드를 사용하여 동일한 값을 가진 셀 연결하기

또한 VBA 코드를 사용하여 다른 열에 동일한 값이 있는 경우 열의 셀을 연결할 수 있습니다.

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

2. Microsoft Visual Basic Applications 창에서 삽입 > 모듈을 클릭합니다. 그런 다음 아래 코드를 모듈 창에 복사하여 붙여넣습니다.

VBA 코드: 동일한 값을 가진 셀 연결하기

Sub ConcatenateCellsIfSameValues()
	Dim xCol As New Collection
	Dim xSrc As Variant
	Dim xRes() As Variant
	Dim I As Long
	Dim J As Long
	Dim xRg As Range
	xSrc    = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
	Set xRg = Range("D1")
	On Error Resume Next
	For I = 2 To UBound(xSrc)
		xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
	Next I
	On Error GoTo 0
	ReDim xRes(1 To xCol.Count + 1, 1 To 2)
	xRes(1, 1) = "No"
	xRes(1, 2) = "Combined Color"
	For I = 1 To xCol.Count
		xRes(I + 1, 1) = xCol(I)
		For J = 2 To UBound(xSrc)
			If xSrc(J, 1) = xRes(I + 1, 1) Then
				xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
			End If
		Next J
		xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
	Next I
	Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
	xRg.NumberFormat = "@"
	xRg = xRes
	xRg.EntireColumn.AutoFit
End Sub

참고:

3. 코드를 실행하기 위해 F5 키를 누르면 지정된 범위에서 연결된 결과를 얻을 수 있습니다.

데모: Kutools for Excel을 사용하여 동일한 값을 가진 셀을 쉽게 연결하기