Question

如何在excel中批量替换单元格中部分文字的格式

如何替换单元格中部分字的颜色、字体，而不把整个单元格中所有文字格式都替换。比如如何把所有单元格中的“我”改为黄色加粗字体，而不改变单元格中其他文字的颜色字体。

Answer 1

打开Excel表格，框选需要编辑的文字段，Ctrl+C复制。新建Word文档，Ctrl+V粘贴刚才复制的内容。在Word里选择【开始】选项，选择【替换】命令。切换到查找面板，输入［0-9.%]，选择使用通配符，查找下一项，详细步骤：

1、打开Excel表格，框选需要编辑的文字段，Ctrl+C复制。

2、在桌面新建Word文档，Ctrl+V粘贴刚才复制的内容。

3、在Word里选择【开始】选项，选择【替换】命令。

4、切换到查找面板，输入［0-9.%]，选择使用通配符，查找下一项。

5、鼠标右键选中的数字，设置颜色字体。

6、把修改完成的字段复制到Excel表格。

Answer 2

要用代码解决，excel alt+f11打开操作台，插入模块，写完代码之后运行

这个问题也同样困扰了我几个小时，找到的回答都是授人以渔的方案，我这种有编程基础的小白都花了挺多时间去查询vba的相关资料，更何况没有编程基础的呢，所以我今天就直接授人以鱼了

代码截图

’是vba注释符，在其后内容都是注释，把‘删掉就是代码了，color后的内容是调整颜色，vb+英文颜色是预设颜色，rgb需要打开调色板自定义去看，bold是是否加粗（1/0），后面fontstyle是字体风格，我写了加粗，也可以换成其他字体风格，把instr函数带引号的字符分别改成前后括号就行，懒得打的话可以问问我，我看心情复制一下给你

另外，有大佬能教教我怎么贴代码吗。。。

Answer 3

Sub test() '【注意】Excel中，Alt+F11，插入，模块，粘贴这段代码，然后F5
    For Each Rng In ActiveSheet.UsedRange    
        For i = 1 To Len(Rng)        
        s = InStr(i, Rng, "我")        
            If s > 0 Then            
                With Rng.Characters(Start:=s, Length:=1).Font            
                    .FontStyle = "加粗"
                    .Color = RGB(255, 255, 0)            
                End With                
            Else
                Exit For
            End If
        Next i
    Next
End Sub

Answer 4

使用SUBSTITUTE函数

例如：单元格A1=黑色13号

在单元格B1输入公式：

=SUBSTITUTE(A1,"黑色","Black")

如果希望替换多个不同字符串，可以使用几层SUBSTITUTE进行嵌套。