엑셀작업시

다음과같이

중간중간 내용이 비어있고

그 빈칸을 채워야할 경우가 있다.

(예 : 김철수 - 1235 - 차장 내용을 이영희가 나오기 전까지 자동으로)

​

예전엔 나도 일일이 하나하나 열을 셀렉트하고 드래그 하는 방식으로 진행했는데

찾아보니 간단한 VBA 스크립트를 이용하여 간단하게 해결가능하다!

​

1. Alt + F11 → VBA 편집기 열기

2.삽입 > 모듈 클릭 후 다음 코드 입력:

Sub FillBlanksFromAbove()

Dim rng As Range

Dim cell As Range

' 현재 선택한 열 범위 기준

Set rng = Selection

For Each cell In rng

If cell.Value = "" Then

cell.Value = cell.Offset(-1, 0).Value

End If

Next cell

End Sub

3. 닫고 엑셀로 돌아와서, 빈 칸을 채우고 싶은 범위 선택 후

4. Alt + F8 → FillBlanksFromAbove 실행

5. 짜잔! 원하는 범위의 내용이 자동으로 채워졌다.

이것으로 나의 퇴근시간이 10분이상 단축되길..^^