VBA EXCEL:如何在另一个工作表中输出

Sub OutputToAnotherWorksheet()
    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("源范围")
    Set targetRange = targetSheet.Range("目标范围")
    
    ' 将源范围的数据复制到目标范围
    sourceRange.Copy targetRange
    
    ' 清除剪贴板中的数据
    Application.CutCopyMode = False
End Sub