第1个回答 2018-09-19
这个公式实现不了,需要用VBA。点开发工具、插入模块、粘贴到右边代码框中、选中要操作的区域、在代码框中按一下F5键。或在工作表中插入一个控件,把这个代码赋予这个控件,再点这个控件。
Sub test()
Dim x%, y%, rg As Range
For Each rg In Selection
For x = 1 To Len(rg)
If Mid(rg, x, 1) = "+" Then
rg.Characters(Start:=x, Length:=1).Font.Color = -16776961
End If
Next x
Next rg
End Sub本回答被网友采纳