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