再次求助vba如何实现合并单元格中的条件汇总

360527010

之前已经求助只有单个区域数据的情况，群里的大佬们都解决了问题，但是如果出现多个区域的情况我这种菜鸟又没能力处理，只能再次求助！感谢各位大佬，数据详见附件（附件中仅列出了3个区域，但是实际中可能会根据需要出现更多的区域）。

quqiyuan

按照你的源文件做的代码，仅供参考。。。

quqiyuan

代码如下。。。
Sub test11()
    r = Cells(Rows.Count, 1).End(3).Row
    For i = 23 To r
        Sum = 0
        Set Rng = [a2:a19].Find(Cells(i, 1).Value)
        If Not Rng Is Nothing Then
            FirstAddress = Rng.Address
            Do
                If Rng.MergeCells Then
                    Sum = Sum + Application.Sum(Rng.MergeArea.Offset(, 2).Resize(, 43))
                    Set Rng = [a2:a19].FindNext(Rng)
                Else
                    Sum = Sum + Application.Sum(Rng.Offset(, 2).Resize(, 43))
                End If
            Loop While Not Rng Is Nothing And Rng.Address <> FirstAddress
        End If
        Cells(i, 3) = Sum
    Next
    Beep
End Sub

ykcbf1100

没看懂楼主的意思，三个区域合并求和吗？还是三个区域单独求和？

taller

你的上个帖子中，我提供的代码可以处理合并单元格

360527010

ykcbf1100 发表于 2024-11-5 10:00
没看懂楼主的意思，三个区域合并求和吗？还是三个区域单独求和？

单独求和，放在正下方的合并单元格里

360527010

quqiyuan 发表于 2024-11-4 22:12
代码如下。。。
Sub test11()
    r = Cells(Rows.Count, 1).End(3).Row

每个区域分别汇总在下面对应的合并单元格内，不是所有的汇总

ykcbf1100

360527010 发表于 2024-11-7 08:18
单独求和，放在正下方的合并单元格里

问题是正下方只有第一部分有合并单元格。
附件做得很潦草啊。