如何使用VBA将值和格式复制并粘贴到新工作表中

Sub CopyAndPasteValuesAndFormats()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets.Add(After:=Sheets(Sheets.Count))
    targetSheet.Name = "目标工作表名称"
    
    ' 复制源工作表的值和格式到目标工作表
    sourceSheet.Cells.Copy
    targetSheet.Cells.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
End Sub