VBA实现批量更新同目录下工作薄指定单元格内容

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