[已解决]求助！关于类似于用countif函数的vba用法

flh1000

求助内容见附件，请高手指点！

最佳答案

月排行榜 / 总排行榜

Benol

2011-10-10 16:10

楼上公式和楼主公式并非等价的。
根据猜测的题意，我觉得楼上的公式比楼主的更贴切。

另外，楼主说到VBA，在下有点参考意见：
1. 可以直接采用Evaluate求楼上公式的值，并返回给相应单元格。
2. 也可以采用字典来累计。

跳转到最佳答案楼层

Zipall

回复 flh1000 的帖子

=SUMPRODUCT((A$2:A$22=A2)*(B$2:B$22=B2))

Benol

楼上公式和楼主公式并非等价的。
根据猜测的题意，我觉得楼上的公式比楼主的更贴切。

另外，楼主说到VBA，在下有点参考意见：
1. 可以直接采用Evaluate求楼上公式的值，并返回给相应单元格。
2. 也可以采用字典来累计。

flh1000

回复 Zipall 的帖子

多谢你的公式，有没有vba的方法啊

flh1000

回复 Benol 的帖子

请问字典累计的方法怎么弄了，能帮忙写个vba代码嘛

flh1000

回复 Benol 的帖子

Sub insert_row()
Dim i%
    For i = 2 To 22
        Cells(i, 3) = Evaluate("SUMPRODUCT((A$2:A$22=A2)*(B$2:B$22=B2))")
    Next
End Sub
经验证不对，只显示a2,b2对应的结果3
Sub insert_row()
Dim i%
    For i = 2 To 22
        Cells(i, 3) = Application.SumProduct(Range("A2:A22") = Cells(i, 1)) * (Range("B2:B22") = Cells(i, 2))
    Next
End Sub
经验证是报错，报的什么由于我电脑上是韩文版的，看不到

Benol

今天陪客户。没时间写。如果明天你还没有得到答案，请短消息呼我。

flh1000

回复 Benol 的帖子

你不是知道不能解惑，是多么蛋疼的事！我要申请两小时解决问题那个