[已解决]批量替换匹配文本内容

hoyan

大神们好！想请问一下，如图，如何将 表1 中的个形容词所对应的类别匹配替换到 表2 的文本内容中并能够下拉批量替换，非常感谢！

最佳答案

月排行榜 / 总排行榜

windyjw007

2017-5-22 20:39

试试，结果生成在J列！{:2012:}

1. Sub th()
   
2.     Dim ar, br
   
3.     Dim i As Long
   
4.     ar = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
   
5.     br = Range("E2:F" & Cells(Rows.Count, 5).End(3).Row)
   
6.     For i = 1 To UBound(ar)
   
7.         For j = 1 To UBound(br)
   
8.             If ar(i, 1) Like "*" & br(j, 2) & "*" Then ar(i, 1) = Replace(ar(i, 1), br(j, 2), br(j, 1))
   
9.         Next j
   
10.     Next i
    
11.     With Cells(1, 10)
    
12.         .Resize(Rows.Count).ClearContents
    
13.         .Resize(i - 1) = ar
    
14.     End With
    
15. End Sub

复制代码

跳转到最佳答案楼层

windyjw007

试试，结果生成在J列！{:2012:}

1. Sub th()
   
2.     Dim ar, br
   
3.     Dim i As Long
   
4.     ar = Range("A2:A" & Cells(Rows.Count, 1).End(3).Row)
   
5.     br = Range("E2:F" & Cells(Rows.Count, 5).End(3).Row)
   
6.     For i = 1 To UBound(ar)
   
7.         For j = 1 To UBound(br)
   
8.             If ar(i, 1) Like "*" & br(j, 2) & "*" Then ar(i, 1) = Replace(ar(i, 1), br(j, 2), br(j, 1))
   
9.         Next j
   
10.     Next i
    
11.     With Cells(1, 10)
    
12.         .Resize(Rows.Count).ClearContents
    
13.         .Resize(i - 1) = ar
    
14.     End With
    
15. End Sub

复制代码

hoyan

ppepper 发表于 2017-5-22 20:39
试试，结果生成在J列！

大神您好！在运转的时候出现了这个问题，请问需要怎么修改~