一、效果
二、代码
Sub 判断B列加粗并修改C列颜色()
t = Timer
Set rng = Range(Cells(1, 2), Cells(Range("B65535").End(-4162).Row, 2)) '设置B列
For Each cell In rng
If cell.Font.Bold = True Then
cell.Offset(0, 1).Font.Color = RGB(255, 0, 0) '设置字体颜色为红色
End If
Next cell
MsgBox "运行时间(秒):" & Timer - t
End Sub