SUMIF(A$1:A2,D2,C$1:C2)公式--求同等功能的VBA代码

sunya_0529

WPS里的JSA练习一下——

jerry3770

一程老鸽 发表于 2024-5-4 22:05
Sub pp()
    Dim i, j, k, arr, brr(), d As New Dictionary
    t = Time

老师  您的代码太快了  0.034秒/10000行，字典确实牛B  感谢+++

jerry3770

swl4561255 发表于 2024-5-5 09:10
没用字典。

谢谢老师的回复  也要8秒左右/10000行，还是上楼一程老鸽的字典方案最快，0.34秒/10000行

jerry3770

sunya_0529 发表于 2024-5-5 11:04
WPS里的JSA练习一下——

哇  这么快0.26秒呀，高。我打开附件没有代码  所以没试  。JSA  没接触过，字典方案也差不多  我的电脑0.34秒/10000行。谢谢老师解答

jerry3770

yan4088 发表于 2024-5-5 08:35
Function jia(rng1 As Range, criteria As Variant, rng2 As Range) As Double
    Dim i As Long
    Di ...

谢谢老师解答  直接函数化了！都是大神  羡慕死大家牛B的技术了

jerry3770

一程老鸽 发表于 2024-5-5 08:16
改一下吧
Sub O秒()
    Dim i, arr, brr()

老师 ，这是VBA中的王者方案了  速度太快了  万行0秒了。致敬！！！谢谢