VBA将一个sheet中的数据自动复制到另一个

要在VBA中将一个工作表（sheet）中的数据自动复制到另一个工作表，你可以使用以下示例代码：

Sub CopyDataToAnotherSheet()
    Dim sourceSheet As Worksheet
    Dim destinationSheet As Worksheet
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1") ' 修改为你的源工作表名
    Set destinationSheet = ThisWorkbook.Sheets("Sheet2") ' 修改为你的目标工作表名
    
    ' 复制源工作表的数据范围到目标工作表
    sourceSheet.Range("A1:Z100").Copy ' 修改为你的数据范围
    
    ' 粘贴到目标工作表的指定位置
    destinationSheet.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    
    ' 取消选中
    Application.CutCopyMode = False
End Sub

确保修改sourceSheet和destinationSheet的名称以匹配你的工作表名称，并且Range("A1:Z100")应该指定为你想要复制的数据范围。这段代码会复制值和数字格式。如果你也想复制公式和其他属性，可以将PasteSpecial参数改为xlPasteAll。