用VBA将二句改一下，谢谢！！（附件已上传）

=IF(I3="","",SUMPRODUCT(($B$3:$B$65536=$I3)*($A$3:$A$65536<=$P$2)*($A$3:$A$65536>=$P$1)*($E$3:$E$65536)))
=IF(I3="","",SUMPRODUCT(($B$3:$B$65536=$I3)*($A$3:$A$65536<=$P$2)*($A$3:$A$65536>=$P$1)*($E$3:$E$65536)))
老师，能否将上面代码改成VBA代码，且$A$65536,改成变动的，（A列实际行数），谢谢了！！ aaa.rar (60.13 KB)
还有能否再加一个排序：[I3：N555]选定区域进行排

[ 本帖最后由 song22602 于 2011-8-10 16:02 编辑 ]

最好上传附件，加上问题以及结果。方便操作。

上个附件，肯定有人帮忙。

弄实例来 弄起来快。相信没有人愿意猜