Как я могу сделать копию всех значений и стиля листа с определенным диапазоном?

Question

По сути, у меня есть лист Excel, который ссылается на другой лист для всех своих данных.Лист Excel также отформатирован так, как мне нравится.

Теперь я хотел бы создать копию листа Excel только со значениями и форматированием, чтобы вызвать это, я использую кнопку.Проблема теперь в том, что при копировании кнопка также копируется.Как я могу предотвратить копирование кнопки?

Можно ли как-то ее исключить?

Вот мой код:

ActiveSheet.Copy
Cells.Copy
Range("A1:T40").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Даже при том, что я вошел в диапазон «A1: T40», кнопка все еще появляется (она не находится в диапазоне)

Answer 1

Причина, по которой кнопка продолжала копировать при запуске скрипта VBA, заключалась в том, что мне нужно было сначала запустить это:

Application.CopyObjectsWithCells = False   <------

В конце скрипта, который я сделалОбязательно установите для CopyObjectWithCells значение True

Это полный сценарий для тех, у кого такая же проблема:

Application.CopyObjectsWithCells = False
ActiveSheet.Copy
Range("A1:T40").Copy

Range("A1:T40").PasteSpecial Paste:=xlPasteValues
Application.CopyObjectsWithCells = True

Answer 2

1. Квалифицируйте свои объекты с рабочими листами.Я объявил переменные на случай, если у вас будет больше кода для работы после.Вы также можете просто использовать блок With.
2. Скопируйте только интересующий вас диапазон, а не весь лист
3. Чтобы вставить значения и форматы, вставьте дважды

---

Sub Test()

Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Sheet1") '<-- Sheet to copy from
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Sheet2") '<-- Sheet to paste on

ws1.Range("A1:T40").Copy

ws2.Range("A1").PasteSpecial xlPasteValues
ws2.Range("A1").PasteSpecial xlPasteFormats

End Sub