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

2024-10-29 11:48:01
推荐回答(4个)
回答(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表格。

回答(2):

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

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

代码截图

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

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

回答(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

回答(4):

使用SUBSTITUTE函数

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

在单元格B1输入公式:

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

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