Excel中怎么批量更改单元格内特定文字的颜色VBA

打开代码界面：

--打开Excel

--右击当前sheet页名字

--在弹出界面中，点击“查看代码（V）”，打开VBA代码编辑界面

粘贴代码（注意不用编写）：

--将如下代码直接Copy到打开的代码编写空白页

--代码小白不要慌哦，按照批注说明修改2个参数，代码就编写完成了

--代码如下：

Private Sub CommandButton1_Click()

Cells.Font.ColorIndex = 1

End Sub

Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rng As Range, i As Integer

Dim T As String    'T是要批量替换颜色的目标文字

Dim C As Integer   'C是颜色，通过设定不同的值，代表对应的颜色

For Each rng In Selection

T = "版本" '重点，重点，重点，在使用该程序时只需要修改双引号中的内容即可

C = 3    '3代表红色，1代表黑色，2代表白色，4代表鲜绿色，5代表蓝色，6代表黄色，7代表粉红色，8代表青绿色，9代表深红色，10代表绿色

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

设置成功后，开始运行代码：

--选中代码，点击绿色小三角，开始运行

--在弹出的对话框中输入名称“批量修改Excel单元格内部分文字颜色”，给程序起个名字

--点击“创建”

关闭弹出的界面

--选中代码

--点击菜单栏，绿色小三角

--点击弹出的“宏”对话框，点击“运行（R）”，开始运行宏程序。

--点击某个目标区域的单元格

--全选目标区域

--可以看到，所有我们要显示为红色的文字，全部显示为红色了。

至此，设置完成。

此外，如果下次想继续使用，可将文件另存为宏文件。

--点击“开始”-->“另存为”--选择要存放的位置

--在打开的界面中，“保存类型（I）：”选择“Excel启用宏的工作簿”

--点击“保存（S）”，保存成功

在文件的存放位置，我们可以看到一个宏图标的文件

下次使用时，打开文件，根据需要，按照前述步骤修改VBA程序的参数后，运行即可。