[엑셀 매크로/VBA] 빈 칸이 끝날때까지 세로로 채워넣기

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

 

병합되었던 셀을 해제하면서 생긴 빈 칸을 모두 첫 줄 데이터로 채워서 넣어주는 매크로입니다.

 - 손으로 하려면 너무 귀찮아요...

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

 

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

깔끔하게 모두 채워줍니다.

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

Sub Filldown()
    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
        Range(StRng, StRng.End(xlDown).Offset(-1, 0)).Filldown
        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)).Filldown
    End If
End Sub

 

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

https://mwoe.tistory.com/71

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

https://mwoe.tistory.com/76