[VBA기초] 셀이 비어있을 경우 행높이 다르게 설정

빈줄일 때 행의 높이를 적게 하기 위한 코드이다.

Sub blnksell_height()
    Dim rngC, rngAll As Range
   
    Application.ScreenUpdating = False
    Set rngAll = Range([B3], Cells(Rows.Count, "A").End(3))
   
    For Each rngC In rngAll
        If rngC = "" Then
            rngC.RowHeight = 10
        Else
            rngC.RowHeight = 22
        End If
    Next rngC
   
End Sub