like用来比较两个字符串

nnsea

'like用来比较两个字符串。

'  ?任何单一字符?
'  * 零个或多个字符。
'  # 任何一个数字 (0–9)。
'  [charlist] charlist.中的任何单一字符?
'  [!charlist] 不在 charlist 中的任何单一字符。

Sub a1()
a = "admin" Like "Admin" '区分大小写
End Sub
Sub a2()
b = "abc" Like "a?c" ' 通配符运用
b2 = "abc" Like "???"
End Sub
Sub a3()
c = "excel函数" Like "*函*"
End Sub
Sub a4()
d = 88 Like "##"
End Sub
Sub a5()
e = "a" Like "[a-z]"
f = 8 Like "[!1-7]"
g = 8 Like "[1-4,6-9]"
End Sub

nnsea

Sub aa()
For j = 2 To 6
    For i = 2 To 14
        If Cells(i, "a") Like Cells(j, "e") Then n = n + 1
    Next
        Range("f" & j) = n
        n = 0
Next
End Sub

nnsea

条件	结果	注释
*###	8	最后三个是数学
*E*	9	包含E字
NED#	4	以NED开始，然后接一个数字
[A-Z][A-Z]###	2	两个任意字母开始，再接三个任意数字
????	5	编号为四个字符