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

zhuliang80s

cui26896 发表于 2021-1-9 16:39
你这那象有一点求助的意思的啊，完全是在发号施令啊！

大侠，不好意思，我是求助，只是把需求直接说出来了，您说上传的附件是修改过了的，我是解释原来附件工作簿中的表有一百多个，有些公式是错误的。可能大侠有点误解，我绝对不是发号施令，在论坛里面我就是个小小草，需要大侠们的帮助，我很感谢大侠给予的帮助。

zhuliang80s

cui26896 发表于 2021-1-9 10:25
上传附件，是全修改过了，意义不大，把代码上传
Sub test()
Dim p, f, s(), k, mfc$, confirm, indata

s(k) = Replace(.Range("c7").Formula, mfcd, mfc)
大侠，如果单元C7是变量，如何设置成对话框输入呢？

cui26896

增加了输入单元格要求
数据.zip (202.99 KB, 下载次数: 104)

2021-1-9 22:49 上传

点击文件名下载附件

zhuliang80s

cui26896 发表于 2021-1-9 22:49
增加了输入单元格要求

这个代码我运行了一下，把B8单元格中的“3”替换成“4”，出现的结果是一个公式，是C7单元格的内容。

cui26896

B列只有数字，没有公式啊，你看看自己当初求肋是怎样说的。要对数字，字符串，公式处理，是不一样的。

zhuliang80s

cui26896 发表于 2021-1-10 07:53
B列只有数字，没有公式啊，你看看自己当初求肋是怎样说的。要对数字，字符串，公式处理，是不一样的。

好的，谢谢你，以前好像可以送鲜花的，现在找不到了，手动送你一朵鲜花。

zhuliang80s

cui26896 发表于 2021-1-10 07:53
B列只有数字，没有公式啊，你看看自己当初求肋是怎样说的。要对数字，字符串，公式处理，是不一样的。

大侠，我如果想替换不同数字、字符串、任意单元格内容，是不是只修改代码s = .Range("c7").Formula中的c7就可以了？

cui26896

Range("c7").Formula改成Range("c7")

zhuliang80s

cui26896 发表于 2021-1-10 12:23
Range("c7").Formula改成Range("c7")

  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(bm)
          .Activate
          s(k) = Replace(.Range(inrng), mfcd, mfc)
          .Range(inrng) = s(k)
        End With
        .Save
        .Close (True)
      End With
    End If
    f = Dir
  Loop
  Application.ScreenUpdating = True
  Application.DisplayAlerts = True
End Sub

Sub shi()
Dim s
  With Sheets(76)
    .Activate
    Debug.Print .Name
    s = .Range("C7")
  End With
End Sub
您好，这样改不知道对不对？运行了好像没有成功，大侠能不能教我一下，就是上面的代码如何改了之后，能够先确定工作表，然后确定工作表里面的单元格，然后将该单元格的内容替换成任意想要替换的内容（不限是公式、字符串、还是数字等等），现在就差最后一步，将需要替换的内容替换成被替换的内容了。

zhuliang80s

哪位论坛的朋友可以解释一下上图代码的含义，我有点没看懂。