☆☆☆内详☆☆☆

满坛皆为吾师

各位老师前辈，霸主达人，兄弟姐妹坛友们，你们好！混迹于论坛已算时日不浅，（……省略十万字）终于，终于升到铁杆了，祝各位生活顺心顺意！
最重要的：你们懂的 ^_______^


附上习题一道，敬请各位键下高知

习题.rar (8.97 KB, 下载次数: 54)

2015-7-18 23:18 上传

点击文件名下载附件

13732120571

这么有意义的时刻，要纪念下，
站好，笑一个，保持住，咔嚓……好了
打印中……………………
………………………………
………………………………
………………………………

cpq4404

1、为避免公式过长，分两步求值。
2、用E2数组公式“{=SUMPRODUCT(IF(LOOKUP(ROW($A$2:A2),ROW($A$2:A2)/($A$2:A2<>""),$A$2:A2)=LOOKUP("座",$A$2:A2),$D$2:D2))/VLOOKUP(LOOKUP("座",$A$2:A2),A:B,2,)}”求占比，结果如黄色单元格。
3、用F2数组公式“{=IF(A2="","",INDEX(C:C,SMALL(IF((LOOKUP(ROW($A$2:$A$11),ROW($A$2:$A$11)/($A$2:$A$11<>""),$A$2:$A$11)=LOOKUP("座",$A$2:A2))*($E$2:$E$11>=0.3),ROW($D$2:$D$11),1000),1)))}”求第一个达到30%的日期，结果如绿色单元格。

wangjguo44

献丑，抛砖引玉。一步到位，公式太长：

1. =IFERROR(IF(MATCH(1=1,SUBTOTAL(9,OFFSET(INDIRECT("D"&MAX(IF(A$2:A2<>"",ROW($2:2)))),,,ROW(INDIRECT("1:"&MAX(ROW())-MAX(IF(A$2:A2<>"",ROW($1:1))))),))/LOOKUP(9^9,B$2:B2)>=0.3,)=ROW()-MAX(IF(A$2:A2<>"",ROW($1:1))),C2,""),"")

复制代码

13732120571

凑合一个
E2

1. =IF(OR(SUM(INDEX(D:D,MATCH(9^9,B$1:B2)):D2)/LOOKUP(9^9,B$1:B2)<30%,COUNT(INDEX(E:E,MATCH("咗",A$1:A1)):E1)*(A2="")),"",C2)

复制代码

sayhi95

1. =IF(OFFSET($C$1,MATCH(1=1,SUBTOTAL(9,OFFSET($D$1,MATCH(LOOKUP(4^8,$B$2:B2),$B$2:$B$11,),,ROW($1:$10)))>J2*0.3,)+MATCH(LOOKUP(4^8,$B$2:B2),$B$2:$B$11,)-1,)=C2,C2,"")

复制代码

sdc3211772

=IFERROR(VLOOKUP(C2,SIGN(FREQUENCY(ROW($1:$10)^0,--(SUBTOTAL(9,OFFSET(D$1,MATCH(LOOKUP("座",A$2:A2),A$2:A$11,),,ROW($1:$10)))/LOOKUP(9^9,B$2:B2)>=0.3)))*OFFSET(C$1,MATCH(LOOKUP("座",A$2:A2),A$2:A$11,),,11),1,),"")

ghzx9388

=IF((SUMPRODUCT((LOOKUP(ROW($A$2:$A2),IF($A$2:$A2<>"",ROW($A$2:$A2)),$A$2:$A2)=LOOKUP("座",$A$2:A2))*D$2:D2)>=LOOKUP(9^9,$B$2:B2)*30%)*(COUNT(INDEX(E:E,IFERROR(LOOKUP(1,0/(LEFT(A$1:A1)="A"),ROW(B$1:B1)),1)):E1)*(A2="")<1),C2,"")

wangg913

1. =IF(MATCH(SUM(B$1:B2)-LOOKUP(9^9,B$1:B2)*70%,SUBTOTAL(9,OFFSET(D$1,,,ROW($1:12)-1)))=ROW(),C2,"")

复制代码

数组公式。

ykqrs

楼上诸位大佬白的，啤的，红的。。。。。
最近酒量不咋地，以茶代酒，敬楼主一杯，以示祝贺。。。。
Sub 淡淡清茶()
Dim i%, r%, m%, s, ss
r = Cells(Rows.Count, 3).End(xlUp).Row
Range("e2:e" & r) = ""
For i = 2 To r
If Cells(i, 1) <> "" Then
s = Cells(i, 2).Value * 0.3
For m = i To r
ss = ss + Cells(m, 4)
If ss >= s Then Cells(m, 5) = Cells(m, 3).Value: ss = 0: Exit For
Next
End If
Next
End Sub