Excel VBA 宏 : Copying cells by reference

Question

我正在 Excel 中创建一个宏，以将数据从一个工作表复制到同一工作簿中的另一个工作表。目前，代码的运行方式如下:

Dim sourceSheet As Worksheet
Dim destSheet As Worksheet
Dim numCases As Integer
Dim i As Integer

numCases = 10
Set destSheet = ThisWorkbook.Sheets("Raw_Data")
Set sourceSheet = ThisWorkbook.Sheets("Formatted_Data")

For i = 1 To numCases
    destSheet.Cells(i,1).Value = sourceSheet.Cells(1,i).Value
Next

此代码正常工作，因为它将值从一张纸复制到另一张纸并将其放置在正确的单元格中。问题是我需要将单元格作为引用值填充回工作表“Raw_Data”。换句话说，当我在“Formatted_Data”中选择一个单元格时，我需要公式栏显示如下内容:
'原始数据'!C1
但我得到的只是数值。有什么方法可以执行复制，或设置值并维护引用？

谢谢，

巴雷特

Answer 1

代替
destSheet.Cells(i,1).Value = sourceSheet.Cells(1,i).Value
和
sourceSheet.Cells(1,i).Formula = "=" & destSheet.Name & "!" & destSheet.Cells(i,1).Address(False,False)