把{}及里面的内容标红,谢谢

吴虾咪

飘红.zip (16.54 KB, 下载次数: 14)

2023-6-20 15:33 上传

点击文件名下载附件

就是把号及内容标红，{内容一起标红} 内容可能都是不一样的。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim reg As New RegExp
   
5.     With reg
   
6.         .Global = True
   
7.         .Pattern = "{[^}]*}"
   
8.     End With
   
9.     With Worksheets("sheet1")
   
10.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
11.         c = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
12.         arr = .Range("a1").Resize(r, c)
    
13.         For i = 1 To UBound(arr)
    
14.             For j = 1 To UBound(arr, 2)
    
15.                 .Cells(i, j).Font.ColorIndex = 0
    
16.                 Set mh = reg.Execute(arr(i, j))
    
17.                 If mh.Count > 0 Then
    
18.                     For k = 0 To mh.Count - 1
    
19.                         With .Cells(i, j).Characters(Start:=mh(k).FirstIndex + 1, Length:=mh(k).Length).Font
    
20.                             .ColorIndex = 3
    
21.                         End With
    
22.                     Next
    
23.                 End If
    
24.             Next
    
25.         Next
    
26.     End With
    
27. End Sub
    

复制代码

chxw68

飘红了。。。

吴虾咪

chxw68 发表于 2023-6-20 15:51
飘红了。。。

谢谢的老师帮助。

aecn

用AI写的
Sub HighlightBrackets()
    Dim lastRow As Long
    Dim i As Long, j As Long
    Dim cellText As String
    Dim textStart As Long, textEnd As Long
    Dim bracketStart As Long, bracketEnd As Long
   
    lastRow = Cells(Rows.Count, "C").End(xlUp).Row
   
    For i = 1 To lastRow
        For j = 1 To 3
            cellText = Cells(i, j).Value
            textStart = 1
            textEnd = Len(cellText)
            
            Do While textStart <= textEnd
                bracketStart = InStr(textStart, cellText, "{")
                If bracketStart = 0 Then Exit Do
                bracketEnd = InStr(bracketStart, cellText, "}")
                If bracketEnd = 0 Then Exit Do
                Cells(i, j).Characters(bracketStart, bracketEnd - bracketStart + 1).Font.Color = RGB(255, 0, 0)
                textStart = bracketEnd + 1
            Loop
        Next j
    Next i
End Sub

盼盼198310

..................

liulang0808

熊文来

盼盼198310 发表于 2023-6-20 18:04
..................

好像很久没遇到您发表了。

熊文来

chxw68 发表于 2023-6-20 15:51
飘红了。。。

又看到你出手

盼盼198310

熊文来 发表于 2023-6-20 21:00
好像很久没遇到您发表了。

出门了几天