将整个工作表复制到Excel 2010中的新工作表
我发现了类似的问题，这些问题涉及在一个工作簿中复制整个工作表并将其粘贴到另一个工作簿，但我有兴趣简单地复制整个工作表并将其粘贴到新工作表 - 在同一工作簿中。
我正在将2003 .xls文件转换为2010 .xlsm，并且用于在工作表之间复制和粘贴的旧方法不会粘贴正确的行高。 我最初的解决方法是循环遍历每一行，并从我复制的工作表中获取行高，然后遍历并在我粘贴的工作表中插入行高的值，但是这种方法的问题在于工作表包含生成新行的按钮，这些新行可以更改行编号，并且工作表的格式为使所有行不能只是一个宽度。
我真正希望能够做的仅仅是复制整个工作表并粘贴它。 以下是2003版本的代码：
ThisWorkbook.Worksheets("Master").Cells.Copy
newWorksheet.Paste
我很惊讶，转换为.xlsm导致它现在打破。 任何建议或想法都会很棒。
只需运行如下所示的精确副本即可将副本放入最后一张表格中
Sub Test()
Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Master")
ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
End Sub
ThisWorkbook.Worksheets("Master").Sheet1.Cells.Copy _
Destination:=newWorksheet.Cells
以上将复制单元格。 如果你真的想复制整个表格，那么我会使用@ brettdj的答案。
' Assume that the code name the worksheet is Sheet1
' Copy the sheet using code name and put in the end.
' Note: Using the code name lets the user rename the worksheet without breaking the VBA code
Sheet1.Copy After:=Sheets(Sheets.Count)
' Rename the copied sheet keeping the same name and appending a string " copied"
ActiveSheet.Name = Sheet1.Name & " copied"
上一篇: Copy an entire worksheet to a new worksheet in Excel 2010