MS excel使子表/智能分组

我在MS Excel（2016）中有两个数据表，需要分析两张表中的数据。 这是我需要的原理图问题：

（） – sheet1 – main

--------------------------- | id | product | manuf | q | --------------------------- | 001| prt_1 | man_1 |150| --------------------------- | 002| prt_2 | man_2 |800| 

（） – sheet2 – submain

 -------------------- |id | date | prices| -------------------- |001|17.01 | 120 | -------------------- |001|16.02 | 99 | -------------------- |002|17.03 | 110 | -------------------- |002|15.02 | 10 | 

（） – 我想要做的就是像这样分组

 --------------------------- | id | product | manuf | q | --------------------------- - | 001| prt_1 | man_1 |150| ---------------------------- |001|17.01 | 120 | -------------------- |001|16.02 | 99 | --------------------------- + | 002| prt_2 | man_2 |800| 

换句话说，它是MS Access SubDataSheet的类比，我知道如何在Acces中做到这一点，但需要在Excel中。 我尝试了数据透视表和功率支点，但仍然没有运气。

第二个变体是相同的任务，但另一个版本的源数据。 而不是两张表中的所有数据在一个，但行增加一倍和三倍。 不知道这个变种是更可行的做所需的分组。

 -------------------------------------------- | id | product | manuf | q | date | prices| -------------------------------------------- |001 | prt_1 | man_1 |150| 17.01 | 120 | -------------------------------------------- |001 | prt_1 | man_1 |150| 16.02 | 99 | 

有没有一些VBA代码来执行此操作？ nees的帮助和build议。

Answer 1

像这样的东西

 Public Sub Program() Dim i As Long Dim j As Long Dim k As Long i = 2 j = 2 k = 2 Do While Worksheets("Sheet1").Cells(i, "A").Value <> "" 'data from sheet1 Worksheets("Result").Cells(k, "A").Value = Worksheets("Sheet1").Cells(i, "A").Value Worksheets("Result").Cells(k, "B").Value = Worksheets("Sheet1").Cells(i, "B").Value Worksheets("Result").Cells(k, "C").Value = Worksheets("Sheet1").Cells(i, "C").Value Worksheets("Result").Cells(k, "D").Value = Worksheets("Sheet1").Cells(i, "D").Value k = k + 1 Do While Worksheets("Sheet1").Cells(i, "A").Value = Worksheets("Sheet2").Cells(j, "A").Value 'data from sheet1 Worksheets("Result").Cells(k, "A").Value = Worksheets("Sheet2").Cells(j, "A").Value Worksheets("Result").Cells(k, "B").Value = Worksheets("Sheet2").Cells(j, "B").Value Worksheets("Result").Cells(k, "C").Value = Worksheets("Sheet2").Cells(j, "C").Value Worksheets("Result").Cells(k, "D").Value = Worksheets("Sheet2").Cells(j, "D").Value k = k + 1 j = j + 1 Loop k = k + 1 i = i + 1 Loop End Sub