Excel에서 셀 병합을 해제하고 중복 값으로 채우는 방법은 무엇입니까?

병합된 셀이 많이 포함된 워크시트가 있고, 이제 이를 해제하고 병합된 셀의 원래 값을 아래로 자동으로 채워야 한다고 가정해 봅시다. 다음 스크린샷에 나온 것처럼요. 이 작업을 어떻게 신속하게 처리할 수 있을까요?

'특정 셀로 이동' 명령을 사용하여 셀 병합 해제 및 중복 데이터로 채우기

VBA 코드를 사용하여 셀 병합 해제 및 중복 데이터로 채우기

한 번의 클릭으로 셀 병합 해제 및 중복 데이터로 채우기

'특정 셀로 이동' 명령을 사용하여 셀 병합 해제 및 중복 데이터로 채우기

'특정 셀로 이동' 명령을 사용하면 셀 병합을 해제하고 값을 아래로 채울 수 있습니다. 그러나 이 방법은 다소 번거로울 수 있으므로 다음 단계를 따르세요:

1. 병합된 셀이 있는 열을 선택합니다.

2. 홈 > 병합 및 가운데 정렬 > 셀 병합 해제를 클릭합니다. 스크린샷 보기:

3. 그리고 병합된 셀이 해제되었으며 첫 번째 셀만 원래 값으로 채워집니다. 그런 다음 범위를 다시 선택합니다.

4. 그런 다음 홈 > 찾기 및 선택 > 특정 셀로 이동을 클릭합니다. '특정 셀로 이동' 대화 상자에서 빈 셀 옵션을 선택합니다. 스크린샷 보기:

5. 그런 다음 확인을 클릭하면 범위 내의 모든 빈 셀이 선택됩니다. 그런 다음 = 을 입력하고 키보드의 위쪽 화살표 키를 누릅니다. 스크린샷 보기:

6. 그런 다음 Ctrl + Enter 키를 누르면 모든 빈 셀이 원래 병합된 데이터로 채워집니다. 스크린샷 보기:

VBA 코드를 사용하여 셀 병합 해제 및 중복 데이터로 채우기

다음 VBA 코드를 사용하면 셀 병합을 해제하고 값을 아래로 빠르게 채울 수 있습니다.

1. ALT + F11 키를 누르면 Microsoft Visual Basic for Applications 창이 열립니다.

2. 삽입 > 모듈을 클릭하고 모듈 창에 다음 매크로를 붙여넣습니다.

Sub UnMergeSameCell()
'Upadateby Extendoffice
Dim Rng As Range, xCell As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Rng In WorkRng
    If Rng.MergeCells Then
        With Rng.MergeArea
            .UnMerge
            .Formula = Rng.Formula
        End With
    End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. 그런 다음 F5 키를 눌러 이 코드를 실행하면 작업할 범위를 선택하기 위한 대화 상자가 표시됩니다. 스크린샷 보기:

4. 확인을 클릭하면 병합된 셀이 해제되고 원래 병합된 값이 아래로 자동으로 채워집니다.

한 번의 클릭으로 셀 병합 해제 및 중복 데이터로 채우기

Kutools for Excel의 셀 병합 해제 기능을 사용하면 한 번의 클릭으로 셀 병합을 해제하고 중복 데이터로 채울 수 있으며, 이 방법은 매우 간단하고 편리합니다.

Kutools for Excel 설치 후 다음과 같이 하세요:

1. 데이터를 아래로 채우려는 열을 선택합니다.

2. Kutools > 병합 및 분할 > 셀 병합 해제 및 값 채우기를 클릭합니다. 스크린샷 보기:

3. 그리고 병합된 셀이 즉시 해제되고 중복 값으로 채워집니다. 스크린샷 보기:

Kutools for Excel을 사용하여 셀 병합 해제 및 중복 데이터로 채우기

관련 기사:

Excel에서 동일한 데이터로 인접 행 병합하기