DB형식으로 빈칸(공백) 채우기

가끔 데이터를 받으면 누군가 깔끔하게 정리한답시고, 맨 윗줄에만 값을 넣어 놓는 경우가 있다.
또는 피벗테이블의 값을 복사하는 경우 그렇지.

빈칸을 쉽게 채워보자.

연습이니만큼 상황을 쉽게 설정했다.

myimg



Sub wordDBFill()

Do

If ActiveCell.value <> "" Then
    ActiveCell.Offset(1, 0).Activate
Else
    ActiveCell.value = ActiveCell.End(xlUp).value
    ActiveCell.Offset(1, 0).Activate
End If 

Loop Until ActiveCell.Offset(0, 1).value = ""

End Sub


이번에도 코드가 지저분 해졌는데,
되니까 된거지 뭐.

끝.