将工作表复制到新工作簿时，公式不一致

我在工作簿（名为“财务报表生成器”）中有两个工作表（命名为“Q4财务条件”和“Q4活动”），我需要将工作表复制到新的工作簿中。

工作表'Q4财务状况'有一个单元格公式='Q4 Activities'!F37 - H56 - H57

当我复制到新的工作簿时，公式更改为='[Financial Statement Generator.xlsm]Q4 Activities'!F37 - H56 - H57

Excel中是否还有其他替代scheme，我可以保留原有的公式，并将工作表复制到新的工作簿中。

我正在通过macros进行复制，

 Dim sheetName As Variant Set wb = Workbooks.Add sheetName = Array("Q" & Quarter & " Financial Condition", "Q" & Quarter & " Activities") ThisWorkbook.sheets(sheetName(1)).Copy Before:=wb.sheets(1) ThisWorkbook.sheets(sheetName(0)).Copy Before:=wb.sheets(1) 

Answer 1

每次复制一个工作表都会遇到你描述的问题。 简单的方法是同时复制两个表单：

 Dim sheetName As Variant Set wb = Workbooks.Add sheetName = Array("Q" & Quarter & " Financial Condition", "Q" & Quarter & " Activities") ThisWorkbook.sheets(sheetName).Copy Before:=wb.sheets(1)