在需要批量更新指定单元格内容的文件夹下，新建一个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 "**" Or h 65536 Then GoTo gh

gl:

l = InputBox("请输入类似A、B、C……IV", "请正确输入列坐标")

If l = "" Then Exit Sub

If l Like "**" Or l Like "*" = False Or _

(l Like "?" And l Like "?" = 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

按ALT+F8，在弹出的宏对话框中：执行“批量修改同目录下工作薄指定单元格内容”宏。

在弹出的请正确输入行坐标对话框中输入：6,点确定。

在弹出的请正确输入列坐标对话框中输入：a，点确定。

在弹出的请输入内容对话框中输入：a6，点确定。

查看文件夹下所有Excel文件，效果如下：