方法如下：1、開啟excel2、點選檢視選項卡，點選宏3、輸入加粗，點選建立按鈕。4、在彈出視窗中輸入如下程式碼：Sub 加粗()With ActiveSheetFor Each c In Range("A1:A12")With ccv = .Valuei = InStr(1, cv, "加粗", 1).Characters(i, 2).Font.Bold = TrueEnd With NextEnd WithEnd 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字型加粗的單元格，按下快捷鍵ctrl+B：應用或取消加粗格式。選擇excel字型加粗的單元格，單擊工具欄的加粗按鈕。選擇excel字型加粗的單元格，右鍵“設定單元格格式”對話方塊，字型選項卡中設定加粗、傾斜和下劃線等效果。
方法如下：1、開啟excel2、點選檢視選項卡，點選宏3、輸入加粗，點選建立按鈕。4、在彈出視窗中輸入如下程式碼：Sub 加粗()With ActiveSheetFor Each c In Range("A1:A12")With ccv = .Valuei = InStr(1, cv, "加粗", 1).Characters(i, 2).Font.Bold = TrueEnd With NextEnd WithEnd 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字型加粗的單元格，按下快捷鍵ctrl+B：應用或取消加粗格式。選擇excel字型加粗的單元格，單擊工具欄的加粗按鈕。選擇excel字型加粗的單元格，右鍵“設定單元格格式”對話方塊，字型選項卡中設定加粗、傾斜和下劃線等效果。