求助大神：实现批量替换

longsen_hz

求助大神：实现批量替换，将表“替换”中对应的替换内容全部替换表“10-16”，谢谢大神了

longsen_hz

还请大神帮帮忙啊

池盛龙

1. Sub cls()
   
2. Application.ScreenUpdating = False
   
3.     Dim ar, dr, cr
   
4.     ar = Range("A2:B" & Range("A65300").End(3).Row)
   
5.     With Sheets("被替换")
   
6.     dr = .Range("A2:O10000")
   
7.     For x = 1 To UBound(dr) - 1
   
8.     dr(x, 1) = ""
   
9.     d = ""
   
10.         For y = 3 To 14
    
11.                     If dr(x, y) <> "" Then
    
12.             For t = 1 To UBound(ar) - 1
    
13.                 If dr(x, y) = ar(t, 1) Then
    
14.                     dr(x, y) = ar(t, 2)
    
15.                     If y > 4 Then
    
16.                     d = ","
    
17.                     End If
    
18.                    dr(x, 1) = dr(x, 1) & d & dr(x, y)
    
19.                    t = UBound(ar) - 1
    
20.                 End If
    
21.             Next
    
22.             Else
    
23.             y = 14
    
24.             End If
    
25.         Next
    
26.     Next
    
27.     .[A2].Resize(UBound(dr), 14) = dr
    
28.     MsgBox "替换完成！", vbInformation, "池盛龙提醒！"
    
29.     End With
    
30.     Application.ScreenUpdating = True
    
31. End Sub
    
32. 
    
33. 
    

复制代码

池盛龙

请看附件，此份为准