[엑셀 매크로/VBA] 셀 테두리를 따라서 셀 병합하기

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

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

 

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

 - 테두리로 되어있는 셀을 병합해서 보여주고 싶다면 활용하세요.

 - 단, 세로로만 작동합니다 (위/아래 테두리만 보고 병합합니다).

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

이렇게 테두리로 둘러쌓여있는 셀들을...

이렇게 병합해줍니다.

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

Sub Filldown_Upper_Lower_Border() 
'서로 다른 column에 대해 동일한 데이터를 입력하는 경우가 있지는 않을 것으로 가정합니다.
'Column 단위로 위아래만 조사
    Set StRng = Application.InputBox("범위", "어디서부터 시작할까요? (가장 첫번째 셀을 골라주세요)", Selection.Address, Type:=8) 
    EndNote = StRng.CurrentRegion.Rows.Count 
    Do Until StRng.Row >= EndNote 
        U = 0 
        B = 0 
        Do While StRng.Offset(-U, 0).Borders(xlEdgeTop).LineStyle <> xlContinuous 
            U = U + 1 
        Loop 
        Set Topcell = StRng.Offset(-U, 0) 
         
        Do While StRng.Offset(B, 0).Borders(xlEdgeBottom).LineStyle <> xlContinuous 
            B = B + 1 
        Loop 
        Set Bottomcell = StRng.Offset(B, 0) 
         
        StRng.Copy 
        Range(Topcell, Bottomcell).PasteSpecial Paste:=xlPasteValues 
        Set StRng = Bottomcell.End(xlDown) 
    Loop 
    MsgBox "Done" 
End Sub

 

 

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

https://mwoe.tistory.com/71

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