VBA代码Like运算符，通配符

Sub test1()

Dim i, j

Range("a2:a15").Interior.Pattern = xlNone

For i = 2 To 15

If Range("a" & i) Like "[!A-Z a-z]*" Then

Range("a" & i).Interior.Color = 65535

k = k + 1

End If

Next

Range("f1") = k

End Sub

---------------------------------------

Sub ss()

Dim str As String

str = "广西壮族自治区"

l = str Like "*广西*"

MsgBox l

End Sub

----------------------------------------

Type Item

riqi As String

liu_id As String

leixing As String

zhuangtai As String

shangpin As String

tuikuan As String

neijian As String

shuliang As String

danjia As String

zongjia As String

yunfei As String

zongjia As String

yu_e As String

jin_e As String

shouru As String

zhifufangshi As String

name As String

phone As String

sheng As String

shi As String

qu As String

dizhi As String

dingdan_id As String

kuaidi_bianhao As String

kuaidi_id As String

beizhu As String

End Type

PN		问题：符合条件的项目	数量	代码
J236772		第一位以J开头	5	"J*"
G563w55		第一位以J开头并且7个字符	4	"J??????"
P774757		第一位以J开头、7个字符、第五位是w	0	"J???w??"
6722372
A673h77		第一位以A-M开头	7	"[A-M]*"
6yty888		第一位以大写字母开头	9	"[A-Z]*"
tYS667		第一位以字母开头	11	"[A-Za-z]*"
Y776w88
J763321		第一位以数字开头	3	"[0-9]*"
J763w2		前两位以数字开头	1	"[0-9][0-9]*"
J763a21		第一位以数字开头 第二位不是数字的	2	"[0-9][!0-9]*"
J763a2P
5k44565		第一位以J开头、7个字符、第五位是字母	1	"J???[A-Z a-z]??"
j77th27		开头结尾是大写字母 并且7位	1	"[A-Z]?????[A-Z]"
		第一位不是字母	3	"[!A-Z a-z]*"