[엑셀] 빈행을 동일하게 채우기 매크로

## 첫 번째 시트 "A"열의 빈셀 또는 빈셀이 있는 행을 윗머리 행과 같은 내용으로 채우는 매크로

## 데이터를 다루다보면 빈 행은 껄끄러운 존재다. 특히 필터를 거는 경우에는 더더욱 그렇다.

## 회사 일을 하면서 가장 많이 쓰는 매크로 중 하나이다.

VBA Code

Option Explicit
Sub duplicate_headrow()
Dim myItem
Dim mySheet As Worksheet
Dim i As Long, lastNum As Long
Dim myCol As String

Set mySheet = Sheets(1) '대상시트 설정(첫 번째 시트)
myCol = "A" '빈행을 채울 열 번호(A열)

With mySheet.UsedRange
lastNum = .Row + .Rows.Count - 1 '마지막 셀 번호
End With

For i = 1 To lastNum
With mySheet
    If .Cells(i, myCol) <> "" Then
        myItem = .Cells(i, myCol) '해당 열의 비어있지 않은 셀 값을 반환
    Else
        .Cells(i, myCol) = myItem '비어있다면 동일한 셀값 입력
    End If
End With
Next i

MsgBox "COMPLETE"

End Sub

실행 결과