vba把数据写入另一个表

可以使用VBA代码将数据从一个表格写入到另一个表格中。下面是一个简单的例子：

假设你有一个名为“Sheet1”的工作表，其中包含一些数据。你还有一个名为“Sheet2”的工作表，你想将“Sheet1”中的数据写入到其中。

首先，打开Visual Basic Editor（VBE）并创建一个新的模块。在模块中输入以下代码：

Sub WriteDataToSheet2()
    Dim srcSheet As Worksheet
    Dim destSheet As Worksheet
    Dim lastRow As Long
    '获取源表和目标表对象
    Set srcSheet = ThisWorkbook.Worksheets("Sheet1")
    Set destSheet = ThisWorkbook.Worksheets("Sheet2")
    '获取源表中的最后一行
    lastRow = srcSheet.Cells(srcSheet.Rows.Count, "A").End(xlUp).Row
    '复制数据到目标表
    srcSheet.Range("A1:C" & lastRow).Copy _
        Destination:=destSheet.Range("A1")
End Sub
在这个例子中，我们使用了一些VBA中的关键字和对象。其中：
Worksheet对象表示一个工作表。
ThisWorkbook表示当前活动的工作簿。
Range对象表示一个单元格或一组单元格。
Copy方法用于复制一个或多个单元格。
Destination参数表示数据被复制到的目标单元格或单元格区域。
Rows.Count用于获取工作表中的行数。
End方法与xlUp常量一起使用，用于获取最后一行。
在上面的代码中，我们首先声明了三个变量：srcSheet表示源表，destSheet表示目标表，lastRow表示源表中的最后一行。然后，我们使用Set关键字将这些变量分别设置为Sheet1和Sheet2工作表的对象。
接下来，我们使用lastRow变量获取Sheet1中的最后一行。这里我们使用了Cells、Rows.Count和End方法来实现。
最后，我们使用Copy方法将Sheet1中从第1列到第3列的数据复制到Sheet2中的A1单元格中。这里我们使用了Range和Destination参数来指定要复制和粘贴的单元格区域。
在VBE中保存代码并关闭窗口。现在，你可以在Excel中运行这个代码。只需选择开发工具栏中的“宏”选项卡，选择我们刚刚创建的“WriteDataToSheet2”宏并运行它即可。现在，Sheet1中的数据将被复制到Sheet2中。
注意，这只是一个简单的例子。在实际应用中，你可能需要修改代码以适应你的数据和表格结构。