1、 在需要批量更新指定单元格内容的文件夹下，新建一个Excel文件，按ALT+F11打开VBE编辑器，新建一个模块，粘贴如下代码：
Option Explicit
Sub 批量修改同目录下工作薄指定单元格内容()
Dim f As String, wb As Workbook, th As Workbook, h, l, t
Const shname = "sheet1" '此处设置需要更改的工作表名称,这里默认是sheet1
Set th = ThisWorkbook
Application.ScreenUpdating = False
Application.DisplayAlerts = False
f = Dir(th.Path & "\*.xls") '获取文件夹地址许同一个版本：xls
gh:
h = InputBox("请输入类似1、2、3……65536", "请正确输入行坐标")
If h = "" Then Exit Sub
If h Like "*[!0-9]*" Or h > 65536 Then GoTo gh
gl:
l = InputBox("请输入类似A、B、C……IV", "请正确输入列坐标")
If l = "" Then Exit Sub
If l Like "*[!a-zA-Z]*" Or l Like "[a-zA-Z]*" = False Or _
(l Like "[a-zA-Z]?" And l Like "?[a-vA-V]" = False) Then GoTo gl
t = InputBox("更新内容", "请输入内容")
Do While f > " "
If f <> th.Name Then '判断是否为当前工作表
Set wb = Workbooks.Open(th.Path & "\" & f)
wb.Sheets(shname).Cells(h, l) = t
wb.Save
wb.Close
Else
th.Sheets(shname).Cells(h, l) = t
End If
f = Dir
Loop
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
2、 按ALT+F8，在弹出的宏对话框中：执行“批量修改同目录下工作薄指定单元格内容”宏。
3、 在弹出的请正确输入行坐标对话框中输入：6,点确定。
4、 在弹出的请正确输入列坐标对话框中输入：a，点确定。
5、 在弹出的请输入内容对话框中输入：a6，点确定。
6、查看文件夹下所有Excel文件，效果如下：
