Sub str_test()
Dim str As String, str1 As String
str = "sd\sdsds\"
str1 = InStrRev(str, "\")
MsgBox (str1) '从右向左查找,返回值是9,核实位置确实在第九位
str1 = InStr(str, "\")
MsgBox (str1) '从左向右查找,返回值是3,核实位置确实在第三位
End Sub
本文介绍了一种使用VBA进行字符串查找的方法,通过InStr和InStrRev函数,分别实现从左向右和从右向左查找特定字符或子串的位置。这在处理大量文本数据时非常实用,能够帮助程序员快速定位字符串中的关键信息。
Sub str_test()
Dim str As String, str1 As String
str = "sd\sdsds\"
str1 = InStrRev(str, "\")
MsgBox (str1) '从右向左查找,返回值是9,核实位置确实在第九位
str1 = InStr(str, "\")
MsgBox (str1) '从左向右查找,返回值是3,核实位置确实在第三位
End Sub
1402

被折叠的 条评论
为什么被折叠?