如下图的效果吗?只能手动加粗,如果单元格多,要批量的话,只有试试VBA。
追问VBA编码你会吗
追答鼠标右键点击工作表名,选"查看代码",把下面代码复制到打开的代码页,然后按F5运行即可。作用是把当前工作表上所有字体为红色的字加粗。
Sub 红色加粗()
Dim A&, B&, R As Range
For Each R In UsedRange
A = Len(R)
For B = 1 To A
If R.Characters(B, 1).Font.Color = vbRed Then
R.Characters(B, 1).Font.FontStyle = "加粗"
End If
Next
Next
End Sub
你说的这个情况应该只是针对整个单元格中的文字都是红色时才适用,我这个单元格中只有部分文字是红色,不能搜索到