Excel Vba :在第二个工作表中恢复第一个工作表的许多信息(但在执行第一个工作表的宏后)

在Excel VBA中，可以使用以下代码在第二个工作表中恢复第一个工作表的许多信息：

Sub RestoreInfo()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    
    ' 获取第一个工作表
    Set ws1 = ThisWorkbook.Worksheets(1)
    
    ' 创建第二个工作表
    Set ws2 = ThisWorkbook.Worksheets.Add
    
    ' 复制第一个工作表的数据到第二个工作表
    ws1.Cells.Copy Destination:=ws2.Cells
    
    ' 复制第一个工作表的格式到第二个工作表
    ws1.Cells.Copy
    ws2.Cells.PasteSpecial Paste:=xlPasteFormats
    
    ' 复制第一个工作表的公式到第二个工作表
    ws1.Cells.Copy
    ws2.Cells.PasteSpecial Paste:=xlPasteFormulas
    
    ' 复制第一个工作表的图表到第二个工作表
    ws1.ChartObjects.Copy
    ws2.Paste Destination:=ws2.Range("A1")
    
    ' 设置第二个工作表的名称
    ws2.Name = "恢复信息"
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
End Sub

这段代码首先获取第一个工作表，并创建一个新的工作表作为第二个工作表。然后，它将第一个工作表的数据、格式、公式和图表复制到第二个工作表中。最后，它将第二个工作表命名为"恢复信息"。你可以根据需要修改代码中的工作表名称和复制的范围。

这个功能可以在以下场景中使用：