将信息从输入表传输到主表

Question

我正在尝试将数据从一个工作簿的“输入工作表”移动到另一个工作簿“主工作簿”。这两个工作表都在同一个文件中，如果可能的话，如果两个文件不必同时打开以传输数据，但是一旦数据传输完毕，主工作簿将自动保存，那将是很好的。链接到下面文件的图像，以便更容易理解我想要做的事情。

输入工作表中的数据位于第6行A-J列，每个用户输入要求他们完成的任务的详细信息。我希望当单击一个按钮时，输入工作表中的数据将被传输到主工作簿中的第2行BK列，这样每次输入和传输新任务时，它都会显示在下面的行中（以便它可以稍后转动，等等。）。

http://i.stack.imgur.com/b2cyI.jpg - 输入表

http://i.stack.imgur.com/JZr0a.jpg - 主表

Answer 1

1. 使用宏here获取主工作表中的最后一行。
2. 然后只需将输入表中的值写入主表中的相应单元格。

3. 就是这样。这就是你引用细胞的方式：

   tbl_master.cells（1,3）= tbl_input.cells（3,5）.value

确保tbl_input中的行是来自函数的变量，计算最后一行。试一试！

编辑： 这是我用于最后一行的内容：

Public Function last_row_with_data(ByVal lng_column_number As Long, shCurrent As Variant) As Long

    last_row_with_data = shCurrent.Cells(Rows.Count, lng_column_number).End(xlUp).Row

End Function

如果你想找到工作表“tbl_main”的B列的最后一行，你可以这样称呼它：

last_row_with_data(2,tbl_main)

EDIT2： 在此处更改工作表的名称，并按名称引用它们。

要获得此窗口，请选择左侧的工作表，然后按F4。