把SHEET1打的资料自动写入SHEET2

在Excel中，将Sheet1的数据自动复制到Sheet2，可以使用VBA的`Copy`和`PasteSpecial`方法，或者直接利用数据透视表等工具。以下是两种常见方法的说明：

**方法一：使用VBA**

1. 首先打开VBA编辑器（按Alt + F11），插入一个新的模块。
2. 编写以下VBA代码，假设A1是Sheet1的第一行数据，最后一行是最后一个包含数据的行：

Sub CopyDataFromSheet1ToSheet2()
    Dim sourceSheet As Worksheet
    Dim destSheet As Worksheet
    Dim lastRow As Long
    
    ' 定义源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 指定Sheet1
    Set destSheet = ThisWorkbook.Sheets("Sheet2")     ' 指定Sheet2
    
    ' 获取源工作表的最后一行含有数据的行号
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, 1).End(xlUp).Row
    
    ' 复制数据
    sourceSheet.Range("A1").Resize(lastRow, sourceSheet.Columns.Count).Copy
    
    ' 粘贴到目标工作表
    destSheet.Cells(1, 1).PasteSpecial xlPasteValuesAndFormats
    Application.CutCopyMode = False ' 结束剪切模式
End Sub

运行这个宏即可将数据复制过去。

**方法二：数据透视表**
1. 在Sheet1中选中你要转移的数据。
2. 转到“插入”选项卡，点击“数据透视表”。
3. 在弹出的窗口中，确认Sheet2作为新透视表的位置，并按照向导完成设置。