Question

如何对同一个文件夹下几十个相同excel表格相同的单元格进行批量替换

Answer 1

Sub 批处理()
Dim MyPath
Dim MyName
Dim AWbName
Dim Wb As Workbook

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name

Do While MyName <> ""

If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Wb.Sheets(1).Select

[……自行添加录制好的宏代码……]
ActiveWorkbook.Save

Wb.Close False

End If

MyName = Dir
Loop

Application.ScreenUpdating = True

End Sub

使用vba,按下Alt+F11把代码编辑下

Answer 2

选中所有同一个文件夹下相同表格，在当前页修改进行替换。

Answer 3

有两个方案：1.用函数（如果文件数量不是很多的话）：选定一个为主表（假定名为"主表.xls"）在每个其他文件中相应的单元格都引用主表的相应单元格，例如在D2单元格输入='[主表.xls]book'!D2向下充填，就将主表D列的数据引用到当前表格了。2.用VB...

Answer 4

我写过这样的类似程序，可以给你实现.

Answer 5

你说的问题可以用vba做到。