提出字符串

hank2611

1. Function getStr(myStr As String, startStr As String, endStr As String)
   
2. 'myStr 要在其中查找的字符串
   
3. 'startStr 定位的第一个字符
   
4. 'endStr 定位的后一个字符
   
5. '返回结果为startStr ， endStr之间的字符
   
6. '
   
7. 
   
8.     Dim iStart As Integer
   
9.     Dim iEnd As Integer
   
10.     iStart = InStr(1, myStr, startStr)
    
11.     iEnd = InStr(1, myStr, endStr)
    
12.     If iStart = 0 Or iEnd = 0 Then getStr = "0": Exit Function
    
13.     getStr = Mid(myStr, iStart + VBA.Len(startStr), iEnd - iStart - Len(startStr))
    
14. 
    
15. End Function
    

复制代码

例如：=getstr("我爱VBA","我","VBA")
则返回结果“爱”

tswing

不一定有用，比如，你的字符串中有数个"我","VBA"，要提取哪个？

jiangxiaoyun

和SUBSTITUTE嵌套差别不大啊

ggmmlol

我爱五星红旗，我爱国歌，我爱北京天安门，我爱我的祖国。

如果想要提取上面一句中第3个“我爱”和“，”之间的内容，用这个函数怎么做？

hank2611

ggmmlol 发表于 2018-7-21 09:15
我爱五星红旗，我爱国歌，我爱北京天安门，我爱我的祖国。

如果想要提取上面一句中第3个“我爱”和“， ...

代码是可以自由更改的，你可以添加一个第几次出现的位置就好了。