Excel宏命令实现批量替换文字.jpeg

从网上下载下来的一些表格或者从某些程序里面导出的数据,有时候会有很多文字在表格中多次出现,而我们想把这些文字全都替换成某些指定的其他文字,这时候如果只有某几个文字还好说,如果要替换的多达几十组,并且我们经常需要每天反复的替换这些文字的话,Excel自带的搜索替换功能显然变得力不从心。

这时候,宏命令就派上用场了。使用下面这组宏命令,可以轻松实现Excel表格批量替换文字的目的。

Sub deletewords()
arr = Array("宝丽姿", "图", "其他") '此处添加所有关键词
For i = 501 To 2 Step -1 '删除行和常用方法是从下往上循环
tmp = Cells(i, "B")
For Each a In arr
If InStr(tmp, a) > 0 Then
Rows(i).delete shift:=xlUp
Exit For
End If
Next j
Next i
End Sub