如何匹配呢?

class11class

条件:深圳市石岩

用这个条件去匹配这个地址: 广东省深圳市宝安区石岩镇塘头村松柏路（塘头大道）宏发科技工业园B栋1-5层（整栋）/
匹配上了,并将"深圳市石岩"返回到单元格内:


最难就是深圳市石岩
各位大神们,这个问题如何用VBA解决?我想了一下午,都没法解决,特来请教各位,谢谢指导.

于箱长

那个深圳盐田也难吧？

tiger1976

Sub lll()

    Dim rng1 As Range
    Dim rng2 As Range
    Dim str As String
    Dim i, k, m, n As Integer
   
    For Each rng1 In Range("a5:a6")
        For Each rng2 In Range("c5:c9")
        n = 0
            i = Len(rng2.Value)
            For k = 1 To i
                m = 0
                str = Mid(rng2.Value, k, 1)
                On Error Resume Next
                m = Application.WorksheetFunction.Find(str, rng1.Value)
                If m <> 0 Then
                    n = n + 1
                End If
            Next
            If n = i Then
                rng1.Offset(0, 1) = rng2
            End If
        Next
    Next
  
End Sub

class11class

tiger1976 发表于 2023-4-1 22:12
Sub lll()

    Dim rng1 As Range

多谢,成功地解决我这个难题,感谢