Sub 批量修改()
'On Error Resume Next
Dim FileOpen
Dim X As Integer
Dim wb As Workbook
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="选择工作薄")
X = 1
While X <= UBound(FileOpen)
Set wb = Workbooks.Open(FileOpen(X))
wb.Sheets(1).[a1] = "456"
wb.Sheets(1).[D4] = "王月"
wb.Close True
X = X + 1
Wend
End Sub
这个宏 会把 你选中的文件 批量替换 sheet1 ：A1的内容 改为 456 D4 的内容改为 王月， 你可以根据你的实际情况修改代码就可以了， 如果单元格不固定就 用FIND 方法找到再修改
找到 查找/替换 把要换的词 和 要换成的词 输入就行了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024