更新单元格公式引用时复制工作表

3 回答

• 0

  正如我在评论中提到的，如果您想要更新引用，请同时复制两张表：

  Sheets(Array("Sheet1", "1_Result")).Copy After:=Sheets(Sheets.Count)
  

  这个对我有用：

  Sheet1 最初有公式 ='1_Result'!B5 并且在复制之后页面 Sheet1 (2) 具有公式 ='1_Result (2)'!B5

  回复于 2024-04-25T16:23:03+08:00
• 0

  正如 simco 注意到的那样，我没有立刻将纸张复制在一起，而是一个接一个地复制 . 以下代码解决了这个问题：

  Sheets(Array("1_Table", "1_Result")).Copy After:=Sheets(Sheets.Count)
  Sheets(Sheets.Count - 1).Name = nshn & "_Table"
  Sheets(Sheets.Count).Name = nshn & "_Result"
  

  回复于 2024-04-25T16:23:03+08:00
• 2

  在试图找出问题的同时，我找到了一种绝对不建议使用的替代解决方案，但可能对某人有所帮助 . 我使用的函数在单个工作表中将字符串替换为另一个字符串 . 这是代码：

  Function FormulaFindAndReplace(sh As Worksheet, phrase As String, replacement As String)
  With sh
      Set Found_Link = Cells.Find(what:=phrase, After:=ActiveCell, _
          LookIn:=xlFormulas, lookat:=xlPart, searchorder:=xlByRows, _
          searchdirection:=xlNext, MatchCase:=False)
      While UCase(TypeName(Found_Link)) <> UCase("Nothing")
         Found_Link.Activate
         Found_Link.Formula = Replace(Found_Link.Formula, phrase, replacement)
         Set Found_Link = Cells.FindNext(After:=ActiveCell)
      Wend
  End With
  End Function
  

  回复于 2024-04-25T16:23:03+08:00