vba模糊匹配，自动填充

wkfcoffee

A列为不规范的单位名称，H列为各单位不重复的关键词（这一列很长，删了一大半），I列为单位全称。写一段VBA代码，用A列与H列模糊匹配，匹配成功后调用I列数据，写入B列；未成功，就保留A列数据。琢磨了好久，奈何vba水平实在太菜，敬请各位大侠相助！



批量替换名称（VBA）.rar (12.58 KB, 下载次数: 23)

2023-7-26 08:25 上传

点击文件名下载附件

吴中泉

如图所示

蓝桥玄霜

替换的例子：

吴中泉

修改一下:

LIUZHU

WPSJS来一波

LIUZHU

附件在此，请用WPS测试

LIUZHU

额，还能精简一点，这个也可以

yynrzwh

1. Sub db()
   
2. 
   
3. Range("B1:B999").Clear
   
4. arr = Range("A1:I14")
   
5. For i = 1 To 4
   
6.     k = 0
   
7.     For j = 1 To UBound(arr)
   
8.         If InStr(arr(i, 1), arr(j, 8)) Then
   
9.             arr(i, 2) = arr(j, 9)
   
10.             k = 1
    
11.             Exit For
    
12.         End If
    
13.     Next j
    
14.     If k = 0 Then arr(i, 2) = arr(i, 1)
    
15. Next i
    
16. Range("A1:I14") = arr
    
17. End Sub

复制代码