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

Question

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

输入工作表中的数据位于第 6 行 A-J 列，每个用户输入他们被要求完成的任务的详细信息。我想在单击按钮时，将输入工作表中的数据传输到主工作簿中的第 2 行 B-K 列，以便每次输入和传输新任务时，它都会出现在下面的行中(这样它以后可以旋转，等等)。

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

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

Answer 1

使用宏 here获取主表中的最后一行。

然后只需将输入表中的值写入主表中的相应单元格。

就这些。这是您引用单元格的方式:

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)

编辑2:
在此处更改工作表的名称，并按名称引用它们。


为了获得此窗口，请选择左侧的工作表并按 F4。