如何将工作表从一个工作簿复制到另一个新的工作簿中（仅使用pastevalues）中的工作表？

我正在尝试创build一个工作簿中的工作表，然后将该工作表保存为单个工作簿，但将所有单元格作为值而不是公式。

我正在努力的是粘贴值部分。 这是我目前的：

ThisWorkbook.Sheets("Tickets (1-48)").Copy With ActiveWorkbook For ColNr = 8 To 120 If Cells(RowNr, ColNr - 1) = "0" Then TempValue = Cells(RowNr, ColNr - 1) If TempValue = "0" Then For i = 0 To 9 Cells(RowNr, ColNr - 1).Select Cells(RowNr, ColNr - 1).EntireColumn.Delete Next i ColNr = ColNr - 1 Else End If Else End If Next ColNr .SaveAs strpath & "\" & "Retail " & strFilename & "(1-48)" & ".xls" .Close 0 End With 

忽略中间的部分。

谢谢。

Answer 1

我不确定你的代码在做什么，但你可以适应它。 以下是录制的macros将显示给您的通用代码。

 'Selects everything on the current sheet and copies it Cells.Select Selection.Copy 'Add a new workbook. 'Adding a new workbook makes it the active workbook so you can paste to it. Workbooks.Add 'Paste the date using Paste:=xlPasteValues Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C8").Select