Question

我想将位于工作簿“Trial Data.xlsx”中的工作表“试用表”复制到名为“复制工作表”的seaparate工作簿中。我想保留格式（列宽，缩放等），能够复制工作表而无需打开宏似乎没有的“试用数据”工作簿。

我录制的宏如下。

Sub worksheet_copy()


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

End Sub

我遇到了之前的回答（Copy an entire worksheet to a new worksheet in 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！

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

1 个答案: