将表/区域从一张图纸复制到另一张图纸，其中只有第一张图纸中的数据，没有公式

Question

我的第一个表，名为"MAIN"(逗号表示不同的列(：

1,2,3
4,5,6
5,7,9

第三行使用SUM函数进行计算。我正试图将其复制到另一个名为"静态数据"的工作表中，但第三行应该只包含数字5,7,9，而不是相应的SUM公式。

下面的代码从MAIN获取这些数据，并将其粘贴到"静态数据"工作表中。

Public Sub CopyMain()
Dim i As Long
i = 1

With Worksheets("Static Data")
Cells.ClearContents
Worksheets(i).Range("A1").CurrentRegion.Copy .Range("A1")
.Range("A1").CurrentRegion.Value = .Range("A1").CurrentRegion.Value
End With
End Sub

我使用I变量，因为MAIN始终是工作簿中的第一个工作表。

当从MAIN以外的任何工作表运行时，这会将数据从MAIN复制到静态数据
从MAIN运行时失败，导致MAIN中的所有内容被删除。

Answer 1

单向：

Public Sub CopyMain()
Dim i As Long
i = 1
With Worksheets("Static Data")
Worksheets(i).Range("A1").CurrentRegion.Copy .Range("A1")
.Range("A1").CurrentRegion.Value = .Range("A1").CurrentRegion.Value
End With
End Sub

编辑-不带With

Public Sub CopyMain()
Dim i As Long
i = 1

Worksheets(i).Range("A1").CurrentRegion.Copy Worksheets("Static Data").Range("A1")
Worksheets("Static Data").Range("A1").CurrentRegion.Value = Worksheets("Static Data").Range("A1").CurrentRegion.Value

End Sub