[已解决]计数求和？

hahada

把表1和表2里k列aa bb dd筛选出来，然后H列计数求和
表1计数求和结果在a2和b2，表2计数求和结果在a3和b3
附件： 附件.rar (4.68 KB, 下载次数: 18)

2013-5-23 10:00 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

as0810114

2013-5-23 10:38

hahada 发表于 2013-5-23 10:33
用公式也行，但是你这个公式没达到要求，把aa  bb  dd筛选出来，而且筛选区域下方有可能还有数据
不能每 ...

那你可以把区域设置大一点啊，H5：H10000，添加之后就自动计算了。达到10000行，你调到100000行，都行。

跳转到最佳答案楼层

as0810114

A2输入公式  =COUNTIF(K5:K29,"??")   A3输入公式=COUNTIF(Sheet2!K5:K29,"??")
B2输入公式 =SUMIF(K5:K29,"??",H5:H29)  B3输入公式 =SUMIF(Sheet2!K5:K29,"??",Sheet2!H5:H29)

hahada

as0810114 发表于 2013-5-23 10:06
A2输入公式  =COUNTIF(K5:K29,"??")   A3输入公式=COUNTIF(Sheet2!K5:K29,"??")
B2输入公式 =SUMIF(K5:K29 ...

能不能用代码解决？

as0810114

hahada 发表于 2013-5-23 10:23
能不能用代码解决？

那你找别人吧，简单的东西没必要用VBA，个人观点。

as0810114

公式不满足要求，改一下  A2  =SUMPRODUCT((K5:K29={"aa","bb","dd"})*1)
A3  =SUMPRODUCT((sheet2!K5:K29={"aa","bb","dd"})*1)
B2  =SUMPRODUCT((K5:K29={"aa","bb","dd"})*H5:H29)
B3  =SUMPRODUCT((Sheet2!K5:K29={"aa","bb","dd"})*Sheet2!H5:H29)

hahada

as0810114 发表于 2013-5-23 10:25
那你找别人吧，简单的东西没必要用VBA，个人观点。

用公式也行，但是你这个公式没达到要求，把aa  bb  dd筛选出来，而且筛选区域下方有可能还有数据
不能每次修改单元格地址？

as0810114

hahada 发表于 2013-5-23 10:33
用公式也行，但是你这个公式没达到要求，把aa  bb  dd筛选出来，而且筛选区域下方有可能还有数据
不能每 ...

那你可以把区域设置大一点啊，H5：H10000，添加之后就自动计算了。达到10000行，你调到100000行，都行。

ligh1298

1. Sub 计数与求和()
   
2. For Each Rng In Range("k5:k" & [k65536].End(3).Row)
   
3. If Rng = "aa" Or Rng = "bb" Or Rng = "dd" Then
   
4. k = k + 1
   
5. rn = rn + Cells(Rng.Row, "h")
   
6. End If
   
7. Next
   
8. [a2] = k
   
9. [b2] = rn
   
10. End Sub

复制代码

hahada

ligh1298 发表于 2013-5-23 10:41

有两个工作表，表1计数求和结果在a2和b2，表2计数求和结果在a3和b3

ligh1298

1. Sub 计数与求和()
   
2. For Each Rng In Sheet1.Range("k5:k" & [k65536].End(3).Row)
   
3. If Rng = "aa" Or Rng = "bb" Or Rng = "dd" Then
   
4. k = k + 1
   
5. rn = rn + Sheet1.Cells(Rng.Row, "h")
   
6. End If
   
7. Next
   
8. For Each Rng1 In Sheet2.Range("k5:k" & [k65536].End(3).Row)
   
9. If Rng1 = "aa" Or Rng1 = "bb" Or Rng1 = "dd" Then
   
10. k1 = k1 + 1
    
11. rn1 = rn1 + Sheet2.Cells(Rng1.Row, "h")
    
12. End If
    
13. Next
    
14. [a2] = k
    
15. [b2] = rn
    
16. 
    
17. [a3] = k1
    
18. [b3] = rn1
    
19. End Sub
    

复制代码