Я пытаюсь скопировать диапазон с одного листа на другой. На исходном листе у меня есть форматирование и объединенные ячейки. Я хочу точное совпадение на целевом листе. Исходный лист называется Budget Hours, а целевой лист - Schedule.
Я пробовал
Range("B5", Range("E1000")).Copy
Worksheets("Schedule").Cells(6, 2).PasteSpecial Paste:=xlPasteFormats
Worksheets("Schedule").Cells(6, 2).PasteSpecial Paste:=xlPasteValues
Он выполняет PasteFormats, но выдает ошибку для PasteValues. Ошибка: «Ошибка времени выполнения '1004'»: вы не можете вставить это сюда, потому что область копирования и область вставки имеют разные размеры. Выберите только одну ячейку в области вставки или область того же размера и попробуйте вставить еще раз ".
Затем я попробовал Sheets("Schedule").Range("B6:E500").Value = Sheets("Budget Hours").Range("B5:E499").Value. Это работает, но не сохраняет форматирование и отменяет объединенные ячейки.
Примером объединенных и отформатированных ячеек является B5:D5 с синим фоном. Я прикрепил изображение того, как выглядит источник.
Как я могу получить точное соответствие на целевом листе (Schedule)?