工作中发生事情,需要将excel表格中指定的关键字全部加粗,但不能直接替换。那我该怎么办呢?
1.打开excel。
2.单击视图选项卡,然后单击宏。
3.输入bold并单击创建按钮。
4.在弹出窗口中输入以下代码:
子粗体()
带活动表
对于范围内的每个c(' A1:A12 ')
用c
cv=。价值
I=InStr(1,cv,' bold '1)。Characters(i,2).Font.Bold=True
以…结尾
然后
以…结尾
末端接头
//代码结束
在…之中
1)用ActiveSheet表示当前活动的表。
2)范围中每个c的“A1:A12”表示粗体文本的范围。
3)I=instr(1,cv,' bold '1)中的' bold '是要加粗的文本。
4)”(我,2)。”in characters (I,2).Font.Bold=True表示粗体文本中的字符数。
5)用c.end with可以重复多次,分别加粗不同的单词。
编辑后关闭窗口。
5.单击宏按钮,选择粗体,然后单击执行按钮。
6.可以看到需要加粗的文字已经加粗了。