在工作中有事会需要将excel表格中所有指定的关键字都进行加粗,又不能进行直接的替换,那么怎么办呢?
工具/原料
office办公软件
方法/步骤
1、打开excel
2、点击视图选项卡,点击宏
3、输入加粗,点击创建按钮
4、在弹出窗口中输入如下代码:Sub加粗()WithActiveSheet咯悝滩镞ForEachcInRange("A1:A12"像粜杵泳)Withccv=.Valuei=InStr(1,cv,"加粗",1).Characters(i,2).Font.Bold=TrueEndWithNextEndWithEndSub//代码结束其中WithActiveSheet表示当前活动表格ForEachcInRange("A1:A12")中"A1:A12"表示加粗文字的范围i=InStr(1,cv,"加粗",1)中"加粗"为需要加粗的文字.Characters(i,2).Font.Bold=True中“(i,2).”表示加粗文字的字符数Withc.......EndWith可重复多次,分别加粗不同的文字编辑完成后关闭窗口
5、点击宏按钮,选择加粗,点击执行按钮
6、可以看到需要加醋的文字已经被加粗