将多个工作表中的数据复制并粘贴到主工作簿

Question

我需要将多个工作表中的数据复制并粘贴到主工作簿，但我需要在复制数据之前打开所有工作簿

''This one I use for the opening the documents 

    ScanWBName = Application.GetOpenFilename _
        ("CSV (*.csv),*.csv", , "Select the " & FirstChart & " Scan File")
    If ScanWBName = False Then
        Exit Sub
    End If
''This one I used for the selecting all the datas in multiple worksheet 
lLastRow = Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row

我写了这个，但我的问题是我需要在打开它之后关闭所有文件。

主要问题

1. 复制时我需要复制文件中的所有内容。
2. 再次粘贴数据后，我需要在下一个文件
之后从主工作簿中的空单元格开始

Answer 1

这可以更轻松地完成。从下面的链接下载并安装AddIn，然后按照（非常直观的提示）进行操作。

https://www.rondebruin.nl/win/addins/rdbmerge.htm