vba如何判断字符串里面是包含某个字符？

Posted 2023-04-04

如题，要如何写才能判断 某个字符串里面包含的字符？然后从这个字符右边开始替换数值
例如：010-12345678 判断里面是否有“-”然后从“-”右边开始 替换4位数“****”
结果为：010-****5678

用instr()函数，语法是：
instr(起始位置，查找对象，查找目标，比较模式)
例如instr(1，“1234”，“3”，1)返回3，即按文本比较，在字符串中找到“3”，并返回其位置3。 参考技术A Sub 替换()
Dim i, x, n
For i = 1 To Range("a65536").End(xlUp).Row
x = Len(Cells(i, 1))
n = InStr(1, Cells(i, 1), "-", 1)
M = "abcd" '替换的数据
L = Left(Cells(i, 1), n)
R = Right(Cells(i, 1), x - 8)
Cells(i, 2) = L & M & R
Next
End Sub
参考下本回答被提问者采纳

Excel,VBA中，如何判断变量是不是包含特定字符串

excel单元格中可以用调用find，search的Application.WorksheetFunction公式。但vba的变量用什么方法？
现在是假定变量a="我想测试是否包含aa字符串"，这个变量a中是否含有aa，如何测试？？

VBA 中可以使用 这两个函数 函数啊……
也可以直接使用 另外一种 Like 函数……
如：
If A Like "*aa*" Then
MsgBox "A中有aa 这个字符串"
Else
MsgBox "A中没有aa 这个字符串"
End If
或者 使用 InStr 这个函数计算 也可以…… 参考技术A if instr(1,a,"aa") >0 then
msgbox("a 包含 'aa'")

else
msgbox("a 不包含 'aa'")
end if本回答被提问者采纳