☰

根據電子表格中的行數設定空白列的格式

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- 通常沒有必要。

相關內容