vba复制粘贴到另一个工作表指定位置

VBA中复制粘贴到另一个工作表的指定位置的代码如下：

Sub CopyPasteToAnotherSheet()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = ThisWorkbook.Sheets("Sheet1") '原始工作表
    Set ws2 = ThisWorkbook.Sheets("Sheet2") '目标工作表
    ws1.Range("A1:C3").Copy '复制A1:C3单元格的数据
    ws2.Range("A1").PasteSpecial xlPasteValues '在目标工作表的A1单元格粘贴数据
End Sub
这段代码会将Sheet1工作表中A1:C3单元格的数据复制到Sheet2工作表的A1单元格粘贴。