DB형식으로 빈칸(공백) 채우기
가끔 데이터를 받으면 누군가 깔끔하게 정리한답시고,
맨 윗줄에만 값을 넣어 놓는 경우가 있다.
회계팀에서 자주 그런다..
빈칸을 쉽게 채워보자.
연습이니만큼 상황을 쉽게 설정했다.
** DO - Loop 구문으로 처리했다.
[코드샘플]
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
이번에도 코드가 지저분 해졌는데,
되니까 된거지 뭐.