批量加粗excel表格中指定的关键字

1、打开excel

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

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

4、在弹出窗口中输入如下代码：Sub 加粗() With ActiveSheet For Each c In Range("A1:A12"像粜杵泳) With c cv = .Value i = InStr(1, cv, "加粗", 1) .Characters(i, 2).Font.Bold = True End With Next End WithEnd 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、可以看到需要加醋的文字已经被加粗