我有多個作業表應該參考另一張作業表。例如單元格 B3,sheet AC: =Inlife!G4。現在我創建了兩個新表 AC (2) 和 Inlife (2)，B3,sheet AC (2) 的參考應該是：
=Inlife (2)!G4
我已經嘗試了替換選項的許多變體，但到目前為止我所做的只是洗掉公式并留下一個值或空白單元格。
Dim rng As Range, cell As Range
Set rng = Sheets("AC (2)").Range("B3:B10")
For Each cell In rng
cell = WorksheetFunction.Substitute(cell, "Inlife", "Inlife (2)")
Next
有誰知道一種方法可以一次性更新所有參考文獻/公式？（我試圖只使用excel的搜索和替換功能，但這給了我一個關于公式的錯誤）
uj5u.com熱心網友回復：
請試試：
For Each cell In rng
cell.Formula = Replace(cell.Formula, "Inlife", "'Inlife (2)'")
Next
我也想建議的更換cell與變數cel。Cell是一個范圍屬性，最好避免創建此類變數。它可能會對復雜的代碼造成混淆......
uj5u.com熱心網友回復：
最后，這作業得很好。
Dim rng As Range, cel As Range
Set rng = Sheets("AC (2)").Range("B3:B10")
For Each cel In rng
cel.Formula = Replace(cel.Formula, "Inlife", "'Inlife (2)'")
Next
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/395105.html