Excel VBA从一个工作表复制到新工作表，同时保持格式和值

Question

我试图将表从一个工作表复制到运行宏时创建的新表，同时保持数据格式和单元格格式。我使用了以下代码，它将从工作表复制到指定的代码，并保持大部分格式与单元格高度和宽度不同。

非常感谢任何帮助。

Sheets("Sheet1").Range("A1:B10").Copy Destination:=Sheets("Sheet2").Range("E1")

Answer 1

Sheets("Sheet1").Range("A1:B10").Copy
With Sheets("Sheet2").Range("E1")
     .PasteSpecial xlPasteFormats
     .PasteSpecial xlPasteValues
End With