join两个Excel表格

我有两个excel表结构和顺序

结构包含

Product | Component | Order_Quantity A | C1 | 1 A | C2 | 3 A | C3 | 3 B | C1 | 1 B | C4 | 2 C | C1 | 1 D | C2 | 3 C | C3 | 3 

订单包含

 Order_n | Product | Quantity 1 | A | 10 2 | B | 10 3 | A | 10 4 | C | 10 6 | B | 10 

我如何joinExcel 2013中的两个表（没有电源主轴或另一个加载项）来查看这样的结果：

 Order_n | Product | Order_Qty | component | Quantity | Total_QTY 1 | A | 10 | C1 | 1 | 10 1 | A | 10 | C2 | 3 | 30 1 | A | 10 | C3 | 3 | 30 2 | B | 10 | C1 | 1 | 10 2 | B | 10 | C4 | 2 | 20 3 | A | 10 | C1 | 1 | 10 3 | A | 10 | C2 | 3 | 30 3 | A | 10 | C3 | 3 | 30 4 | C | 10 | C1 | 1 | 10 4 | C | 10 | C3 | 3 | 30 6 | B | 10 | C1 | 1 | 10 6 | B | 10 | C4 | 2 | 20 

Answer 1

你将不得不使用VBA。 这应该工作…不能testing整个事情，所以让我知道它是否工作。

 Sub JoinTables() Dim cn Dim rs Dim strFile As String Dim strCon As String Dim strSQL As String Dim strTbl1 As String Dim strTbl2 As String Dim JoinField As String Dim Table1Name As String Dim Table2Name As String Dim Table3Address As String Dim Table1Worksheet As String Dim Table2Worksheet As String Dim Table3Worksheet As String ' CHANGE THESE! Table1Name = "structure": Table1Worksheet = "Sheet1" ' Name of table and name of the worksheet it is on Table2Name = "order": Table2Worksheet = "Sheet1" Table3Address = "A2": Table3Worksheet = "Sheet2" ' The result JoinField = "Product" ' ================================== strFile = ThisWorkbook.FullName strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile _ & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=1"";" Set cn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") cn.Open strCon strTbl1 = " [" & Table1Worksheet & "$" & Replace(ThisWorkbook.Worksheets(Table1Worksheet).ListObjects(Table1Name).Range.AddressLocal, "$", "") & "] AS T1 " strTbl2 = " [" & Table2Worksheet & "$" & Replace(ThisWorkbook.Worksheets(Table2Worksheet).ListObjects(Table2Name).Range.AddressLocal, "$", "") & "] AS T2 " strSQL = "SELECT * FROM " & strTbl1 & " LEFT JOIN " & strTbl2 & " ON T1." & JoinField & "=T2." & JoinField rs.Open strSQL, cn ThisWorkbook.Worksheets(Table3Worksheet).Range(Table3Address).CopyFromRecordset rs rs.Close cn.Close End Sub