[已解决]求助公式达人VBA高手：提取字符串

cqzxpx

提取字符串中包含“套”的字符串

最佳答案

月排行榜 / 总排行榜

ilovelittle

2017-3-10 09:37

1. Sub test()
   
2.     Dim rng As Range
   
3.     For Each rng In [a2:a5]
   
4.         arr = Split(rng.Value, " ")
   
5.         rng.Offset(0, 2) = Join(VBA.Filter(arr, "套"))
   
6.     Next
   
7. End Sub

复制代码

例.rar (16.74 KB, 下载次数: 15)

2017-3-10 09:36 上传

点击文件名下载附件

跳转到最佳答案楼层

silenthunter

建议你VBA程序开发版块，求助，请人家用正则表达式帮你做一条公式。

ilovelittle

公式
=TRIM(MID(SUBSTITUTE(A2," ",REPT(" ",100)),FIND("套",SUBSTITUTE(A2," ",REPT(" ",100)))-100,200))

ilovelittle

1. Sub test()
   
2.     Dim rng As Range
   
3.     For Each rng In [a2:a5]
   
4.         arr = Split(rng.Value, " ")
   
5.         rng.Offset(0, 2) = Join(VBA.Filter(arr, "套"))
   
6.     Next
   
7. End Sub

复制代码

例.rar (16.74 KB, 下载次数: 15)

2017-3-10 09:36 上传

点击文件名下载附件

grf1973

1. Sub tt()
   
2.     Dim rng As Range
   
3.     With CreateObject("vbscript.regexp")
   
4.         .Global = True
   
5.         .Pattern = "(\s|^)[^套]*?(?=\s|$)"
   
6.         For Each rng In [a2:a5]
   
7.             rng.Offset(, 1) = .Replace(rng.Value, "")
   
8.         Next
   
9.     End With
   
10. End Sub

复制代码

cqzxpx

ilovelittle 发表于 2017-3-10 09:19
公式
=TRIM(MID(SUBSTITUTE(A2," ",REPT(" ",100)),FIND("套",SUBSTITUTE(A2," ",REPT(" ",100)))-100,200 ...

都是高手，谢谢啦

cqzxpx

grf1973 发表于 2017-3-10 11:33

都是高手，谢谢啦

望帝春心

cqzxpx 发表于 2017-3-10 14:18
都是高手，谢谢啦

如果回答有帮助就评下最佳吧