主页 | excel电子表格 | Word办公 | PPT教学 | Wps文档处理 |

办公软件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、可以看到需要加粗的文字已经被加粗

  • 办公软件excel2010如何自动选择不含公式的单元格
  • 在办公软件excel图表中怎么显示上、下标