Excel如何利用宏脚本修改指定字符串间的文本颜色

connin.yang

例如 使用<和>进行区分，我需要将他们之间的文本修改为红色，并删除<和> ,原表格内容 ，满足要求的表格内容

nihao123456789

假设需要修改的内容在“A1”单元格。宏如下。
Sub 宏1()
On Error GoTo a
L0 = Len(CStr(Range("A1")))
L1 = InStr(1, CStr(Range("A1")), "<")
L2 = InStr(L1, CStr(Range("A1")), ">")
Range("A1") = Left(CStr(Range("A1")), L1 - 1) & Mid(CStr(Range("A1")), L1 + 1, L2 - L1 - 1) & Right(CStr(Range("A1")), L0 - L2)
Range("A1").Font.ColorIndex = xlAutomatic
Range("A1").Characters(Start:=L1, Length:=L2 - L1 - 1).Font.ColorIndex = 3
a:
End Sub

人间油物

朋友有没有附件上传看一下，方便测试

connin.yang

nihao123456789 发表于 2023-5-25 17:14
假设需要修改的内容在“A1”单元格。宏如下。
Sub 宏1()
On Error GoTo a

好像有点问题

connin.yang

这是原始数据

nihao123456789

我的可以完美运行啊。没问题的