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

【问题标题】：How to quickly copy the whole Excel to another Excel as value如何快速将整个 Excel 复制到另一个 Excel 作为值
【发布时间】：2017-04-05 10:26:45
【问题描述】：

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

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

【问题讨论】：

价值是什么意思？忽略公式并仅复制粘贴值？
请进一步扩展这个问题，让人们能够帮助你。
@GowthamShiva 是的，仅复制粘贴值
@JoshFriedlander 请查看更新。
听起来您想遍历工作簿 A 中的每个工作表，复制其中的所有内容，然后将其作为值粘贴到工作簿 B 的工作表中。听起来对吗？

标签： excel

【解决方案1】：

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

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

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

【讨论】：

@A.Oreo 你试过我的回答吗？
@GowthamShiva 是的，但结果不是我想要的。

【解决方案2】：

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

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

如果要复制整个工作表，请选择该工作表中的所有 (CTRL+A) 并执行相同操作。您将无法使用正常方式复制粘贴工作表。除非您开发宏或其他东西，否则只能逐页完成。希望这会有所帮助

【讨论】：