用于将一个工作表中的多个单元格粘贴到具有文件名的另一个工作表中的VBA代码

Sub PasteCellsToAnotherWorksheet()
    Dim sourceWorksheet As Worksheet
    Dim targetWorksheet As Worksheet
    
    ' 设置源工作表和目标工作表
    Set sourceWorksheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetWorksheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 复制源工作表中的多个单元格
    sourceWorksheet.Range("源单元格范围").Copy
    
    ' 在目标工作表中选择要粘贴的位置
    targetWorksheet.Range("目标单元格范围").Select
    
    ' 将复制的单元格粘贴到目标工作表中
    targetWorksheet.Paste
    
    ' 清除剪贴板中的内容
    Application.CutCopyMode = False
End Sub