我可以翻译此内容。这是一段关于编程的文本,讲述了一个工作簿中有5个表格,当手动复制其中两个表格时,单元格公式中的引用会自动更改。例如,在某些单元格中,我有以下公式:
我该如何修改代码,以便更改引用?
=IF('1_Result'!B5="";NA();'1_Result'!B5*$C$3)
在我复制了新的工作表之后,新工作表中的公式会发生变化:
=IF('1_Result (2)'!B5="";NA();'1_Result (2)'!B5*$C$3)
"1_Result" 是原始表格,"1_Result (2)" 是复制的表格。当我使用以下代码进行复制时:
t1.Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = nshn & "_Table"
复制的工作表中的公式不会更改引用,因此它保持不变,例如:
=IF('1_Result'!B5="";NA();'1_Result'!B5*$C$3)
我该如何修改代码,以便更改引用?
Sheets(Array("Sheet1", "1_Result")).Copy After:=Sheets(Sheets.Count)
- 这对我有效:初始时,Sheet1的公式为='1_Result'!B5
,在复制这些工作表后,Sheet1 (2)
的公式变为='1_Result (2)'!B5
。如果有帮助,请告诉我。 - Dmitry Pavliv