提取文本

tkh125

请老师给看看谢谢

冬不暖

VBA版本试试

ericxzhou

1. Sub test()
   
2.     Dim i%, arr, j%, str$
   
3.     arr = [d4].CurrentRegion
   
4.     For i = 4 To UBound(arr) + 3
   
5.         For j = 1 To Len(Cells(i, 4))
   
6.             If Cells(i, 4).Characters(Start:=j, Length:=1).Font.Color = vbRed Then
   
7.                 str = str & Mid(Cells(i, 4), j, 1)
   
8.             End If
   
9.         Next
   
10.         Cells(i, 5) = str: str = ""
    
11.     Next
    
12. End Sub

复制代码

my0745

如果这些文本是随机的，那一般人都写不出来，编程都难。
除非是有规律，或者能够列举一个范围。

tkh125

my0745 发表于 2023-6-6 15:13
如果这些文本是随机的，那一般人都写不出来，编程都难。
除非是有规律，或者能够列举一个范围。

我不懂VBA,请大侠用公式试试

my0745

你要提取的这些好像是名字或者称呼，如果没有什么规律，没几个人能写出来。

静听溪流

去VBA版块求助吧
函数是解决不了的

我有一头小驴驴

有一个插件，叫方方格子，里面有你想要的功能。

袁勇

VBA处理。

gjgjpj41

。。。你这种感觉直接打字还快些！