[已解决]如何在指定区域里合并求和？请老师帮忙

vba新手2

见附件；谢谢老师们

最佳答案

月排行榜 / 总排行榜

爱疯

2016-4-13 19:58

Sub Click()
    Dim i, j, k
    For i = 30 To 32
        Cells(i, 6) = 0
        For j = 3 To 10 Step 7
            For k = 24 To 29
                If Cells(i, 3) = Cells(k, j) Then Cells(i, 6) = Cells(i, 6) + Cells(k, j + 5)
            Next k
        Next j
    Next i
End Sub

合并求和2.rar (9.85 KB, 下载次数: 5)

2016-4-13 19:58 上传

点击文件名下载附件

跳转到最佳答案楼层

爱疯

F30=SUMIF($C24:$L29,$C30,$H24)

是这意思吗

vba新手2

爱疯 发表于 2016-4-13 19:39
F30=SUMIF($C24:$L29,$C30,$H24)

是这意思吗

是的；能用VBA编写吗？因为我这个要利用其他工具生成；不能用函数

爱疯

Sub Click()
    Dim i, j, k
    For i = 30 To 32
        Cells(i, 6) = 0
        For j = 3 To 10 Step 7
            For k = 24 To 29
                If Cells(i, 3) = Cells(k, j) Then Cells(i, 6) = Cells(i, 6) + Cells(k, j + 5)
            Next k
        Next j
    Next i
End Sub

合并求和2.rar (9.85 KB, 下载次数: 5)

2016-4-13 19:58 上传

点击文件名下载附件

vba新手2

爱疯 发表于 2016-4-13 19:58
Sub Click()
    Dim i, j, k
    For i = 30 To 32

谢谢老师解答；解决我的问题。