excel - Excel VBA 宏：通过引用复制单元格

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”中选择一个单元格时，我需要公式栏显示类似：'Raw_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)