复制 excel 中多个sheet到另一工作薄中。多个sheet中含有函数、公式、格式。保持数值 单元格格式不变。

Question

目前状态：目录.xls中有51个sheet，sheet名字依次为1 2 3 ......51.
每个sheet中都有特定的单元格格式，公式，函数，
希望结果：保持原有的单元格格式，不要函数与公式，只要函数与公式的结果（数值）。得到一个新工作薄。
自己做的：Sheets("1").Cells.CopyWorkbooks("目录.xls").Sheets(1).Cells.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
出不来想要的结果。求高人指点。

Answer 1

楼上回答挺好的，不如直接复制一个，然后用宏遍历所有表，复制并原位选择性粘贴为数值即可。

代码垃圾凑合用

Sub Macro1()
For i = 1 To Sheets.Count
   Sheets("Sheet" & i).Select
   Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next i
End Sub

Answer 2

不好在桌面 复件一下的嘛 进去再遍历所有工作表 粘贴为数值