excel - 更改部分 excel 公式以包含来自另一个单元格的数据

Question

我正在寻找一种简单的方法来替换 Excel 中的部分公式。

我每年必须为超过 66,000 个公式执行此操作。目前我使用查找和替换来加快工作速度，但仍然需要几个小时才能完成。

='C:\Excel\[File1.xlsm]08-01-20'!V5

我想更换 08-01-20上面公式的一部分，单元格值为 C2

Answer 1

以 "dd-mm-yy", 格式创建两个列表(一个日期不正确，一个日期正确

然后替换以下脚本中的示例日期并运行。

Sub Multi_FindReplace()

Dim sht As Worksheet
Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long

 fndList = Array("04-01-20", "11-01-20")
 rplcList = Array("05-01-20", "12-01-20")

  For x = LBound(fndList) To UBound(fndList)
      For Each sht In ActiveWorkbook.Worksheets
        sht.Cells.Replace What:=fndList(x), Replacement:=rplcList(x), _
          lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
          SearchFormat:=False, ReplaceFormat:=False
      Next sht

  Next x

End Sub