楼上的很好
我录制了个vba ,修改了下,也可以。
你把下面的vba 代码贴进去也可以,你也可以根据情况自己修改。
'===============================
Sub Macro1()
'
' Macro1 Macro
For i = 1 To Range("a65536".End(xlUp).Row
'' 字符串放在 A 列,开始变红的位置数据 放在 B 列。
Range("A" & i).Select
ActiveCell.FormulaR1C1 = Range("A" & i).Value
With ActiveCell.Characters(Start:=Range("B" & i).Value, Length:=1).Font
.Name = "Arial"
.FontStyle = "常规"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = -16776961
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Next i
End Sub
'==================,