Копировать значения только между листами

Question

Я использую эту строку для копирования нескольких листов между двумя рабочими книгами

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

, но копирует уравнения, а не значения, поэтому в wbNew Workbook

получаются пустые ячейки

Как скопировать значения только между ними?

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