数据更新后，保留单元格值而不是公式并删除数据表

我有一个包含数据或公式的工作表的xlsx电子表格。 可以说sheet1有数据，而sheet2有公式引用sheet1中的数据。 我正在尝试执行以下操作时sheet1更新（来自SAS程序）的新数据：

1. 将sheet2转换为只有值（即删除后面的公式）
2. 删除sheet1
3. 保存存档

我需要通过电子表格来自动执行此操作，并在有更新时自动运行macros/程序。

到目前为止，这是我得到的（粘贴值而不是公式）：

Sub Sample() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("tab2") ws.UsedRange.Value = ws.UsedRange.Value End Sub 

我真的不熟悉VBA。

Answer 1

你只有在Sheet2中的值。

你想删除Sheet1（应该有一个popup框来检查你是否真的要删除表单…我们将在你做之前closures它，然后再回来）：

 Application.DisplayAlerts = False Sheets("Sheet1").Delete Application.DisplayAlerts = True 

然后以.SaveAs（提示input文件名保存为）

 ThisWorkbook.SaveAs Filename:=fName 

Answer 2

尝试这个：

 Sub Sample() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("tab2") ws.UsedRange.Value = ws.UsedRange.Value Application.DisplayAlerts = False Sheets("sheet1").Delete Application.DisplayAlerts = True ActiveWorkbook.Save End Sub