批量修改多个excel文件中相同位置的内容，比如把excel（1）中的A1添加XXX，对excel（2）等等都做相同修改

Question

批量修改多个excel文件中相同位置的内容，比如把excel（1）中的A1添加XXX，对excel（2）等等都做相同修改
在线等，做工程的，明天就要交了- -

一个excel文件里只有一个工作表，但是有几百个excel文件，这些文件只有文件名不一样，内容全是一样的，我想把文件名导进去做标题

Answer 1

批量修改EXCEL内容，只能通过excel宏VBA来实现了。几行代码就是了，你可以做相应的修改。
Public Sub UpdateExcel()
Dim path As String
Dim folderPath As String
Dim tBook As Workbook
'文件夹路径
folderPath = "C:\Users\fengxing\数据\开发\excel\test\"
'查询所有后缀是xlsx的EXCEL文件
path = Dir(folderPath & "*.xlsx")
'关闭EXCEL的警告提示，防止在关闭时弹提示框
Application.DisplayAlerts = False
'循环处理并继续查询。直接查询结果为空，表示没有下一个文件了则退出。
Do While path <> ""
'打开查询到的表格
Set tBook = Workbooks.Open(folderPath & path)
'修改工作表A1单元格的值为当前文件名。
tBook.Worksheets(1).Range("A1").Value = path
'关闭工作簿并保存
tBook.Close True
'继续查询下一个后缀是xlsx的文件
path = Dir
Loop
'打开EXCEL的警告提示
Application.DisplayAlerts = True
End Sub

Answer 2

VBA吧，如果你不嫌麻烦也可以录制个宏，然后一个一个表打开并运行宏。前提是你修改的内容和位置都是一样的。

方法：03版下：你先打开一个表，然后选择：工具——宏——录制宏 然后进行相应的操作，操作结束后，单击停止录制宏，宏就录制好了，运行时选择：工具——宏——运行宏 选择相应名字的宏即可

Answer 3

选中所有要修改的表，修改最前面的这张表的数据，完成后按下ctrl+enter
要求你的表格格式是一致的

如果是不同文件，用VBA吧

Answer 4

用VBA代码
sub 修改值 ()
for x=1 to sheets.count 'x的最大值是你工作表的数量
sheets(x).range("a1").value="XXX" 'range("a1")中a1是你需要修改的单元格，也可写成cells(1,1)
next
end sub

Answer 5

XXX是文件名？这个可以用按键精灵做一个脚本来实现