vba 点击一个按钮，输入文字后，单元格中包含该文字的字符变颜色，其他文字不变。文字字数不固定。

Sub 按钮1_Click()
    Dim strF As String  '查找字符
    strF = InputBox("请输入更改颜色的所有字符：", "输入")
    Sheets(1).Range("A1").Characters.Font.Color = 0    '先把字体全部变成默认黑色
    For i = 1 To Len(Sheets(1).Range("A1").Text)
        If InStr(strF, Mid(Sheets(1).Range("A1").Text, i, 1)) Then Sheets(1).Range("A1").Characters(Start:=i, Length:=1).Font.Color = -16776961
    Next i
End Sub

添加按钮，指定宏，编辑代码。

上面处理Sheet1表中的A1单元格内容，单价按钮后提示输入字符，A1中如果存在输入的字符，那么这些字符变成红色，其他的字符是黑色。

要处理的单元格可以更改。可以更改成ActiveCell，如果处理多个单元格，稍微处理一下代码也可以做到。