[已解决]怎么实现sheet1填入的值，sheet2据此筛选，并计算出结果占比？

kayry

A占比例	语文	数学	英语
50%	80

评价	语文	数学	英语
A	90	80	70
B	80	60	85
C	50	80	85
B	90	60	70
C	50	68	90
A	80	80	85
B	90	50	80
C	85	90	60
C	80	50	68
B	80	70	80
A	80	90	60
A	80	50	68
C	90	80	80
B	50	70	50

实现目的：我在sheet1蓝色底纹的格式中填成绩（例如语文80），sheet2就自动筛选；此外，sheet1黄色底纹中自己计算出评价为A在筛选出的占比。本例中语文为80，筛出了6个，而评价为A的有3个，那占比就是50%，然后自动填入sheet1的A2。

请问：以上两个功能分别用什么公式能实现？如果觉得我表述不清，可见附件。非常感谢！

最佳答案

月排行榜 / 总排行榜

搁浅2008

2013-6-22 11:01

用的VBA 注意启用宏

跳转到最佳答案楼层

1032446692

第二个要求可以通过一下公式完成
=SUMPRODUCT(((Sheet2!B:B=Sheet1!B2)+(B2=0))*((Sheet2!C:C=Sheet1!C2)+(C2=0))*((Sheet2!D:D=Sheet1!D2)+(D2=0))*(Sheet2!A:A="A"))/SUMPRODUCT(((Sheet2!B:B=Sheet1!B2)+(B2=0))*((Sheet2!C:C=Sheet1!C2)+(C2=0))*((Sheet2!D:D=Sheet1!D2)+(D2=0)))
但是第一个问题，如果是在原区域是不能通过公式实现的   如果在其他地方应该还是可以的

1032446692

自动筛选功能不能通过公式触发

kayry

1032446692 发表于 2013-6-17 06:51
第二个要求可以通过一下公式完成
=SUMPRODUCT(((Sheet2!B:B=Sheet1!B2)+(B2=0))*((Sheet2!C:C=Sheet1!C2)+ ...

在原区域无法实现，在其他区域可以实现？愿闻其详，感谢[em23]

kayry

各位大虾，帮忙出出招吧，我快被这个问题折磨疯啦

搁浅2008

自动筛选 是VBA的问题 在VBA里简单 函数里麻烦

kayry

搁浅2008 发表于 2013-6-17 09:46
自动筛选 是VBA的问题 在VBA里简单 函数里麻烦

能请大虾您帮忙写一下这段vba代码吗？非常感谢[em23]

kayry

各位大侠，有能帮忙解决这个问题的么？感谢啊

kayry

继续求答案啊

搁浅2008

用的VBA 注意启用宏