☰

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

tag-icon • tag-icon microsoft-excel vba
스프레드시트의 행 수를 기준으로 빈 열의 서식을 지정합니다.

데이터 세트에 있는 행 수를 기준으로 워크시트의 빈 열에 색상을 지정하려고 합니다. 데이터를 정렬하고 형식을 지정하는 기존 매크로가 있는데 이 작업을 수행하기 위한 코드를 추가하고 싶습니다. 행 수는 50-50,000개까지 다양하며 전체 열을 시트 하단까지 색칠하고 싶지 않습니다. vba 코드로 이를 수행할 수 있는 방법이 있습니까? 이 코드를 시도해 보았지만 내가 가지고 있는 100개 행뿐만 아니라 전체 열에 색상이 지정되었습니다.

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

답변1

당신은 가깝습니다

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- 일반적으로 필요하지 않습니다.

관련 정보