在使用Excel处理文字信息时，为阅读方便，经常需要对单元格内某些特定文字批量标注巢胫迷芤颜色，使用Excel自带的查找替换功能是不行的哦，需要使用VBA。非常适合代码小白哦~
工具/原料
office2010
Excel
方法/步骤
1、打开代码界面：--打开Excel--右击隼韦艽枭当前sheet页名字--在弹出界面中，点击“查看代码（V）”，打开VBA代码编辑界面
2、粘贴代码（注意不用编写）：--将如下代码直接Cop鲻戟缒男y到打开的代码编写空白页--代码小白不要慌哦，按照批注说明修改2个参数，代码就编写完成了--代码如霍丶魇汜下：PrivateSubCommandButton1_Click()Cells.Font.ColorIndex=1EndSubSubWorksheet_SelectionChange(ByValTargetAsRange)DimrngAsRange,iAsIntegerDimTAsString'T是要批量替换颜色的目标文字DimCAsInteger'C是颜色，通过设定不同的值，代表对应的颜色ForEachrngInSelectionT="版本"'重点，重点，重点，在使用该程序时只需要修改双引号中的内容即可C=3'3代表红色，1代表黑色，2代表白色，4代表鲜绿色，5代表蓝色，6代表黄色，7代表粉红色，8代表青绿色，9代表深红色，10代表绿色i=1DoWhileInStr(i,rng,T)>0rng.Characters(InStr(i,rng,T),Len(T)).Font.ColorIndex=Ci=InStr(i,rng,T)+1LoopNextEndSub
3、设置成功后，开始运行代码：--艽鹤绚趣选中代码，点击绿色小三角，开始运行--在弹出的对话框中输入名称“批量修改Excel单元格内部分文字颜色”，给程序起个名字--点击“创建”
4、关闭弹出的界面
5、--选中代码--点击菜单栏，绿色小三角--点击弹出的“宏”对话框，点击“运行（R）”，开始运行宏程序。
6、--点击某个目标区域的单元格--全选目标区域--可以看到，所有我们要显示为红色的文字，全部显示为红色了。
7、至此，设置完成。
8、此外，如果下次想继续使用，可将文件另存为宏文件。--点击“开始”-->“另存为”--选择要存放的位置
9、--在打开的界面中，“保存类型（I）：”选择“Excel启用宏的工作簿”--点击“保存（S）”，保存成功
10、在文件的存放位置，我们可以看到一个宏图标的文件
11、下次使用时，打开文件，根据需要，按照前述步骤修改VBA程序的参数后，运行即可。