Ошибка VBA 1004 при копировании значений вставки и форматирования с одного листа на другой - PullRequest
Новая
       11

Ошибка VBA 1004 при копировании значений вставки и форматирования с одного листа на другой

0 голосов
/ 04 марта 2020

Я пытаюсь скопировать содержимое и форматирование Rec1 в Rec2. Тем не менее, я получаю сообщение об ошибке 1004 и сообщение о том, что Excel не хватает памяти для выполнения задачи. Обратите внимание, что в листе есть другие макросы

error message

Private Sub CommandButton3_Click()


Dim Source As Worksheet
Dim Target As Worksheet

Set Source = ThisWorkbook.Worksheets("Rec1")
Set Target = ThisWorkbook.Worksheets("Rec2")

Target.Cells.Clear

Source.Cells.Copy

Target.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

End Sub

1 Ответ

2 голосов
/ 04 марта 2020

Вместо копирования всего листа, просто скопируйте UsedRange. 

Souce.UsedRange.Copy

. Вы также можете очистить используемый диапазон цели: 

Target.UsedRange.Clear
...