如何用VBA编程实现统计求和呢？

buguiize

这么多数据适合用数据库，excel这么多数据处理起来比较吃力！

grf1973

。。。。。。。。。。。。。。。。。。

zax010

魏琳211 发表于 2017-6-6 14:31
几十万行的话也可以用这个程序吧？

没问题。

魏琳211

zax010 发表于 2017-6-6 14:40
没问题。

那就太好啦

魏琳211

grf1973 发表于 2017-6-6 14:35
。。。。。。。。。。。。。。。。。。

木有看懂。。。

魏琳211

buguiize 发表于 2017-6-6 14:35
这么多数据适合用数据库，excel这么多数据处理起来比较吃力！

但是数据库的功能感觉不是非常实际

ssfx1982

魏琳211 发表于 2017-6-6 15:29
但是数据库的功能感觉不是非常实际

一次最多处理1048576行了，你几十万行是没问题的，处理一次才0.1秒不到。比你用其他方法强多了。

excelvlookup

用一个三维数组代替字典，想到啥就写啥
Sub aa()
Dim ar(1 To 99, 1 To 99, 1 To 999)
rw = Range("b1").End(4).Row
br = Range("b2:n" & rw)
ReDim arr(1 To UBound(br), 1 To 4)
For i = 1 To UBound(br)
    x = Val(Mid(br(i, 1), 1, 2)): y = Val(Mid(br(i, 1), 3, 2)): z = Val(Mid(br(i, 1), 5, 3))
    r = ar(x, y, z)
    If r = "" Then
        s = s + 1
        ar(x, y, z) = s
        arr(s, 1) = br(i, 1)
        arr(s, 2) = 1
        arr(s, 3) = br(i, 5)
        arr(s, 4) = br(i, 13)
    Else
        arr(r, 2) = arr(r, 2) + 1
        arr(r, 3) = arr(r, 3) + br(i, 5)
        arr(r, 4) = arr(r, 4) + br(i, 13)
    End If
Next
[q2].Resize(s, 4) = arr
End Sub

LMY123

字典，SQL，三维数组实现分类汇总

魏琳211

ssfx1982 发表于 2017-6-6 19:50
一次最多处理1048576行了，你几十万行是没问题的，处理一次才0.1秒不到。比你用其他方法强多了。

哈哈，好哒，我试试