打开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表格。
要用代码解决,excel alt+f11打开操作台,插入模块,写完代码之后运行
这个问题也同样困扰了我几个小时,找到的回答都是授人以渔的方案,我这种有编程基础的小白都花了挺多时间去查询vba的相关资料,更何况没有编程基础的呢,所以我今天就直接授人以鱼了
’是vba注释符,在其后内容都是注释,把‘删掉就是代码了,color后的内容是调整颜色,vb+英文颜色是预设颜色,rgb需要打开调色板自定义去看,bold是是否加粗(1/0),后面fontstyle是字体风格,我写了加粗,也可以换成其他字体风格,把instr函数带引号的字符分别改成前后括号就行,懒得打的话可以问问我,我看心情复制一下给你
另外,有大佬能教教我怎么贴代码吗。。。
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
使用SUBSTITUTE函数
例如:单元格A1=黑色13号
在单元格B1输入公式:
=SUBSTITUTE(A1,"黑色","Black")
如果希望替换多个不同字符串,可以使用几层SUBSTITUTE进行嵌套。