Sub 按条件查找数据()
Application.ScreenUpdating = False
Dim i As Integer
For i = 3 To 15
If Cells(i, 2).Value <= 50 And Cells(i, 3).Value <= 1500 Then
Cells(i, 1).Font.FontStyle = "加粗"
Cells(i, 1).Font.ColorIndex = 3
End If
Next
Application.ScreenUpdating = True
End Sub
数据源及运行结果请见下表: