选择粘贴目标工作表时引用单元格作为名称的VBA代码

Sub PasteWithCellReference()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源范围和目标范围
    Set sourceRange = sourceSheet.Range("A1:B10") ' 设置源范围
    Set targetRange = targetSheet.Range("C1") ' 设置目标范围
    
    ' 将源范围复制到目标范围，并保留单元格引用作为名称
    sourceRange.Copy
    targetRange.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    ' 清除剪贴板内容
    Application.CutCopyMode = False
End Sub