VBA Macro/VBA Excel

[엑셀] 병합된 셀을 풀고 같은 내용으로 채우기

루아흐뉴마 2018. 1. 24. 00:42
반응형

매크로 설명

 
  • 병합된 셀을 풀어야 할 때가 있는데, 이 경우 첫 셀만 값이 남으므로 기분이 나쁘다.
  • 아래 매크로는 병합을 푼 셀의 나머지 셀에도 동일한 내용을 집어넣는 매크로이다.
  • 빈 셀이 있다면 문제가 있을 수 있다. 백업시트를 만들어둔 이후에 실행하길 추천한다.
  • 매크로 사용이 번거롭고 귀찮다면 추가기능을 활용할 수 있다. 추가기능 링크(클릭)


매크로 실행 동영상

 


VBA Code

 
Option Explicit 
Sub unMergeCells() 
Dim i As Long 
Dim myCol As Long 
Dim lastRow As Long  

With ActiveSheet.UsedRange     
	lastRow = .Row + .Rows.Count - 1 
End With  

For myCol = 1 To 3              '1~3열까지만 순환, 필요시 변경     
	For i = 2 To lastRow        '열머리가 있는 경우 2행부터 시작         
    	If Cells(i, myCol).MergeCells Then  '병합된 셀이면             
        	Cells(i, myCol).UnMerge             '병합 풀기         
		ElseIf Cells(i, myCol) = "" Then        '병합된 셀이 아닌데 빈 셀이면             
        	Cells(i, myCol) = Cells(i - 1, myCol)    '이전 셀의 내용 복사         
		End If    
	Next i 
Next myCol  
End Sub 



 Copyright (2018) Ruahneuma. All Rights Reserved.

 

반응형