批量修改Excel单元格内某些文字的颜色

Posted 2021-12-30 SmileWithSugar

1、Alt + F11 打开代码编辑界面
2、插入“模块”
3、复制下列代码
4、选择需要设置的单元格区域；
5、点击“开发工具”、宏、选择后执行；
6、输入需变更的文本、检索变更颜色；
7、如需重复使用，需把写有代码的文件保存为“***.XLSM”格式；

Sub 批量标注单元格内部分文字颜色()

    Dim rng As Range, i As Integer
    
    Dim T As String    'T是要批量替换颜色的目标文字
    
    T = InputBox("请输入想要批量调整的文字，如：版本", "输入对话框", "xxx")     '重点，重点，重点，在使用该程序时只需要修改双引号中的内容即可
    
    If T = "" Then Exit Sub
    
    Dim C As Integer   'C是颜色，通过设定不同的值，代表对应的颜色
    
    For Each rng In Selection
    
    	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 = 3
    
    		i = InStr(i, rng, T) + 1
    
    	Loop
    
    Next

End Sub

站在巨人肩膀上~
不造轮子，借辆车也挺香~~~