excel表格怎么批量加粗中指定的关键字?
番茄系统家园 · 2022-11-10 02:42:24
在工作中有事会需要将excel表格中所有指定的关键字都进行加粗，又不能进行直接的替换，那么怎么办呢？
- 软件名称：
- MicroExcel(微表格) 3.1.1.2中文免费安装版
- 软件大小：
- 5.16MB
- 更新时间：
- 2015-01-21
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 With
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、可以看到需要加醋的文字已经被加粗
免责声明： 凡标注转载/编译字样内容并非本站原创，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责。如果你觉得本文好，欢迎推荐给朋友阅读；本文链接： https://m.nndssk.com/rjwt/117037C12fte.html。
猜你喜欢
最新应用
热门应用
