关于正则自定义函数，请大侠相助。谢谢

马小呆

具体在附件，感谢各位大侠。

我是小黑屋

有模拟的实际数据和结果吗

马小呆

我是小黑屋 发表于 2023-2-21 16:27
有模拟的实际数据和结果吗

就比如当前这三个单元格，我想给【】中间的内容改为红色，字体加粗。

马小呆

有人帮忙吗

守候_CJ

这样能用了 和自己的代码对比一下 问题较多 有的问题可能复杂化了
不建议开始就弄这么复杂

1. Sub 结果()
   
2.     '正则 (".[F12], .[K5], .[N24]")
   
3.     正则 Array([f12], [k5], [n24])
   
4. End Sub
   
5. 
   
6. 
   
7. Sub 正则(Key)
   
8. Dim regText As Object, kr, cr, i, j, K
   
9. Dim Mhs, Mh
   
10. Dim rng As Range
    
11. Application.ScreenUpdating = False
    
12. Cells.Font.ColorIndex = xlAutomatic
    
13. kr = Array("【", "】")
    
14. cr = Array("3", "5")
    
15. 
    
16. 'srr = Split(Key, ",")
    
17. With Sheets("Sheet1")
    
18.     For K = 0 To UBound(Key)
    
19.         Set regText = CreateObject("vbscript.regexp")
    
20.         With regText
    
21.              .Pattern = VBA.Join(kr, "[^" & VBA.Join(kr, "") & "]*")
    
22.              .Global = True
    
23.         End With
    
24.         For Each rng In Key(K)
    
25.             If regText.test(rng) Then
    
26.                Set Mhs = regText.Execute(rng)
    
27.                For Each Mh In Mhs
    
28.                    With rng.Characters(Mh.FirstIndex + 1, Mh.FirstIndex + Mh.Length - 1).Font
    
29.                         .Bold = True
    
30.                         .ColorIndex = 3
    
31.                         .Bold = True
    
32.                         .Size = 15
    
33.                    End With
    
34.                Next
    
35.             End If
    
36.         Next
    
37.     Next
    
38. End With
    
39. Application.ScreenUpdating = True
    
40. End Sub

复制代码

一时半会难以全部说清，对比不同，找问题。
其他具体问题再具体交流。