vba如何实现合并单元格中的条件汇总？

360527010

longwin 发表于 2024-11-1 23:09
附件供参考。。。。。

感谢大佬，如果有多列这种情况要汇总的话是否直接在加个for结构就可以了呢

360527010

ykcbf1100 发表于 2024-11-2 19:50
参与一下。。。

感谢大佬，如果是有多列这种情况的而且范围也不一样又如何处理呢

ykcbf1100

360527010 发表于 2024-11-3 16:40
感谢大佬，如果是有多列这种情况的而且范围也不一样又如何处理呢

不明白你的意思。
正常情况下，多列代码不用改的。

翁知江安

Sub hebingqiuhe() Dim i, j, k, irow Dim arr Dim d As Object Set d = CreateObject("scripting.dictionary") irow = Sheet1.[a65536].End(xlUp).Row arr = Sheet1.Range("a1:p" & irow) For i = 2 To irow     For j = 3 To 14     arr(i, 2) = arr(i, 2) + arr(i, j)     Next     d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2) Next   Sheet1.Cells(23, 3) = d(Sheet1.Cells(23, 2).Value)   Sheet1.Cells(24, 3) = d(Sheet1.Cells(24, 2).Value) End Sub

翁知江安

Sub hebingqiuhe()
Dim i, j, k, irow
Dim arr
Dim d As Object
Set d = CreateObject("scripting.dictionary")
irow = Sheet1.[a65536].End(xlUp).Row
arr = Sheet1.Range("a1:p" & irow)
For i = 2 To irow
    For j = 3 To 14
    arr(i, 2) = arr(i, 2) + arr(i, j)
    Next
    d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)
Next
  Sheet1.Cells(23, 3) = d(Sheet1.Cells(23, 2).Value)
  Sheet1.Cells(24, 3) = d(Sheet1.Cells(24, 2).Value)
End Sub

翁知江安

供参考，本人是excel 365版本

360527010

ykcbf1100 发表于 2024-11-3 16:52
不明白你的意思。
正常情况下，多列代码不用改的。

类似这种情况，详见图片。每个汇总区域的列数还不一致

ykcbf1100

360527010 发表于 2024-11-3 17:16
类似这种情况，详见图片。每个汇总区域的列数还不一致

你不要自己想想，要真有此类情况出现，不然没有意义。
如果象图片中这样，可以分成二部分处理。