Excel 使用VBA将单元格的参照从图纸2复制到图纸1

任何人

我是VisualBasicExcel新手，希望您能帮助我解决特定问题。我一直在阅读参考书，搜索谷歌以找到解决方案，但我没有成功。除此之外，我已经完成了所有其他项目要求

我有一个工作簿，有48个单独的工作表，根据引用的详细工作表，我需要向摘要工作表提供信息。我试图将特定明细表中对单元格的引用复制到汇总表中。例如，我试图在汇总表的单元格（15,5）中设置以下内容：='Detail 1'！E10目的是参考图纸详图1上的单元格（10,5），以便在详图1图纸上的单元格（10,5）发生变化时，汇总表中的值会更新

我尝试了这段代码，但在其他许多尝试中它都不起作用。它复制公式，但不复制引用

正如我之前所说，我仍然在学习，如果我在下面展示的完全是新手代码，我会感到尴尬。提前感谢您的帮助

'-----This is simplified Version of the code in a WorkBook with 45 sheets-----------

Sub CopyReference()

Dim SheetCounter As Integer

Dim RowNumber As Integer

Dim ColumnCounter As Integer


RowNumber = 10

ColumnCounter = 5

SheetCounter = 2   '------------This is the Detail 1 Sheet in the WorkBook-------------


Sheets(SheetCounter).Select

ActiveSheet.Range(Cells(RowNumber, ColumnCounter), Cells(RowNumber, ColumnCounter)).Copy

Sheets(1).Select                   '------- This is the Summary Sheet

ActiveSheet.Range(Cells(RowNumber + 5, ColumnCounter), Cells(RowNumber + 5, ColumnCounter)).PasteSpecial Operation:=xlPasteSpecialOperationNone

End Sub

---

这似乎是你需要的

ThisWorkbook.Sheets(1).Cells(15, 5).Formula = "=" & _
     ThisWorkbook.Sheets(2).Cells(10, 5).Address(False, False, , True)