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

ANSON刘承华

老师们，请问有没有办法像下图一样，对表格中的多个标红的关键词进行提取，然后放入辅助列？

大灰狼1976

使用单元格内容的.Character属性，逐个字符判断。

Peny2020

https://club.excelhome.net/forum ... amp;_dsign=6197490e

ANSON刘承华

Peny2020 发表于 2024-3-12 12:24
https://club.excelhome.net/forum.php?mod=viewthread&tid=1188734&_dsign=6197490e

这个实现的不是我得这个功能，但还是要感谢您：）

ANSON刘承华

大灰狼1976 发表于 2024-3-12 12:15
使用单元格内容的.Character属性，逐个字符判断。

不懂vba，没用过这个属性

大灰狼1976

假设有红色字体的单元格为A1，取出结果放到B1

1. Sub test()
   
2. Dim i&, s$
   
3. For i = 1 To Len([a1])
   
4.     If [a1].Characters(Start:=i, Length:=1).Font.Color = vbRed Then
   
5.         s = s & Mid([a1], i, 1)
   
6.     Else
   
7.         s = s & " "
   
8.     End If
   
9. Next i
   
10. [b1] = Replace(Application.Trim(s), " ", "|")
    
11. End Sub

复制代码

这个年纪118

1. Sub t()
   
2. Set Rng = [a2]
   
3. For i = 1 To Len(Rng)
   
4.   If Rng.Characters(i, 1).Font.Color = vbRed Then
   
5.       If Rng.Characters(i + 1, 1).Font.Color = vbRed Then
   
6.       s = s & Rng.Characters(i, 1).Text
   
7.   Else
   
8.      s = s & Rng.Characters(i, 1).Text & "|"
   
9.      End If
   
10.   End If
    
11. Next
    
12. Rng(1, 2) = s
    
13. End Sub
    

复制代码

这个年纪118

111111111111111

ANSON刘承华

这个年纪118 发表于 2024-3-12 14:46
111111111111111

非常感谢，完美实现

ykcbf1100

ANSON刘承华 发表于 2024-3-12 14:58
非常感谢，完美实现

如果连续标红不是二个字就可能出错。
你可以试一下。