Excel VBAmacros：通过引用复制单元格

我在Excel中创build一个macros来将数据从一张表复制到另一张工作簿中。 目前，代码运行如下：

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”中select一个单元格时，我需要公式栏来显示类似于“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)