要先安装VBA插件,然后写批量修改的代码,将要修改的文件都放在一个文件夹内,以统一修改A1单元格的内容为序号为例,代码为:
Sub 统一修改()
Dim 文件$, 文件路径$, arr(999), count%, 文件夹 As Object, path$, 打开文件
Set 文件夹 = Application.FileDialog(msoFileDialogFolderPicker)
With 文件夹
.Title = "请选择文件所在的文件夹"
End With
文件夹.Show
path = 文件夹.SelectedItems(1)
文件 = Dir(path & "\*.xl*") '遍历D盘根目录下所有表格文件
count = count + 1
arr(count) = 文件
Do While 文件 <> ""
文件 = Dir
If 文件 = "" Then Exit Do
count = count + 1
arr(count) = 文件 '将文件的名字存在数组中
Loop
Application.ScreenUpdating = False
For i = 1 To count
文件路径 = path & "\" & arr(i)
Set 打开文件 = Workbooks.Open(文件路径)
打开文件.Worksheets(1).[a1] = "序号"
打开文件.Close True
Next
Application.ScreenUpdating = True
End Sub