excelvba特定字符替换（查找一个字符在另一个字符中出现的位置）
excelvba特定字符替换（查找一个字符在另一个字符中出现的位置）下图为例，做了不同的字符查找：通过返回结果，可以对字符串做相应处理。语法：InStr([ start ] string1 string2 [ compare ])下图为Instr函数返回结果：
No.1判断一个字符串在另一个字符串中出现的位置，有助于更好地操作字符串。
无论是对字符串替换操作还是字符串截取都有很重要的帮助。
Instr函数可以返回一个字符串在另一个字符串中出现的位置。
函数语法如下图所示：
语法：
InStr([ start ] string1 string2 [ compare ])
下图为Instr函数返回结果：
通过返回结果，可以对字符串做相应处理。
下图为例，做了不同的字符查找：
上图代码示例：
Private Sub CommandButton1_Click()
Dim cell As Range Xcell As Range
Set cell = Range("B3:B9")
Dim Xstr As String
For Each Xcell In cell
Xstr = InStr(1 Xcell.Value _
Xcell.Offset(0 1).Value _
vbTextCompare)
Xcell.Offset(0 2).Value = Xstr
Next Xcell
End Sub
Instr函数还是比较容易理解的。
其中两个必选参数，其它参数可默认不选。
如下：
Dim Str1 as string Str2 as string
Str1="JMTT198800213"
Str2="1988"
Msgbox Instr(Str1 Str2)‘返回5
返回5，也就是1988在字符串Str1中出现的起始位置。
此函数不是很难，加强示例练习很快就掌握使用方法。
欢迎关注、收藏
---END---
