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

Question

我有一个场景，我有一个excel表，上面有很多公式。我想将所有单元格值（rowsxcols）复制到另一个excel文件。

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

我在网上搜索过没试过任何代码。在这里喂一点勺子非常感激：）

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

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

即可

目标工作簿必须已在您运行此代码的人员处打开