我正在寻找一种简单的方法来替换Excel中公式的一部分。
每年我必须为超过66,000个公式执行此操作。目前,我使用“查找并替换”来加快工作速度,但仍然需要几个小时才能完成。
='C:\Excel\[File1.xlsm]08-01-20'!V5
我想08-01-20
用单元格的值替换上面公式的一部分C2
以以下格式创建两个列表"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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句