如何快速将整个Excel复制到另一个Excel作为值

Question

如何按价值快速将整个Excel电子表格复制到另一个Excel电子表格？以及如何快速将一些Excel电子表格复制到另一个Excel电子表格中？不使用VBA（Visual Basic for Applications）。

例如：假设我有一个名为Excel_A的电子表格，其中包含多张表格和许多公式。我想快速复制所有Excel_A的值。我想避免将工作表逐张复制到另一张电子表格中，因为它太慢而且Excel_A中有很多工作表。

Answer 1

一个简单，肮脏的解决方法，不涉及代码（您似乎不倾向于编写）如下：

1. 将Excel_A另存为Excel_B
2. 右键单击底部的其中一个工作表句柄，然后单击“选择所有工作表”。



1. Ctrl-A选择全部，Ctrl-C复制，Alt E-S-V和Enter粘贴值。

或者，它也绝对适用于VBA。类似于下面的东西应该工作。 （它假设两个工作簿都是打开的，否则用地址替换名称。）

Sub CopyValuesToNewBook()

    Dim wbA As Workbook
    Set wbA = Workbooks("Excel_A")
    Dim wbB As Workbook
    Set wbTest = Workbooks("Excel_B")

    For Each Sheet In wbA.Sheets
        Sheet.Copy
        Dim IndexNo As Integer
        IndexNo = Sheets(Sheet).Index
        wbB.Sheets(IndexNo).PasteSpecial Paste:=xlValues

    Next
End Sub

Answer 2

您可以遵循一种简单的方法，

复制要复制粘贴的范围。打开一个新的文本文档并将其粘贴到txt文档中。在txt文件中按CTRL + A（全选），复制所有内容，然后将其粘贴到所需的Excel工作表中。这将消除单元格中的所有公式，并仅复制单元格中的值。

如果要复制整张表，请在该表中选择全部（CTRL + A）并执行相同操作。您将无法使用常规方式复制粘贴工作表。除非您开发宏或其他内容，否则这可以逐页完成。希望这有帮助