在日常使用Excel處理文字信息時，經常需要對單元格內某些特定文字進行批量標注顏色以提高可讀性。而使用Excel自帶的查找替換功能無法實現這一目的，因此我們需要利用VBA（Visual Basic f

在日常使用Excel處理文字信息時，經常需要對單元格內某些特定文字進行批量標注顏色以提高可讀性。而使用Excel自帶的查找替換功能無法實現這一目的，因此我們需要利用VBA（Visual Basic for Applications）來實現。即便是代碼小白也可以輕松學會哦！

打開VBA編輯界面

1. 打開Excel，在當前sheet頁名字上右擊。

2. 在彈出的選項中點擊“查看代碼（V）”以打開VBA代碼編輯界面。

粘貼并設置代碼

- 將下面的代碼直接復制粘貼到VBA編輯界面中。

```vba

Private Sub CommandButton1_Click()

1 ' 設置文字顏色為黑色

End Sub

Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rng As Range, i As Integer

Dim T As String

Dim C As Integer

' T是要替換顏色的目標文字，C代表顏色

For Each rng In Selection

T "版本" ' 在這里修改目標文字

C 3 ' 設置紅色

i 1

Do While InStr(i, rng, T) > 0

(InStr(i, rng, T), Len(T)) C

i InStr(i, rng, T) 1

Loop

Next

End Sub

```

運行代碼

3. 選中代碼后點擊綠色小三角運行。

4. 輸入名稱“批量修改Excel單元格內部分文字顏色”，點擊“創建”。

5. 關閉彈出界面。

6. 再次選中代碼后點擊綠色小三角，選擇“運行”開始運行宏程序。

7. 選中目標區域的單元格，全選目標區域，即可看到文字顏色已批量更改為紅色。

保存并重復使用

8. 若要下次繼續使用，將文件另存為宏文件：

- 點擊“開始” -> “另存為”。

- 在“保存類型”中選擇“Excel啟用宏的工作簿”，點擊“保存”完成保存。

9. 在文件存放位置找到宏圖標的文件。

10. 下次打開文件，根據需求修改VBA程序的參數后再次運行即可。

通過以上步驟，您可以輕松利用VBA在Excel中批量更改單元格內特定文字的顏色，提高工作效率。祝您編程愉快！