数据清洗宝箱第一弹：批量替换

工具虽小，但是很实用

一、不废话，直接上宏 

Sub batchReplace()

'

' 批量替换 宏

'

'字符串声明

 Dim str1 As String

 Dim str2 As String

'两层循环嵌套，i表示行号

 For i = 1 To 500

'拼接An，并取其中的值
    'str1为A列为批量替换中原值，str2为B列为替换后的值。 

    str1 = Sheets("Sheet2").Cells(i, "A").Value

    str2 = Sheets("Sheet2").Cells(i, "B").Value
    'Sheet1表格为需要替换的数据表格 

    Sheets("Sheet1").Select

    Cells.Replace What:=str1, Replacement:=str2, LookAt:=xlPart, _

    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

    ReplaceFormat:=False

 Next

End Sub

二、如何应用该宏
1、另存一个.xlsm格式文件
 2、按照需要建立sheet1和sheet2表格




3、进入宏编辑界面，并创建宏
在sheet1上右击，点击查看代码进入编辑界面





4、运行宏，使命必达，哈哈哈。