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