如何仅使用工作表复制值(Array()).copy

如果应用于工作表或范围,则复制方法会有所不同。只有对区域,以后才能使用PasteSpecial[格式],因此必须从头复制区域,如

Sub CopyAllAsValues()
Dim WO As Workbook, SO As Worksheet           ' old
Dim WN As Workbook, SN As Worksheet           ' new

    Set WO = ActiveWorkbook                   ' this is where we come from
    Set WN = Workbooks.Add                    ' the new sheet with only values

    For Each SO In WO.Worksheets
        Set SN = WN.Worksheets.Add            ' create new sheet
        SN.Name = SO.Name                     ' copy name
        SO.Cells.Copy                         ' copy all cells to clipboard
        SN.[A1].PasteSpecial xlPasteValues    ' paste values at A1
        SN.[A1].PasteSpecial xlPasteFormats   ' paste formats as well at A1
    Next SO
End Sub

这段代码应该说明原理,它不关心纸张的正确位置(使用 Before 或 After 上的参数 WorkSheets.Add )如果原始工作表名之一与系统上新创建的工作簿(通常为Sheet1..)中的默认名称匹配,则可能出现重复的工作表名。。表3)

希望能帮上忙

祝你好运

另一种方法是使用“断开链接”功能。这将保留仅引用(新)工作簿其他部分的任何计算,但将用其值替换所有外部单元格。

从“编辑”->“链接”->“断开链接”或通过VBA手动操作( source ):

Sub UseBreakLink()

Dim astrLinks As Variant

' Define variable as an Excel link type.
astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)

' Break the first link in the active workbook.
For i = 1 To UBound(astrLinks)
   ActiveWorkbook.BreakLink Name:=astrLinks(i), Type:=xlLinkTypeExcelLinks
Next i
End Sub