在d1输入函数=SUMPRODUCT((B:B=C1)*(A:A>12%))/COUNTIF(B:B,C1) 并拖拽（拖拽行数由c列的行数决定，c列多少行就拖拽多少行）
在e1输入函数=SUMIF(B:B,C1,A:A)/COUNTIF(B:B,C1) 并拖拽（拖拽行数由c列的行数决定，c列多少行就拖拽多少行）
在f1输入函数=COUNTIF(B:B,C1) 并拖拽（拖拽行数由c列的行数决定，c列多少行就拖拽多少行）
随着拖拽函数都依依次向下移动一个单元格。
结果要求为数值
没有悬赏分，不是我吝啬，是我穷得叮当响，目前的财富值只有0分，请高手见谅。谢谢！！！
æ¹æ³ä¸:åå»ãå·¥å
·ãèåä¸çãå®ãå½ä»¤,ææãAlt+F8ãç»åå¥æå¼ãå®ã对è¯æ¡,éä¸è¦æ¥æ®çå®,ç¶ååå»ãç¼è¾ãæé®,å³å¯æå¼è¦æ¥ç²çå®ã
æ¹æ³äº:å¨Excelå·¥ä½è¡¨çé¢ä¸.æãAIt+F11ãç»åé®,æå¼ãVisual Basicç¼è¾å¨ãçªå£,åæå¼ãå·¥ç¨èµæºç®¡çå¨ãçªå£,åå»ã模åã左边çã+ãå·.å±å¼æ¨¡å,ç¶ååå»ã模å1ã,æéä¸ã模å1ãåæãF7ãé®.æåå»ãå·¥ç¨èµæºç®¡çå¨ãä¸çæ¥ç代ç æé®,æå¼è¦æ¥ççå®ãä¸è¬æ åµä¸,æ°å½å¶çå®ä¿åå¨ã模å1ãä¸ãè¥æå¾å¤æ¨¡å,èåä¸ç¥éå½å¶çå®ä¿åå¨åªä¸ªæ¨¡åä¸,å¯ä»¥åå»æ¯ä¸ªæ¨¡åè¿è¡æ¥çã
æ¹æ³äº:å¨Excelå·¥ä½è¡¨çé¢ä¸.æãAIt+F11ãç»åé®,æå¼ãVisual Basicç¼è¾å¨ãçªå£,åæå¼ãå·¥ç¨èµæºç®¡çå¨ãçªå£,åå»ã模åã左边çã+ãå·.å±å¼æ¨¡å,ç¶ååå»ã模å1ã,æéä¸ã模å1ãåæãF7ãé®.æåå»ãå·¥ç¨èµæºç®¡çå¨ãä¸çæ¥ç代ç æé®,æå¼è¦æ¥ççå®ãä¸è¬æ åµä¸,æ°å½å¶çå®ä¿åå¨ã模å1ãä¸ãè¥æå¾å¤æ¨¡å,èåä¸ç¥éå½å¶çå®ä¿åå¨åªä¸ªæ¨¡åä¸,å¯ä»¥åå»æ¯ä¸ªæ¨¡åè¿è¡æ¥çã
温馨提示：答案为网友推荐，仅供参考
第1个回答 推荐于2016-07-21
dim a as string,b as string,c as string
dim i as integer,j as integer
j = cells(65536,3).end(xlup).row
'返回第三列(C列)最后一个非空单元格行数
For i = 1 To j
a = WorksheetFunction.SumProduct((Range("B:B").Value = Cells(i, 3).Value) * (Range("A:A").Value > 12))
'返回公式SUMPRODUCT((B:B=C1)*(A:A>12%))的值
b = WorksheetFunction.CountIf(Range("B:B").Value, Cells(i, 3).Value)
'返回公式COUNTIF(B:B,C1)的值
c = WorksheetFunction.SumIf(Range("B:B").Value, Cells(i, 3).Value, Range("A:A").Value)
'返回公式SUMIF(B:B,C1,A:A)的值
Cells(i, 4).Value = a / b '取得D列第i行的单元格的值
Cells(i, 5).Value = c / b '取得E列第i行的单元格的值
Cells(i, 6).Value = b '取得F列第i行的单元格的值
Next本回答被提问者采纳
dim i as integer,j as integer
j = cells(65536,3).end(xlup).row
'返回第三列(C列)最后一个非空单元格行数
For i = 1 To j
a = WorksheetFunction.SumProduct((Range("B:B").Value = Cells(i, 3).Value) * (Range("A:A").Value > 12))
'返回公式SUMPRODUCT((B:B=C1)*(A:A>12%))的值
b = WorksheetFunction.CountIf(Range("B:B").Value, Cells(i, 3).Value)
'返回公式COUNTIF(B:B,C1)的值
c = WorksheetFunction.SumIf(Range("B:B").Value, Cells(i, 3).Value, Range("A:A").Value)
'返回公式SUMIF(B:B,C1,A:A)的值
Cells(i, 4).Value = a / b '取得D列第i行的单元格的值
Cells(i, 5).Value = c / b '取得E列第i行的单元格的值
Cells(i, 6).Value = b '取得F列第i行的单元格的值
Next本回答被提问者采纳
第2个回答 2010-02-03
输入完成三个函数之后
选择d1,e1,f1三个单元格
然后把鼠标移到到f1右下角的小黑点处，光标会变成黑色十字光标。然后双击左键即可
简单得很
选择d1,e1,f1三个单元格
然后把鼠标移到到f1右下角的小黑点处，光标会变成黑色十字光标。然后双击左键即可
简单得很
第3个回答 2010-02-03
看着挺麻烦 , 居然是 0分
第4个回答 2010-02-03
把文件发给我啊
