求助一个问题

yamiedie

请帮帮忙，附件里面写的很清楚

smhf_6

不必用宏吧，查找替换还算方便的

yamiedie

sheet2是正确格式，如何将sheet2中正确的格式匹配到sheet1的A列当中，比如大候村委会是错误的，而sheet2中是大候乡，然后如何改成大侯乡村委会，VBA如何实现呢，谢谢

xiangbaoan

………………………………

hsw212

1. Sub getOri()
   
2. Dim arr, brr, crr() As Integer
   
3. Dim i%, j%, k%
   
4. arr = Sheet1.Range("a1").CurrentRegion
   
5. brr = Sheet2.Range("a1").CurrentRegion
   
6. ReDim crr(1 To UBound(brr, 1))
   
7. For i = 1 To UBound(arr, 1)
   
8.     For j = 1 To UBound(brr, 1)
   
9.          For k = 1 To Len(arr(i, 1))
   
10.            If InStr(brr(j, 1), Mid(arr(i, 1), k, 1)) >= 1 Then crr(j) = crr(j) + 1
    
11.          Next
    
12.     Next
    
13.     Sheet1.Cells(i, 2) = Sheet2.Cells(Application.Match(Application.Max(crr), crr, 0), 1)
    
14.     ReDim crr(1 To UBound(brr, 1))
    
15. Next
    
16. End Sub

复制代码

yamiedie

谢谢两大佬