如何用宏来实现单元格内指定字符第一次出现位置之后的全部字符串的字体变化

如题所述

提供一个宏作为参考吧，VBA应该可以实现，不过你得要把代码作一些改造：
如下是把第1单元格的“12345678”中的56变成红色

Sub Macro3()'' Macro3 Macro' 宏由 MC SYSTEM 录制，时间: 2015-8-22' Range("A1").Select ActiveCell.FormulaR1C1 = "1234567890" With ActiveCell.Characters(Start:=1, Length:=4).Font .ColorIndex = xlAutomatic End With With ActiveCell.Characters(Start:=5, Length:=2).Font .ColorIndex = 3 End With With ActiveCell.Characters(Start:=7, Length:=4).Font .ColorIndex = xlAutomatic End With Range("E7").SelectEnd Sub 注：如果单元格内是数字需先设置成文本格式，因为否则VBA更改的格式会被数字格式化

就看不到结果了.

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/2v2m7vq8p2qm8vss7s.html