复制不带公式的整个Excel工作表

有什么建议吗？我试过了

Ws = ActiveWorkbook.Sheets(“tab”)
ThisWorkbook.Sheets(“tab”).UsedRange.Value = Ws.UsedRange.Value

但是没有运气

---

我想将所有信息复制到另一个文件中，但尝试了一些方法，但被卡住了

Sub KopyKat()
    Sheets("original").Cells.Copy
    Sheets("kopy").Cells.PasteSpecial (xlPasteValues)
End Sub

（使用您自己的工作表名称）

编辑#1:

最好在我们开始时不存在

kopy

工作表：

我们会的

• 复制整个工作表（不仅仅是单元格）
• 重命名副本
• 将所有公式转换为值

Sub KopyKat2()
    With Sheets("original")
        .Copy after:=Sheets("original")
    End With

    With ActiveSheet
        .Name = "kopy"
        With .UsedRange
            .Value = .Value
        End With
    End With
End Sub

---

现在

kopy

也包含了所有格式，如原始格式、列宽、行高等。

不清楚如果单元格包含公式，您希望副本为原始格式的当前值还是希望副本保持为空？是的，对不起，我应该说清楚，任何公式都可以理想地转换为它们的值，“不走运”到底意味着什么。假设您引用的是正确的工作表，那么您发布的内容应该有效。它只复制工作表的第一个单元格，而不是每个单元格或行。根据您复制的工作表的大小，此方法可能会占用内存。可能值得考虑清理clipboard@Zac见我的编辑#1那不也复制公式吗？@Zac你说得对！它确实复制了公式和数据，但。。。。。。。。。。。。。。。.Value=.Value语句将公式转换为值！我想知道那是什么魔法。每天学习新的东西。谢谢