在工作中有事會需要將excel表格中所有指定的關(guān)鍵字都進行加粗，又不能進行直接的替換，那么怎么辦呢？

1、打開excel

2、點擊視圖選項卡，點擊宏

3、輸入加粗，點擊創(chuàng)建按鈕

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

//代碼結(jié)束

其中

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).”表示加粗文字的字符數(shù)

5）With c.......End With 可重復(fù)多次，分別加粗不同的文字

編輯完成后關(guān)閉窗口

5、點擊宏按鈕，選擇加粗，點擊執(zhí)行按鈕

6、可以看到需要加醋的文字已經(jīng)被加粗

相關(guān)推薦：

在excel表格中怎么輸入角標?

Excel怎么使用transpose函數(shù)轉(zhuǎn)置數(shù)據(jù)?

excel表格中插入超鏈接怎么直接打開ppt文件?