Sub 单列匹配()
Dim tiaojian1 As Range
Dim tiaojian2 As Range
Dim neirong1 As Range
Dim neirong2 As Range
Dim ZZ1 As String
Dim ZZ2 As String
Dim KK1 As String
Dim KK2 As String
Range("A1") = "内容1"
Range("B1") = "内容2"
Range("C1") = "打标"
Set neirong1 = [a2]
Set neirong2 = [B2]
Do Until Trim(neirong1) = ""
Set tiaojian1 = Worksheets("词库").Range("b4")
ZZ1 = CStr(neirong1)
KK1 = CStr(tiaojian1)
ZZ1 = VBA.UCase(ZZ1)
KK1 = VBA.UCase(KK1)
Do Until Trim(KK1) = "" Or (ZZ1 Like "*" & KK1 & "*")
Set tiaojian1 = tiaojian1.Offset(1, 0)
KK1 = CStr(tiaojian1)
KK1 = VBA.UCase(KK1)
Loop
If tiaojian1 <> "" Then
neirong1.Offset(0, 2) = tiaojian1.Offset(0, 1)
Else
neirong1.Offset(0, 2) = "其他"
End If
Set neirong1 = neirong1.Offset(1, 0)
ZZ1 = CStr(neirong1)
ZZ1 = VBA.UCase(ZZ1)
Loop
MsgBox "OK"
End Sub
2. 模式一
Sub 模式一()
Dim tiaojian1 As Range
Dim tiaojian2 As Range
Dim neirong1 As Range
Dim neirong2 As Range
Dim ZZ1 As String
Dim ZZ2 As String
Dim KK1 As String
Dim KK2 As String
Range("A1") = "内容1"
Range("B1") = "内容2"
Range("C1") = "打标"
Set neirong1 = [a2]
Set neirong2 = [B2]
Do Until Trim(ne