如何将excel单元格中部分红色文字 全部字体加粗？

Question

如题所述

Answer 1

如下图的效果吗？只能手动加粗，如果单元格多，要批量的话，只有试试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

Answer 2

“替换为”行有一个“格式”。看里面的字体是不是加粗红色。如果没有看到“格式”，点击替换对话框右下角的“选项”，看看是不是这个原因。追问

你说的这个情况应该只是针对整个单元格中的文字都是红色时才适用，我这个单元格中只有部分文字是红色，不能搜索到

Answer 3

手动加入格式
或
Sub 加色加粗()
With Range("F2")
.Font.Bold = True
.Characters(Start:=Len(.Value) - 2, Length:=2).Font.Color = vbRed
End With
End Sub