如何批量修改同一文件夹下所有工作簿指定工作表中某一单元格内容？

zhuliang80s · 发表于 2021-1-9 03:15

请问各位大侠，如何批量修改同一文件夹中所有相同样式工作簿中的相同工作表名称为“1.8”中的相同单元格地址C7中的公式由"=A7+B7"改为“=A7+B8”?此处只为举例，C7单元格中可能是任意内容，有可能是公式也有可能是其他任意公式，现在想要达到的结果如何用VBA代码，能够批量修改同一文件夹中所有工作簿中某一个工作表中相同单元格的内容。请大侠不吝赐教，本人感激涕零！

zhuliang80s · 发表于 2021-1-9 03:23

要修改的单元格地址最好做成对话框输入，被替换的内容最好也做成对话框输入。

js_nx · 发表于 2021-1-9 09:42

先遍历文件夹获取工作簿路径和名称，然后创建对象打开修改对应单元格

cui26896 · 发表于 2021-1-9 10:25

上传附件，是全修改过了，意义不大，把代码上传
Sub test()
Dim p, f, s(), k, mfc$, confirm, indata
  mfc = InputBox("输入替换内容" & Chr(10) & "输入格式" _
  & Chr(1) & "B8等单元格")
  MsgBox mfc & "请确认"
  confirm = InputBox("y")
  If confirm = "y" Then indata = mfc
  p = ThisWorkbook.Path & "\"
  f = Dir(p & "*.xlsx")
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  Do While Len(f)
If f <> ThisWorkbook.Name Then
   k = k + 1
   ReDim Preserve s(1 To k)
   With Workbooks.Open(p & f)
      With Sheets("1.8")
      .Activate
      s(k) = Replace(.Range("c7").Formula, "B7", mfc)
      .Range("c7").Formula = s(k)
      End With
      .Save
      .Close (True)
   End With
End If
f = Dir
  Loop
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
End Sub

cui26896 · 发表于 2021-1-9 10:33

又要审核，只能上传附件了。使用时，请先按提示输入需要修改公式内容的字符，输入”y"(小写字母),再按提示输入修改公式内容的字符,输入”y"(小写字母).

数据.zip (202.51 KB, 下载次数: 61)

zhuliang80s · 发表于 2021-1-9 16:08

cui26896 发表于 2021-1-9 10:33
又要审核，只能上传附件了。使用时，请先按提示输入需要修改公式内容的字符，输入”y"(小写字母),再按提示 ...

原始的表是个套表，一个工作簿中接近一百个工作表，有些公式设置错误，现在需要改过来。还有一个问题，就是要改的内容不一定是表“1.8”，有可能是1.1、1.2或者是其他表，是否可以再设置一个对话框，定位到需要改的表上面？

zhuliang80s · 发表于 2021-1-9 16:23

cui26896 发表于 2021-1-9 10:33
又要审核，只能上传附件了。使用时，请先按提示输入需要修改公式内容的字符，输入”y"(小写字母),再按提示 ...

运行了一下，好像没有达到预期的结果，公式所有内容都没有变化。

cui26896 · 发表于 2021-1-9 16:29

增加了输入表名

数据.zip (202.64 KB, 下载次数: 98)

cui26896 · 发表于 2021-1-9 16:37

zhuliang80s 发表于 2021-1-9 16:23
运行了一下，好像没有达到预期的结果，公式所有内容都没有变化。

你不要再用你原来的B7，第一次输入A7,输入”y"确定，提示出来，输入A9,输入”y"确定,出现不停的闪动结束后，你去看看各工作簿还是不是你原来表中的A7

cui26896 · 发表于 2021-1-9 16:39

本帖最后由 cui26896 于 2021-1-9 16:41 编辑

zhuliang80s 发表于 2021-1-9 16:08
原始的表是个套表，一个工作簿中接近一百个工作表，有些公式设置错误，现在需要改过来。还有一个问题，就 ...

你这那象有一点求助的意思的啊，完全是在发号施令啊！

		自动登录	找回密码
密码			免费注册

[求助] 如何批量修改同一文件夹下所有工作簿指定工作表中某一单元格内容？

评分

最新热点 /1