如何根据对照表实现批量替换

rual2

如何根据对照表替换原始数据里面的内容，谢谢！

microyip

对原始数据进行循环，对每个原始数据进行replace（原始数据，全称，简称）循环执行替换

cflood

查找“公司市场营销制度及标准（” 替换成空
查找“）” ，替换成1

rual2

microyip 发表于 2017-5-31 16:56
对原始数据进行循环，对每个原始数据进行replace（原始数据，全称，简称）循环执行替换

具体怎么实现？还没有入门，望多指点

microyip

连附件都没有一个，你来求助，还希望帮助你的人把数据都给你敲好？

rual2

microyip 发表于 2017-5-31 17:27
连附件都没有一个，你来求助，还希望帮助你的人把数据都给你敲好？

第一次发帖，忘记放附件了，还望多多指导

DevilW

Sub test()
    ar = Sheets("对照表").[a2:b5]
    For i = 1 To UBound(ar, 1)
        Sheets("原始数据表").[a:a].Replace ar(i, 1), ar(i, 2)
    Next
End Sub

cflood

Sub a()
arr = Range("A2:A" & Range("A65536").End(xlUp).Row)
brr = Worksheets("对照表").UsedRange
For i = 2 To UBound(brr)
    Cells.Replace What:=brr(i, 1), Replacement:=brr(i, 2)
Next i
Range("A2:A" & Range("A65536").End(xlUp).Row).Copy Range("B2")
Range("A2:A" & Range("A65536").End(xlUp).Row) = arr

End Sub

microyip

1. Sub 替换()
   
2.     Dim vData As Variant, nRow As Integer, vContrast As Variant, nI As Integer
   
3.    
   
4.     With Sheets("对照表").UsedRange
   
5.         vContrast = .Offset(1).Resize(.Rows.Count - 1).Value
   
6.     End With
   
7.     With Sheet1.UsedRange
   
8.         With .Offset(1).Resize(.Rows.Count - 1, 1)
   
9.             vData = .Value
   
10.             For nRow = 1 To UBound(vData)
    
11.                 If Trim(vData(nRow, 1)) <> "" Then
    
12.                     For nI = 1 To UBound(vContrast)
    
13.                         vData(nRow, 1) = Replace(vData(nRow, 1), vContrast(nI, 1), vContrast(nI, 2))
    
14.                     Next
    
15.                 End If
    
16.             Next
    
17.             .Offset(, 1) = vData
    
18.         End With
    
19.     End With
    
20. End Sub

复制代码

rual2

DevilW 发表于 2017-5-31 17:36
Sub test()
    ar = Sheets("对照表").[a2:b5]
    For i = 1 To UBound(ar, 1)

已解决，谢谢啦！