Question

EXCEL VBA 截取字符串问题

小弟的问题很简单：有一个任意字符串，比如A=“ABCD1234-01-B"（注意这是一个例子，现实中是任意的，无规则的，任意长度，任意字符组合）
还有只一字符串B=”CD1234-B“（注意这个同A一样，也是任意长度，任意字符组合），求一个函数：判断A中是否包含B,是的话返回TRUE，不是的话返回FALSE，本例为包含返回TRUE

但B如为:"CD123-B"则为不包含，返回FALSE

有谁可以提供一个最简单的VBA 函数，谢谢。了

Answer 1

可用如下公式之一，
=COUNTIF(A1,"*"&B1&"*")
=IF(ISNUMBER(FIND(B1,A1)),TRUE,FALSE)
=IF(COUNTIF(A1,"*"&B1&"*")=0,FALSE,TRUE)
=IF(COUNTIF(A1,"*"&B1&"*"),TRUE,FALSE)

Answer 2

Sub qgrmdtj()
myPath = "C:\Users\sfx004\Desktop\Test" '把文件路径定义给变量
n = 2
myFile = Dir(myPath & "\*.*")
Do While myFile <> ""
Cells(n, 1) = myFile
myFile = Dir '找寻下 文件
n = n + 1
Loop
End Sub

Answer 3

二者规律必须要有的。

仅根据上面的例子，还没法准确归纳。
你还要继续描述一下A、B的规律、匹配的原则。

Answer 4

Private Function AB(A, B As String)
AB = IIf(Len(A) <> Len(B) And InStr(1, A, B) > 0, True, False)
End Function

Answer 5

If CELLS(1,1).Text Like "*B*" Then
或者InStr函数