VBA -复制图纸值，粘贴到具有变量名称的图纸

Sub CopyPasteValues()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("源范围")
    Set targetRange = targetSheet.Range("目标范围")
    
    ' 复制数值
    sourceRange.Copy
    
    ' 在目标范围粘贴数值
    targetRange.PasteSpecial Paste:=xlPasteValues
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
End Sub