多个EXCEL怎么进行快速批量替换

如果我们有多个Excel文件，多个Sheet，需要进行多个文件多个关键字的批量替换，将每个关键字替换成对应的文字。

有一个在线免费工具，不需熟悉vba或者公式函数，地址：www.excelfb.com,点击：批量替换  中的  多个Excel文件批量替换

 

   注：只进行批量查找请看文章：https://blog.csdn.net/loubo_001/article/details/91819288

(注意要使用谷歌浏览器)

 

使用方法如下：

例如，我有以下多个Excel文件，每个文件中都要进行如下替换：



 

1、新建一个Excel文件,制作批量替换规定文件如下：

        

2、选择要替换的文件，选择制作好的批量替换规定文件

3、如果全部范围都替换不需要指定列，如果固定列替换，输入Excel列号

4、点击“替换—生成新文件”，等待下载替换完成的文件（对于谷歌浏览器：下载多个文件很方便；火狐浏览器：要一个一个点保存）

5、下载的文件一般位于  计算机->下载  目录中

工具：文本账号文件免安装便捷管理神器（下载地址看其他文章）

1、打开工具，切换到批量文本替换模块，里面写好替换的规则，左侧写目标，右侧写结果，写好后保存



2、把保存好的“目标”替换规则上，右键，点击“以此参照执行”，这个规则就会被勾选



3、勾选代表将会以这个规则为参照本去执行替换



4、切换到文章模块，快捷键：Ctrl+1，随便建一个文章，叫001，里面就写上我规则里的目标吧，这样替换后就直接能看结果



5、在左侧001上右键，可以看到一个批量替换的选项，点击就替换这一个文章，如果是一个文件夹，那么就会把整个文件夹里的文章按规则去做替换操作（新版本的替换效果可以根据电脑性能来弹性执行，如果要处理很多内容的替换时，比如十几万个文件要替换，耗时特别长，干等着无聊，那总会想着用电脑干其他事，那你用电脑干其他事的时候，工具自己会自动降低性能，以保证你干其他事不卡，如果什么都不做，就只有工具自己做替换任务，工具就会自己全速执行替换任务，这一点很强大）



6、在文章里面右键，也能看到



7、点击后，弹出提示，第一个提示就直接点确定，就是以“目标”规则执行



8、第二个询问的弹窗，也点是，其实是否在这里都一样，因为001里面我每个要替换的内容都占一行，按行替换也可以，具体什么时候选哪个替换，看弹出的说明就明白了，还是很简单易懂的



9、然后就会自己执行替换了，等它执行好了就行



10、结果：

替换文件夹下所有文档的内容，需要替换的文档不能打开，采用宏进行批量替换，亲测成功，测试是word2016 

根据简书作者改编https://www.jianshu.com/p/9d348b8015b6?utm_campaign=maleskine&utm_content=note&utm_medium=seo_notes&utm_source=recommendation 

第一步：新建一个Word并打开，点击工具栏视图–宏(下边的倒三角)–查看宏 

 

第二步：填写一个文件名，点击创建 

 

第三步：复制以下代码，替换新创建的宏代码(如果以前有宏注意不要误删)，注意代码格式，保存

Sub CommandButton1_Click()
Application.ScreenUpdating = False  '关闭屏幕闪
Dim myFile$, myPath$, i%, myDoc As Object, myAPP As Object, txt$, Re_txt$
Set myAPP = New Word.Application
With Application.FileDialog(msoFileDialogFolderPicker) '允许用户选择一个文件夹
    .Title = "选择目标文件夹"
    If .Show = -1 Then
        myPath = .SelectedItems(1) '读取选择的文件路径
    Else
        Exit Sub
    End If
End With
myPath = myPath & ""
myFile = Dir(myPath & "\*.docx")
txt = InputBox("需要替换的文字：")
Re_txt = InputBox("替换成：")
myAPP.Visible = True '是否显示打开文档
Do While myFile <> "" '文件不为空
Set myDoc = myAPP.Documents.Open(myPath & "\" & myFile)
If myDoc.ProtectionType = wdNoProtection Then '是否受保护
    With myDoc.Content.Find
        .Text = txt
        .Replacement.Text = Re_txt
        .Forward = True
        .Wrap = 2
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute Replace:=2
    End With
End If
myDoc.Save
myDoc.Close
myFile = Dir
Loop
myAPP.Quit '关掉临时进程
Application.ScreenUpdating = True
MsgBox ("全部替换完毕！")
End Sub



 

第四步：回到Word文档，点击视图–宏，运行宏 

 

第五步：弹出窗口，选择需要替换文档的文件夹(文件夹下不会显示文件名) 

 

第六步：要替换的文字 

 

第七步：替换成 

 

第八步：需要等待一会，显示全部替换完毕即可 

Vscode 同时编辑多处文字 批量替换编辑内容（当前页面）

先按Ctrl+F打开搜索框，然后搜索要编辑的内容
接着按Ctrl+Shift+L就可以选中对应的所有内容了。并进行全部替换
或者按了Ctrl+shift+L之后把搜索框关闭就可以同时编辑多处了。

例如我搜索了 N