请问有办法提取标红的关键词到辅助列吗？

ykcbf1100

多行标红提取。。。

ykcbf1100

参与一下。。。

1. Sub 标红提取()  '//多行提取
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     For i = 2 To r
   
4.         Set Rng = Cells(i, 1)
   
5.         st = Rng.Value
   
6.         s = ""
   
7.         For x = 1 To Len(st)
   
8.             If Rng.Characters(x, 1).Font.Color = vbRed Then
   
9.                 s = s & Mid(st, x, 1)
   
10.             Else
    
11.                 s = s & " "
    
12.             End If
    
13.         Next
    
14.         Rng(1, 2) = Replace(Mid(Application.Trim(s), 1), " ", "|")
    
15.     Next
    
16. End Sub
    

复制代码

ANSON刘承华

ykcbf1100 发表于 2024-3-12 15:17
多行标红提取。。。

感谢，很好用，更完善了！