如何批量修改N个相同模板EXCEL文件的某个单元格的内容，谢谢

答案:2 悬赏:80 手机版

解决时间 2021-01-30 22:31

提问者网友：戎马万世
2021-01-30 01:50

你们好，我是搞报价分析的，有时候只需要修改某个单元格的一个数据，但是我每次都要重复打开好几百个文件，重复修改，希望大神能够编织一个宏设置，帮我实现批量修改EXCEL的某个表格的内容，谢谢

最佳答案

五星知识达人网友：一把行者刀
2021-01-30 02:32

Sub test()
Application.ScreenUpdating = False
p = "d:\1\" ' 指定你所要批量更新的文档的文件夹路径
f = Dir(p & "*.xls")
m = ThisWorkbook.Name
Do While f <> ""
If f <> m Then
Set w = Workbooks.Open(p & f)
w.Sheets(1).Range("17:30") = Now ' '改成你所想要变更的单元格及内容
w.Close True
End If
f = Dir
Loop
Application.ScreenUpdating = True
End Sub

全部回答

1楼网友：掌灯师
2021-01-30 03:41

w.sheets("门窗单价分析").range("e30") = " " 在双引中输入公式就可以了,记得要先输入= 例如w.sheets("门窗单价分析").range("e30") = " =a1 +b1",就是计算a1和b1单元格的和

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息