方法如下：

1、開啟excel

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 可重複多次，分別加粗不同的文字

編輯完成後關閉視窗

6、可以看到需要加醋的文字已經被加粗

excel字型加粗的單元格，按下快捷鍵ctrl+B：應用或取消加粗格式。

選擇excel字型加粗的單元格，右鍵“設定單元格格式”對話方塊，字型選項卡中設定加粗、傾斜和下劃線等效果。