excel表格如何批量加粗中指定的关键字(批量加粗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、可以看到需要加粗的文字已经被加粗

Published by

风君子

独自遨游何稽首 揭天掀地慰生平

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注