A列单元格 包含“结清”的整行 标红（添加删除线）

mrshz

各位论坛老师，应如何用正则法：实现A列单元格 包含“结清”的整行 标红（添加删除线），万分感谢

jnsxmt

是否符合你意，请审阅

mrshz

jnsxmt 发表于 2019-7-3 13:47
是否符合你意，请审阅

还有点问题，不知道什么原因

mrshz

再帮忙看看，哪里的问题

renkangjizhen

为啥非要用正则？

mrshz

  担心  运行速度

Lonzo丶

mrshz 发表于 2019-7-3 14:28
再帮忙看看，哪里的问题

二楼的代码好像有点小问题，修改了一下。

1. Sub test()
   
2. Application.ScreenUpdating = False
   
3.     Dim arr, m%, n%, k%
   
4.     For m = 2 To Cells(Rows.Count, "a").End(xlUp).Row
   
5.         arr = Split(Cells(m, 2), Chr(10))
   
6.             For n = LBound(arr) To UBound(arr)
   
7.                 If arr(n) Like "*结清*" Then
   
8.                     Cells(m, 2).Characters(Start:=k, Length:=Len(arr(n)) + 1).Font.Strikethrough = True
   
9.                     Cells(m, 2).Characters(Start:=k, Length:=Len(arr(n)) + 1).Font.Color = -16776961
   
10.                     k = k + Len(arr(n)) + 1
    
11.                 Else
    
12.                     k = k + Len(arr(n)) + 1
    
13.                 End If
    
14.                
    
15.             Next
    
16.         k = 0
    
17.     Next
    
18. Application.ScreenUpdating = True
    
19. MsgBox "Done"
    
20. End Sub

复制代码

ggmmlol

1. Sub test()
   
2. r = Cells(Rows.Count, 2).End(xlUp).Row
   
3. If r < 2 Then Exit Sub
   
4. Application.ScreenUpdating = False
   
5. Set reg = CreateObject("vbscript.regexp")
   
6. reg.Global = True
   
7. reg.Pattern = "[^\n\r]*结清[^\n\r]*"
   
8. With Range("B2:B" & r).Font '恢复默认格式
   
9.     .Bold = False
   
10.     .Color = vbBlack
    
11.     .Strikethrough = 0
    
12. End With
    
13. For i = 2 To r
    
14.     With Range("B" & i)
    
15.         Set mas = reg.Execute(.Value)
    
16.         For j = mas.Count To 1 Step -1
    
17.             Set ma = mas(j - 1)
    
18.             With .Characters(ma.firstindex + 1, ma.Length).Font
    
19.                 .Bold = True '加粗
    
20.                 .Color = vbRed '加红
    
21.                 .Strikethrough = True '加删除线
    
22.             End With
    
23.         Next
    
24.     End With
    
25. Next
    
26. End Sub

复制代码

mrshz

ggmmlol 发表于 2019-7-3 15:42

老师你好，假如要删除包含“结清”那行的话，应该如何修改代码，求助

珍惜的人7758258

Lonzo丶 发表于 2019-7-3 15:34
二楼的代码好像有点小问题，修改了一下。

https://club.excelhome.net/thread-1650662-1-1.html求助