vba 不同sheet复制粘贴

在VBA (Visual Basic for Applications) 中，如果你想要从一个工作表复制数据并粘贴到另一个工作表，你可以使用`Range.Copy` 和 `Range.PasteSpecial` 方法。以下是一个简单的示例：

Sub CopyAndPaste()
    ' 指定源范围和目标范围
    Dim sourceSheet As Worksheet
    Set sourceSheet = ThisWorkbook.Sheets("源工作表") ' 替换为你需要的源工作表名称
    Dim sourceRange As Range
    Set sourceRange = sourceSheet.Range("A1:B10") ' 替换为你需要复制的具体单元格区域
    
    Dim destSheet As Worksheet
    Set destSheet = ThisWorkbook.Sheets("目标工作表") ' 替换为你需要粘贴的目标工作表名称
    Dim destRange As Range
    Set destRange = destSheet.Range("D1:E10") ' 替换为目标位置

    ' 复制数据
    sourceRange.Copy
    
    ' 粘贴到目标位置
    destRange.PasteSpecial xlPasteValues ' 这里选择只粘贴值，不包括格式等其他信息
End Sub

在这个例子中，你需要根据实际的工作表名和需要复制/粘贴的单元格范围替换相应的变量。