스프레드 시트의 행 수를 기준으로 빈 열 서식 지정

나는 데이터 세트에있는 행의 수를 기반으로 워크 시트의 빈 열을 코드화하려고 시도하고 있습니다. 내 데이터를 정렬하고 서식을 지정하는 기존 매크로가 있지만이 코드를 추가하기를 원합니다. 행 수는 50-50,000까지 다양 할 수 있으며 전체 열을 시트 아래쪽으로 채우고 싶지는 않습니다. vba 코드로이 작업을 수행 할 수있는 방법이 있습니까? 이 코드를 시도했지만 전체 행의 색을 지정하고 100 행만 채색하지 않습니다.

Range(Range("H13"), Range("H13").End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
       Selection.Interior.Color = vbBlue

너 가까이있어.

Sub test()
Dim lrow As Integer
lrow = Cells(Rows.Count, "H").End(xlUp).Row
Range("H13:H" & lrow).Interior.Color = vbBlue
End Sub

마지막 셀을 가져 와서 시트 끝까지 내려가는 xldown을 사용하고 있습니다. xlup을 사용해보십시오. 또한 - 사용 습관을 벗어나려고 노력하십시오. selection - 대개 절대 필요하지 않습니다.