复制整个工作表 – 保持相同的格式

我想将工作簿“Trial Data.xlsx”中的工作表“试用表”复制到名为“复制工作表”的海洋工作簿中。 我想保持格式（列宽，缩放等），能够复制工作表，而不必打开macros观似乎没有做的“试验数据”工作簿。

我logging的macros如下。

Sub worksheet_copy() Windows("Trial Data.xlsx").Activate Cells.Select Selection.Copy Windows("Copy Worksheet.xlsm").Activate Cells.Select ActiveSheet.Paste End Sub 

我遇到了以前的答案（ 将整个工作表复制到Excel 2010中的新工作表 ），但不知道如何修改我的特定文件而不出错。 任何帮助将不胜感激。

Answer 1

这应该给你方向：

 Sub worksheet_copy() Thisworkbook.worksheets("SheetName").Range("A:AB").Copy _ destination:= workbooks("Copy Worksheet.xlsm").worksheets(1).cells(1,1) End Sub 

为什么使用这些Windows()东西？ 清楚：使用Workbook的工作簿， Worksheet的工作表。
并停止使用那些缓慢和不必要的。 .Activate ！