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文件，效果如下：
