excel表格如何批量加粗中指定的关键字
在工作中有事会需要将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 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、可以看到需要加粗的文字已经被加粗
最新科技数码科普
手机充电慢耗电快怎么办
手机充电慢耗电快怎么办一定有不少人都为智能机耗电快而烦恼吧!充电速度慢,在充满之前哪儿都不能去,有这样的困扰的人应该不在少数。其实,充电也是有窍门的太平洋小编...
展开详情除湿机使用方法 除湿机湿度多少合适
除湿机 在南方使用的比较多,尤其是在梅雨天气或者是靠近湖边的人们会因为潮湿感觉到不舒服。周边空气太过于潮湿的话对我们的身体会有影响,不少人会选择使用除湿机。除...
展开详情Excel如何突出显示最大值最小值
Excel表格中,怎么自动将同一区域内最大的数字和最小的数字用特殊颜色标记出来,这样看上去可以更加一目了然的发现该区域中的最大和最小值。具体操作步骤,一起来了...
展开详情excel表格怎么求和
做表格的过程中经常要使用到求和功能,这样可以很方便的求出数据的和是多少,提高工作效率,下面就为大家介绍一下,来看看吧。步骤打开表格文件选中需要得出的计算结果单...
展开详情qq飞车如何获得永久a车
qq飞车如何获得永久a车目前在QQ飞车游戏中能抽到的永久A车暂时有四个:战车,雷诺,针尖,幻想。如何在QQ飞车里买永久A车:这个暂时无法实现,因为目前只能通过...
展开详情Word输入线性代数的排列组合符号的方法
下面小编为大家介绍一个关于如何输入排列组合符号的方法,感兴趣的朋友可以参考下。方法:1、为了大家能够清晰的知道具体的操作步骤,首先启动Word2010或Wor...
展开详情