excel如何统一修改单元格中的某些字的颜色,如图片所示

发布网友发布时间：2022-04-25 22:25

共2个回答

热心网友时间：2022-06-18 03:49

代码如下。

打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

Sub thbys()
Dim i As Long
Dim n As Integer
Dim s As String
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    With Range("A" & i)
        s = .Value
        .Value = Replace(.Value, "y", "o")
        For n = 1 To Len(s)
            If Mid(s, n, 1) = "y" Then .Characters(Start:=n, Length:=1).Font.Color = RGB(255, 0, 0)
        Next
    End With
Next
End Sub

追问要是设定个范围呢，把从A10-A30的y改成o，其它的不改动，这个公式怎么修改？谢谢
还有一个，要是yy不再中间呢，在前面或者后面呢，这个公式有怎么修改？

追答

如果设定范围，代码更改如下。

y在哪个地方都无所谓。

Sub thbys()
Dim rg As Range
Dim n As Integer
Dim s As String
For Each rg In Range("A10:A30")
    With rg
        s = .Value
        .Value = Replace(.Value, "y", "o")
        For n = 1 To Len(s)
            If Mid(s, n, 1) = "y" Then .Characters(Start:=n, Length:=1).Font.Color = RGB(255, 0, 0)
        Next
    End With
Next
End Sub

热心网友时间：2022-06-18 03:49

这个直接查找替换即可完成

查找输入oo
替换中输入oo,点开选项，格式中设置，字体颜色，全部替换即可。追问我上面已经说过这种方法不行。

追答额，那么只有使用宏，VBA对一个一个字符进行设置了
最简单的处理办法
是复制到word，替换成，再复制回来
excel毕竟是数据处理工具，不如word文字处理功能强大。