Question

怎么批量修改一个文件夹内的所有excel文件。 希望知道具体的步骤和代码。。

修改内容如下：
1.查询含有2012XXXX的某一行然后把这个2012XXXX插入到第一列要全部都是这个数。
2.删除第1-9行
3.将某一格内容是AAA的修改为BBB
保存文件
我晕 删除替换这种事情还用你们教我么。我需要的是对几百个文件做修改 不是几个文件也不是几百个sheet。不用代码怎么实现？

求代码啊求代码 木有高手救一下我咩啊啊啊

Answer 1

问题1：在excel页面点击ctrl+F键会出来下图

在查找内容方框内填写要查找的数字，在替换方框内填写要替换的数字。是否全部替换或替换看你的需要了。PS：只想替换其中一行，只要把这一行选中再按本步骤操作！！

问题2：把鼠标放到表格最左边，点击鼠标左键往下拉，选中1-9行后松开，把鼠标放到选中区域右键之后出来一个菜单栏，其中一项就是删除！

 

问题3：请参照问题一的回答，操作步骤基本一样。

最后建议：表格运用不熟练的最好先另存一份，不然后悔晚矣！！切记！！

Answer 2

如果多个SHEET的表格都一样，可以同时编辑。如：按住CTRL键，点中多个SHEET，在SHEET1的A1输入数据，那么，被点中的SHEET的A1，就都有这个数据了。一个表删除某区域，其他表的同样区域也被删除了。
编辑----查找----AAA----替换---BBB----点选项----把“工作表”改成“工作薄”----全部替换。所有SHEET的AAA，就全部换成BBB了。

Answer 3

楼上说的对呢， 按住ctrl，单击同一个工作组的sheet，就可以，这样批量修改有个条件就是你的众多表格全部都是一样的格式，比如都是第一行是表头，表头每一列都相同的项目，但是批量的修改只能做替换、删除，添加等，就是你操作一个表，其他表就都变了，你删除第一个表的1-9行，其他表相应的删除自己的19-9行，像多个表共同筛选出某个数啥的，那种不能实现，

Answer 4

先获得这个目录下的全部文件名。
Sub aa()
Set r = CreateObject("Scripting.FileSystemObject").GetFolder("d:\temp") '可以改成你的路径
For Each f In r.Files
MsgBox f.Name
‘这里放你的宏，r.name 就是依次的文件名
Next
End Sub

追问

我想要具体的代码。。。

追答

第一问不明白
像删除与查找替换的代码，只要录宏就有了
先打开文件，执行录的宏，保存关闭文件
循环
即可