[VBA기초] 빈셀일 경우 윗셀의 내용으로 채우기

빈셀일 경우 윗셀의 내용으로 채우기

엑셀 작업을 하다보면 셀을 병합하거나 해제 등의 작업을 하게 됩니다.

이럴 때 편리하게 사용할 수 있는 간단한 VBA 코드입니다.

수정할 부분은 분홍색 구간범위 입니다.

Sub BlankCell_and_Fill()
'// 빈셀일 경우 윗셀의 내용으로 채우기
    Dim rngC As Range       '// 선택영역 각 셀을 넣을 변수
    Dim rngAll As Range      '// 선택영역 전체 범위 변수
   
    Set rngAll = Range([A2], Cells(Rows.Count, "C").End(3))
   
    For Each rngC In rngAll     '// 선택 영역을 순환
        If IsEmpty(rngC) Then       '// 선택된 셀이 비어있다면
            rngC.Value = rngC.Offset(-1, 0).Value   '// 윗셀의 내용을 넣어라
        End If
    Next rngC
End Sub