[엑셀 매크로/VBA] 빈 칸이 끝날때까지 셀 병합하기

엑셀로 해결할 수 없는 기능은 VBA/매크로를 쓰시는게 맞습니다.

 - 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :)

 

한 줄에 대해, 빈 칸을 세로로 전부 병합해서 보여줍니다.

 - 셀을 병합해서 보여주고 싶다면 활용하세요.

*(주의) 매크로로 바뀌는 내용은 "되돌리기 (Ctrl + Z)"로 복구되지 않습니다. 꼭! 사본으로 진행하세요.

이렇게 중간중간 빈 데이터를......

이렇게 병합해줍니다.

=========아래를 붙여넣기 하세요==========

Sub Mergedown() 
    Set StRng = Application.InputBox("범위", "어디서부터 시작할까요? (가장 첫번째 셀을 골라주세요)", Selection.Address, Type:=8) 
    Set EdRng = StRng 
    EndNote = StRng.CurrentRegion.Rows.Count 
    EndNote_C = StRng.Column 
    ACol = StRng.Columns.Count 
    ARow = StRng.Rows.Count 
    Do Until EdRng.Row > EndNote 
        StRng.Select 
        Range(StRng, StRng.End(xlDown).Offset(-1, 0)).Select 
        Range(StRng, StRng.End(xlDown).Offset(-1, 0)).Merge 
        Set StRng = StRng.End(xlDown).Resize(ARow, ACol) 
        Set EdRng = StRng.End(xlDown) 
        StRng.Select 
    Loop 
    If EndNote <> StRng.Row Then 
        Range(StRng, Cells(EndNote, EndNote_C)).Merge 
    End If 
End Sub

 

===============================

https://mwoe.tistory.com/71

[매크로/VBA] 매크로 코드를 실행하는 법