求助,A1字段包含B列任意一格的精确值，如包含“金牛区”，则

Sub uuu()
Application.ScreenUpdating = False
jh = Range("a1048576").End(xlUp).Row
jk = Range("a2:b" & jh)
For xh = 1 To jh - 1
If InStr(1, jk(xh, 1), jk(xh, 2), vbTextCompare) > 0 Then
jk(xh, 1) = "省内"
Else
jk(xh, 1) = "省外"
End If
Next xh
Range("c2").Resize(xh - 1, 1) = jk
Application.ScreenUpdating = True
End Sub

Option Explicit
Sub 匹配()
　Dim a(1), i, j
　For i = 1 To UBound(a) + 1
　　a(i - 1) = Cells(1, i).Resize(Cells(Rows.Count, i).End(xlUp).Row).Value
　Next
　For i = 1 To UBound(a(0))
　　For j = 1 To UBound(a(1))
　　　If InStr(a(0)(i, 1), a(1)(j, 1)) Then Exit For
　　Next
　　If j = UBound(a(1)) + 1 Then a(0)(i, 1) = "省外" Else a(0)(i, 1) = "省内"
　Next
　[d1].Resize(UBound(a(0))) = a(0)
End Sub

谢谢大哥，对我很有帮助，感谢了。厚颜无耻的在追问一下，（加一个条件，所需目标有：省内、省外和县内，A列是详细地址，B列是除县内的省内全部市、县、区【跟我发的图片一样），现在C列增加了县内的县、乡、镇地址），问如何在之前的基础上实现3个不同目标的生成。】