Excel VBA教程：如何批量更改单元格内特定文字的颜色

在日常使用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中批量更改单元格内特定文字的颜色，提高工作效率。祝您编程愉快！