仅在工作表之间复制值

Question

我正在使用此行在两个工作簿之间复制一些工作表

shtSummary.Copy after:=wbNew.Sheets(wbNew.Sheets.Count)

但它复制方程式而不是值，因此导致wbNew工作簿

中的单元格空白

如何仅在它们之间复制值？

Answer 1

复制表格时，我不认为这是可能的。

但你可以尝试这样的事情：

Dim destWs As Worksheet
Dim AddressStr As String

AddressStr = shtSummary.UsedRange.Address

With wbNew
    Set destWs = .Sheets.Add(After:=.Sheets(.Sheets.Count))
End With

destWs.Name = shtSummary.Name
destWs.Range(AddressStr).Value = shtSummary.Range(AddressStr).Value