excel表格怎么批量加粗字体？

Question

如题所述

Answer 1

方法如下：

1、打开excel

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

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

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

Sub加粗()

WithActiveSheet

ForEachcInRange("A1:A12")

Withc

cv=.Value

i=InStr(1,cv,"加粗",1)

.Characters(i,2).Font.Bold=True

EndWith             

Next

EndWith

EndSub

//代码结束

其中

1）WithActiveSheet表示当前活动表格

2）ForEachcInRange("A1:A12")中"A1:A12"表示加粗文字的范围

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

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

5）Withc.......EndWith可重复多次，分别加粗不同的文字

编辑完成后关闭窗口

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

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

excel字体加粗的单元格，按下快捷键ctrl+B：应用或取消加粗格式。

选择excel字体加粗的单元格，单击工具栏的加粗按钮。

选择excel字体加粗的单元格，右键“设置单元格格式”对话框，字体选项卡中设置加粗、倾斜和下划线等效果。