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

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

打開VBA編輯界面

1. 打開Excel，在當(dāng)前sheet頁名字上右擊。

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

粘貼并設(shè)置代碼

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

```vba

Private Sub CommandButton1_Click()

1 ' 設(shè)置文字顏色為黑色

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是要替換顏色的目標(biāo)文字，C代表顏色

For Each rng In Selection

T "版本" ' 在這里修改目標(biāo)文字

C 3 ' 設(shè)置紅色

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單元格內(nèi)部分文字顏色”，點擊“創(chuàng)建”。

5. 關(guān)閉彈出界面。

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

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

保存并重復(fù)使用

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

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

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

9. 在文件存放位置找到宏圖標(biāo)的文件。

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

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