1、打开excel

　　2、点击视图选项卡，点击宏

　　3、输入加粗，点击创建按钮

　　4、在弹出窗口中输入如下代码：

Sub 加粗变红()
Dim j, i As Integer
For j = 1 To ActiveSheet.UsedRange.Count
Cells.Find(What:="设计", After:=ActiveCell).Activate
i = WorksheetFunction.Find("设计", ActiveCell)
With ActiveCell.Characters(Start:=i, Length:=2).Font
.Name = "宋体"
.FontStyle = "常规"
.FontStyle = "加粗"
.Color = -16776961
End With
Next
End Sub

//代码结束

　　其中

　　1)With ActiveSheet表示当前活动表格

　　2)For Each c In Range("A1:A12")中"A1:A12"表示加粗文字的范围

　　3) i = InStr(1, cv, "加粗", 1) 中"加粗"为需要加粗的文字

　　4)Characters(i, 2).Font.Bold = True中“(i, 2).”表示加粗文字的字符数

　　5)With c.......End With 可重复多次，分别加粗不同的文字

　　编辑完成后关闭窗口

　　5、点击宏按钮，选择加粗，点击执行按钮

　　6、可以看到需要加醋的文字已经被加粗