根据特定字符提取特定内容

qscwb · 发表于 2023-7-10 15:23

ykcbf1100 发表于 2023-7-10 15:18
向版主学一个。。。

完美解决问题，正则我还不懂，正好研究一下，谢谢。

qscwb · 发表于 2023-7-10 15:27

谢谢各位大神出手相助，膜拜学习了。

准提部林 · 发表于 2023-7-10 15:41

Sub TEST_A1()
Dim A, B, Brr(1 To 9000, 0), k%, N&
For Each A In Range("a1").CurrentRegion.Value
k = 0
For Each B In Split(A, " ")
If B Like "#######" And k = 1 Then N = N + 1: Brr(N, 0) = B: GoTo b01
If B Like "*[#]" Then k = -(B = "5000#")
b01: Next B
Next
If N > 0 Then [d4].Resize(N) = Brr
End Sub

gwjkkkkk · 发表于 2023-7-10 19:30

参与一下。。。

grf1973 · 发表于 2023-7-11 10:16

凑个热闹。。

cidanji · 发表于 2023-7-11 10:23

准提部林发表于 2023-7-10 15:41
Sub TEST_A1()
Dim A, B, Brr(1 To 9000, 0), k%, N&
For Each A In Range("a1").CurrentRegion.Value

最优，神仙代码！！
就1分了聊表心意

每天进步一点sy · 发表于 2023-7-11 10:26

已送鲜花，学习下

cidanji · 发表于 2023-7-11 10:32

like说会嘛也会，但我老想不起来用它，只知道宠幸正则

		自动登录	找回密码
密码			免费注册

[求助] 根据特定字符提取特定内容

评分