求助：根据两列字段排列组合后求每组第三个字段的和

gemini8806

求大佬解惑，如附件，sheet1 有规格、车号、数量三个字段，需要在sheet2中按照规格，车号排列组合，然后求和每个组合的数量（数量为0的剔除），sheet2需要自动导出，附件例子呈现的结果如下...求各位大神指导，可以用公式也可以用VBA~~

规格	车号	数量
1	A11111	10
1	B22222	15
2	A11111	20
2	B22222	15
2	C33333	10
3	A11111	55
3	C33333	20

mmlzh

数组A2=IFERROR(INDEX(Sheet1!A:A,MOD(SMALL(IF(MATCH(Sheet1!$A$2:$A$9&Sheet1!$B$2:$B$9,Sheet1!$A$2:$A$9&Sheet1!$B$2:$B$9,)=ROW($1:$8),Sheet1!$A$2:$A$9/1%%+CODE(LEFT(Sheet1!$B$2:$B$9))/1%+ROW($2:$9)),ROW(1:1)),100)),"")
C2=SUMIFS(Sheet1!C:C,Sheet1!A:A,A2,Sheet1!B:B,B2)

Datous

代码放 sheet2

1. Dim vntD, I, T, K, vntR
   
2. Dim objD As Object
   
3. 
   
4. Set objD = CreateObject("Scripting.Dictionary")
   
5. vntD = Sheets("sheet1").UsedRange
   
6. 
   
7. For I = 2 To UBound(vntD)
   
8.     T = vntD(I, 1) & "/" & vntD(I, 2)
   
9.     objD(T) = objD(T) + vntD(I, 3)
   
10. Next
    
11. ReDim vntR(objD.Count - 1, 1)
    
12. For I = 0 To objD.Count - 1
    
13.    vntR(I, 0) = Split(objD.keys()(I), "/")(0)
    
14.    vntR(I, 1) = Split(objD.keys()(I), "/")(1)
    
15. Next
    
16. 
    
17. Range("A1:C1") = Sheets("sheet1").Range("A1:C1").Value
    
18. Range("A2").Resize(I, 2) = vntR
    
19. Range("C2").Resize(I) = Application.WorksheetFunction.Transpose(objD.items())
    
20. Range("A1:C1").Resize(I + 1, 3).Sort Range("A1"), xlAscending, Range("B1"), Header:=xlYes
    
21. 
    
22. End Sub

复制代码

gemini8806

mmlzh 发表于 2019-3-22 20:25
数组A2=IFERROR(INDEX(Sheet1!A:A,MOD(SMALL(IF(MATCH(Sheet1!$A$2:$A$9&Sheet1!$B$2:$B$9,Sheet1!$A$2:$A$ ...

大神，b列呢

mmlzh

gemini8806 发表于 2019-3-25 09:33
大神，b列呢

没有特别说明，公式往右拉就成

gemini8806

mmlzh 发表于 2019-3-25 09:36
没有特别说明，公式往右拉就成

大神，还有个问题，这个公式就只能先数前一张表的行数，对应行数修改参数；不能提前设置一个固定值么？因为我前一张表每天行数是不一样的

mmlzh

gemini8806 发表于 2019-3-25 10:30
大神，还有个问题，这个公式就只能先数前一张表的行数，对应行数修改参数；不能提前设置一个固定值么？因 ...

=IFERROR(INDEX(Sheet1!A:A,MOD(SMALL(IF((MATCH(Sheet1!$A$2:$A$99&Sheet1!$B$2:$B$99,Sheet1!$A$2:$A$99&Sheet1!$B$2:$B$99,)=ROW($1:$98))*ISNUMBER(Sheet1!$A$2:$A$99),Sheet1!$A$2:$A$99/1%%+CODE(LEFT(Sheet1!$B$2:$B$99&"Z"))/1%+ROW($2:$99)),ROW(1:1)),100)),"")

gemini8806

mmlzh 发表于 2019-3-25 13:09
=IFERROR(INDEX(Sheet1!A:A,MOD(SMALL(IF((MATCH(Sheet1!$A$2:$A$99&Sheet1!$B$2:$B$99,Sheet1!$A$2:$A$9 ...

大神，最后一个问题。。。A、B列可以调整顺序么。。。

gemini8806

mmlzh 发表于 2019-3-25 13:09
=IFERROR(INDEX(Sheet1!A:A,MOD(SMALL(IF((MATCH(Sheet1!$A$2:$A$99&Sheet1!$B$2:$B$99,Sheet1!$A$2:$A$9 ...

研究了半天，发现我的例子有问题，A列可能不是数字，那isnumber函数是不是就不能用了。。。。

gemini8806

mmlzh 发表于 2019-3-25 13:09
=IFERROR(INDEX(Sheet1!A:A,MOD(SMALL(IF((MATCH(Sheet1!$A$2:$A$99&Sheet1!$B$2:$B$99,Sheet1!$A$2:$A$9 ...

大神，上面那个问题盼回复呐，如果A列不是数字的话，isnumber函数这部分怎么修改啊。。。。