VBA整合具有不同列的多個工作簿

Question

我想使用VBA將多個工作簿整合到一個主工作簿中，因爲這將重用。我怎樣才能做到這一點。

下面是一個例子

Answer 1

不是很優雅，但問題是很模糊......

Sub merge() 
    Dim aWkbk As Workbook 
    Dim aWkSht As Worksheet 
    Dim thisWkbk As Workbook 

    Set thisWkbk = Application.Workbooks("Book1") 
    For Each aWkbk In Application.Workbooks 
     If aWkbk.Name <> "Book1" Then 
      For Each aWkSht In aWkbk.Worksheets 
       aWkSht.Copy after:=thisWkbk.Worksheets(thisWkbk.Worksheets.Count) 
      Next aWkSht 
     End If 
    Next aWkbk 
End Sub