我想把sheet1工作表中的数据复制到sheet2中 它的vba代码怎么写

以下是将Sheet1中的所有数据复制到Sheet2的VBA代码：

Sub CopyData() Sheets("Sheet1").Cells.Copy Destination:=Sheets("Sheet2").Range("A1") End Sub

该代码将Sheet1中的所有单元格复制到Sheet2中的单元格A1处。您可以根据需要更改工作表的名称和目标范围。