|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 |
Private Sub RegExp_Replace() Dim RegExp As Object Dim SearchRange As Range, Cell As Range '此处定义正则表达式 Set RegExp = CreateObject("vbscript.regexp") RegExp.Pattern = "<span style="color: #ff0000;">:.*</span>" '此处指定查找范围 Set SearchRange = ActiveSheet.Range("<span style="color: #ff0000;">K2:O20</span>") '遍历查找范围内的单元格 For Each Cell In SearchRange Set Matches = RegExp.Execute(Cell.Value) If Matches.Count >= 1 Then Set Match = Matches(0) Cell.Value = RegExp.Replace(Cell.Value, "") End If Next End Sub |
逻辑自洽。