在没有公式的情况下复制所有行和列中的值答案

【问题标题】：Copy values in all rows and columns without the formulas在没有公式的情况下复制所有行和列中的值
【发布时间】：2017-05-10 05:02:22
【问题描述】：

我有一个应用了很多公式的 Excel 表格。我想将所有单元格值（rowsxcols）复制到另一个 excel 文件。

实际的文件有很多行和列以及很多公式。我只想复制这些值。

我在网上搜索了没有尝试任何代码。非常感谢这里的一点勺子喂食:)

【问题讨论】：

单击工作表的左上角以选择所有单元格。复制到剪贴板。转到目标excel文件。然后选择性粘贴 -> 值。
感谢您抽出宝贵时间@Alexey 有没有一种方法可以像宏一样自动完成
Alt + T, M, R 录制宏。

标签： vba excel macros excel-formula

【解决方案1】：

Sub main()
    With Workbooks("SourceWbName").Worksheets("SourceShtName").UsedRange
        Workbooks("TargetWbName").Worksheets("TargetShtName").Range("A1").Resize(.Rows.Count, .Column.Count).Value = .Value
    End With
End Sub

只需将所有工作簿和工作表名称更改为您的实际名称

目标工作簿在您运行此代码时必须已经打开

【讨论】：

@dakait，你通过了吗？