☰

根据电子表格中的行数格式化空白列

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

相关内容