我发现过类似的问题,涉及复制一个工作簿中的整个工作表并将其粘贴到另一个工作簿中,但我感兴趣的是简单地复制整个工作表并将其粘贴到新工作表中--在同一个工作簿中。
我正在将2003年的.xls文件转换为2010年的.xlsm,但用于在工作表之间复制和粘贴的旧方法无法以正确的行高粘贴。我最初的解决方法是循环遍历每一行,并从我正在复制的工作表中获取行高,然后循环并插入我要粘贴到的工作表中的行高值,但这种方法的问题是,该工作表包含生成新行的按钮,这会更改行号,并且工作表的格式是这样的:所有行都不能只有一个宽度。
我真正想要做的就是简单地复制整个工作表并粘贴它。下面是2003版本的代码:
ThisWorkbook.Worksheets("Master").Cells.Copy
newWorksheet.Paste
我很惊讶,现在转换到.xlsm会导致这个问题。任何建议或想法都会很棒。
发布于 2011-12-09 08:49:38
更简单的方法是运行一个精确的副本,如下所示,将副本作为最后一个工作表放入
Sub Test()
Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Master")
ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
End Sub
发布于 2011-12-09 15:19:50
ThisWorkbook.Worksheets("Master").Sheet1.Cells.Copy _
Destination:=newWorksheet.Cells
上面的代码将复制单元格。如果你真的想复制整个工作表,那么我会选择@brettdj's answer。
发布于 2014-04-01 04:46:53
' 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"
https://stackoverflow.com/questions/8439657
复制相似问题