前言｜職場實例

Excel的功能雖然很強大，但還是有一些難以解決的問題，比如說如何将下圖表格中的部分文字标紅呢？例如将A2:C4單元格中所有的字符“河北”兩字，字體顔色設置為紅色。

如果直接用Excel的“查找和替換”功能處理這個問題，就比較難辦了，因為Excel的查找和替換功能隻能查找和替換整個單元格的内容，而不能查找和替換單元格中的部分字符内容。

如下圖所示：

選中A2:C4單元格數據區域，按下快捷鍵“Ctrl H”，調出“查找和替換”的對話框。

查找内容：輸入“河北”

替換為：輸入“河北”

然後點擊“選項”按鈕，再點擊“替換為”右邊的“格式”按鈕，設置“替換為”内容的格式，将字體顔色設置為紅色。即替換為紅色字體顔色的“河北”兩字。

最後點擊“全部替換”，我們發現含有“河北”兩字的整個單元格的内容全部變成了紅色。所以這種方法是錯誤的，難以實現正确的效果。

方法①｜利用Word文檔的查找和替換

首先将Excel中内容複制到Word文檔中，如下圖所示：

然後利用Word文檔中的“查找和替換”功能來實現。

先按下快捷鍵“Ctrl H”打開“查找和替換”的對話框。

在“查找内容”中輸入内容，這裡輸入的是“河北”；

在“替換為”中輸入内容，這裡同樣輸入的是“河北”；

在替換中直接選擇“更多”，點擊“格式”，選擇“字體”，将字體顔色設置為紅色，

即将查找出來的“河北”兩字替換為紅色字體顔色的“河北”兩字。

最後點擊“全部替換”按鈕，即可将A2:C4單元格中所有的字符“河北”兩字，字體顔色設置為紅色。

最後直接将Word文檔中的内容複制到Excel表格中即可。如下圖所示：

方法②｜VBA代碼替換法

除了利用Word的方法作為間接轉換，我們也可直接使用VBA代碼進行批量替換字體顔色。下面小編來介紹一下具體的操作方法。

如下圖所示：

右擊點擊名稱為“公衆号 Excel情報局”工作表名稱标簽，點擊“查看代碼”按鈕，調出VBA代碼編輯窗口，将下面的一段VBA代碼複制粘貼進去，然後點擊上方的“運行-運行子過程/用戶窗體”按鈕，這時候會彈出一個“宏”的提示對話框，我們在這個界面中，随意輸入一個“宏名稱”，本例中輸入的是一個字母“A”，然後點擊“創建”按鈕。最後将VBA代碼窗口全部關閉。回到Excel工作表主界面。

代碼如下：

Private Sub CommandButton1_Click() Cells.Font.ColorIndex = 1 End Sub Print Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rng As Range, i As Integer Dim T As String Dim C As Integer For Each rng In Selection T = "河北" 'T是要批量替換顔色的目标文字 C = 3 'C是顔色，通過設定不同的值，代表對應的顔色 i = 1 Do While InStr(i, rng, T) > 0 rng.Characters(InStr(i, rng, T), Len(T)).Font.ColorIndex = C i = InStr(i, rng, T) 1 Loop Next End Sub

最重要的一步來了，我們直接鼠标框選選中A2:C4單元格數據區域，我們發現選中的區域内，所有單元格中的“河北”兩個字符的字體顔色就變為了紅色。如下圖所示：

㈠代碼中需要我們根據具體情況修改的地方：

T = "河北"

這是我們需要查找替換字體顔色的字符，在使用該程序時隻需要修改雙引号中的内容即可。

㈡代碼中需要我們根據具體修改的地方：

C = 3

這是我們需要替換的顔色代碼。3代表紅色，1代表黑色，2代表白色，4代表鮮綠色，5代表藍色，6代表黃色，7代表粉紅色，8代表青綠色，9代表深紅色，10代表綠色等。