day2 按条件标记单元格

​
​
Sub test()
Dim rng As Range
For Each rng In Range("b2", Cells(Rows.Count, 2).End(xlUp))'rows.count是将最大行数，再把行数往上推到有数据的最后一个行数'
    If rng.Value >= 100000 Then '
    rng.EntireRow.Range("a1:c1").Interior.Color = RGB(160, 255, 255) '字体填充
    rng.EntireRow.Range("a1:c1").Font.Color = RGB(255, 255, 255) '字体颜色
    rng.EntireRow.Range("a1:c1").Font.Bold = True '字体加粗
    End If
​
Next
End Sub

目标：用于标大于100000的数据

编号	数量
工资	100000			)
福利	1065000
修理	75000
折旧	14000
工资	35000
福利	150000
修理	100000
折旧	1065000
工资	75000
福利	14000
修理	35000
折旧	150000
工资	100000
福利	1065000
修理	75000
折旧	14000
工资	35000
福利	150000