表格中，如何将单元格内某个字或者某个词的格式批量修改？

俗俗✨✨
俗俗✨✨
比如，单元格内都是大量文字，我想按照搜索结果，比如“某”字进行了检索，想在检索的同时，把“某”这个字高亮或者调整颜色、格式等，让这个字在单元格内也能突出显示。目前通过检索替换不可行，即使修改了格式，也是包含这个字的整个单元格都修改，用了条件格式也不行，也是整个单元格都修改。。难道只能手工检索到在手动修改吗？
WPS表格 WPS表格
北京
浏览 1998
收藏
5
分享
5 +1
11
+1
全部评论 11
 
亂雲飛渡
亂雲飛渡

WPS寻令官

打卡学习
· 广东省
回复
 
Vicky
Vicky
搜索，替换
· 上海
回复
 
WPS_179588
WPS_179588
另外有个方法，如果表格很简单，没有公式，就是一些简单的文本内容。 可以把表格区域直接复制到WPS文字进行搜索、替换。 完了再替换回来：
· 安徽省
1
回复
WPS_179588
如果竖版放不下，可以用横版。
· 安徽省
回复
查看更多评论
 
WPS_179588
WPS_179588
（接上） For Each cell In ActiveSheet.UsedRange startPos = InStr(1, cell.Value, searchText) Do While startPos > 0 lenText = Len(searchText) endPos = startPos + lenText - 1 cell.Characters(startPos, lenText).Font.Name = replacementFont cell.Characters(startPos, lenText).Font.Color = replacementColorIndex startPos = InStr(endPos + 1, cell.Value, searchText) Loop Next cell End Sub
· 安徽省
回复
WPS_179588
宏运行的结果不能撤回上一步，需要注意。
· 安徽省
回复
 
WPS_179588
WPS_179588
Sub ReplaceFontAndColor() Dim searchText As String Dim replacementFont As String Dim replacementColorIndex As Long Dim cell As Range Dim foundRange As Range Dim startPos As Integer Dim endPos As Integer Dim lenText As Integer searchText = InputBox("请输入要查找的文字") replacementFont = InputBox("请输入要替换成的字体") replacementColorIndex = RGB(255, 0, 0) '这里以红色为例，你可以根据需要修改RGB值 （未完）
· 安徽省
回复
 
WPS_179588
WPS_179588
高亮显示可以，但是只能整个单元格高亮。 所以实现你的功能可能只能用宏了。
· 安徽省
回复
 
十一年
十一年
可以写代码解决这样的问题
· 黑龙江省
回复