Скопируйте все в рабочем листе VBA

Обновить

November 2018

Просмотры

87 раз

2
' Copy
wb.Sheets(wsSource.Name).Range("A1:W79").Copy
' Paste Special
wbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlValues
wbTarget.Sheets("Sheet1").Range("A1:W79").PasteSpecial xlFormats

Этот код позволяет мне скопировать все в диапазоне A1: W79. Как я могу изменить этот диапазон, так что он выбирает все, что содержит значение в таблице. Например, таблица может содержать значения от С7: G20 и т.д.

1 ответы

4

Я бы, как следует:

With wb.Sheets(wsSource.Name).UsedRange
    .Copy
    With wbTarget.Sheets("Sheet1").Range(.Address)
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
    End With
End With