在没有公式的所有行和列中复制值

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

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

我在网上search没有尝试任何代码。 一点点的勺子在这里喂非常赞赏:)

Answer 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 

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

目标工作簿必须已经在您运行此代码的组件中打开