批量替换多个工作表里的数据

发布网友 发布时间：2022-02-26 03:13

我来回答

共2个回答

热心网友 时间：2022-02-26 04:42

选中要替换的区域，按“Ctrl+H”，在弹出的窗口上面一行输入“1.6元”，下面一行输入“1.8元”，点击全部替换。

热心网友 时间：2022-02-26 06:00

新建一个excel工作薄,按ALT + F11 插入一个模块,将下面的代码复制进去,然后执行(快捷键F5)

Sub replace() '子过程名replace
Dim myDialog As FileDialog, oFile As Object
Dim FSO, myFolder As Object, myFiles As Object
Dim fn$ '定义一些要用到的变量,分别获取文件夹名,文件名

Set FSO = CreateObject("Scripting.FileSystemObject") '创建文件操作

Set myDialog = Application.FileDialog(msoFileDialogFolderPicker) '用对话框获取文件夹路径

With myDialog

If .Show <> -1 Then Exit Sub '如果在文件夹选择时点"取消"则退出过程

Set myFolder = FSO.GetFolder(.InitialFileName) '将文件夹路径赋值到变量
Set myFiles = myFolder.Files '将文件夹内所有文件存入变量数组

For Each oFile In myFiles
Dim strName, strName1, strName2 As String '定义局部变量,检查文件扩展名是否为xls或xlsx
strName = LCase(oFile.Name)
strName1 = VBA.Right(strName, 3)
strName2 = VBA.Right(strName, 4)

If strName1 = "xls" Or strName2 = "xlsx" Then '如果是excel文件,则执行下面的操作
fn = myFolder & oFile.Name '这两句是用来打开文件的
Workbooks.Open Filename:=fn
Worksheets(1).Range("O1") = "280" '修改第一个工作表中的O1单元格的值,如果不是第一个工作表或不是这个区域,请修改之
Application.DisplayAlerts = False '为了防止保存时出现提示信息,关闭提示
ActiveWorkbook.Save '保存活动的工作薄
Application.DisplayAlerts = True '打开提示信息
ActiveWindow.Close '关闭工作蒲
End If
Next '处理下一个文件
MsgBox ("文件处理完成") '处理完文件夹内所有文件时提示操作完成

End With
End Sub
请采纳答案，支持我一下。追问执行后都浏览不到文件