工具虽小,但是很实用
一、不废话,直接上宏
Sub batchReplace()
一、不废话,直接上宏
Sub batchReplace()
'
' 批量替换 宏
'
'字符串声明
Dim str1 As String
Dim str2 As String
'两层循环嵌套,i表示行号
For i = 1 To 500
'拼接An,并取其中的值
'str1为A列为批量替换中原值,str2为B列为替换后的值。
'str1为A列为批量替换中原值,str2为B列为替换后的值。
str1 = Sheets("Sheet2").Cells(i, "A").Value
str2 = Sheets("Sheet2").Cells(i, "B").Value
'Sheet1表格为需要替换的数据表格
'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、运行宏,使命必达,哈哈哈。
二、如何应用该宏
1、另存一个.xlsm格式文件
2、按照需要建立sheet1和sheet2表格
3、进入宏编辑界面,并创建宏
在sheet1上右击,点击查看代码进入编辑界面
4、运行宏,使命必达,哈哈哈。