[已解决]VBA实现多条件求和（三项内容相同，则将对应的第四项求和）

niuchennc

如图 将年份 月份 编号相同的项的数据求和
因为年份很多大概50年
如：1953 年的 1月 中 前五天编号是1  求这五天的数据的和
以此类推 每个月都有6组编号 分别是1——6  每年12个月  以为每天数不同 所以每各小组天数不同
每个月前5组每组五天 第六组天数不定 若该月31天 第六组6填 28天 第六组3填

最佳答案

月排行榜 / 总排行榜

wanao2008

2015-8-28 09:16

首先说明，gdpgdp317 说的对，用数据透视表最快最好。
下面是我写的，我也是菜鸟
Sub qiuHe()
    Dim arr, arr2(1 To 4)
    arr = Range("A2:F" & Range("A65536").End(xlUp).Row)
    arr2(1) = arr(1, 1)
    arr2(2) = arr(1, 2)
    arr2(4) = arr(1, 6)
    arr2(3) = arr(1, 5)
    For x = 2 To UBound(arr)
        If arr(x, 6) = arr(x - 1, 6) And arr(x, 1) = arr(x - 1, 1) And arr(x, 2) = arr(x - 1, 2) Then
            arr2(3) = arr2(3) + arr(x, 5)
        Else
            Cells(Range("J65536").End(xlUp).Row + 1, 10).Resize(1, 4) = arr2
            arr2(1) = arr(x, 1)
            arr2(2) = arr(x, 2)
            arr2(4) = arr(x, 6)
            arr2(3) = arr(x, 5)
        End If
    Next
    Cells(Range("J65536").End(xlUp).Row + 1, 10).Resize(1, 4) = arr2

End Sub

跳转到最佳答案楼层

niuchennc

顶一下！！在线等

niuchennc

给位大神给力啊

niuchennc

我再顶！

niuchennc

我顶···········

gdpgdp317

数据透视表，如何？

wanao2008

首先说明，gdpgdp317 说的对，用数据透视表最快最好。
下面是我写的，我也是菜鸟
Sub qiuHe()
    Dim arr, arr2(1 To 4)
    arr = Range("A2:F" & Range("A65536").End(xlUp).Row)
    arr2(1) = arr(1, 1)
    arr2(2) = arr(1, 2)
    arr2(4) = arr(1, 6)
    arr2(3) = arr(1, 5)
    For x = 2 To UBound(arr)
        If arr(x, 6) = arr(x - 1, 6) And arr(x, 1) = arr(x - 1, 1) And arr(x, 2) = arr(x - 1, 2) Then
            arr2(3) = arr2(3) + arr(x, 5)
        Else
            Cells(Range("J65536").End(xlUp).Row + 1, 10).Resize(1, 4) = arr2
            arr2(1) = arr(x, 1)
            arr2(2) = arr(x, 2)
            arr2(4) = arr(x, 6)
            arr2(3) = arr(x, 5)
        End If
    Next
    Cells(Range("J65536").End(xlUp).Row + 1, 10).Resize(1, 4) = arr2

End Sub

niuchennc

gdpgdp317 发表于 2015-8-27 19:37
数据透视表，如何？

年份贴别多 而且有好几个站的数据....我们是做水文的 比较麻烦

niuchennc

wanao2008 发表于 2015-8-28 09:16
首先说明，gdpgdp317 说的对，用数据透视表最快最好。
下面是我写的，我也是菜鸟
Sub qiuHe()

大神 搞定了！！！求QQ 以后多交流 你在哪学的VBA？

wanao2008

niuchennc 发表于 2015-8-28 11:14
大神 搞定了！！！求QQ 以后多交流 你在哪学的VBA？

都是自学的，没有上过专业课。
很多时候我也经常是在论坛发求助贴，每经高手指点一次就多学会一些。
多加点论坛或QQ群吧，其实我很菜{:251:}