如何根据其它列数据自动求和，并且自动合并单元格？

magicbowl

大师们好。


工作需要有个棘手的问题求助大家，如何根据其它列数据自动求和，并且自动合并单元格？

请教有什么解决方案吗？

ykcbf1100

在原表上操作吗？难是不难。

liulang0808

Sub 按钮1_Click()
    r = Cells(Rows.Count, 6).End(3).Row
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    sm = 0
    For j = r To 3 Step -1
        If Cells(j, 7) = Cells(j - 1, 7) Then
            sm = sm + Cells(j, 8)
            Cells(j - 1, 7).Resize(2).Merge
            Cells(j - 1, 12).Resize(2).Merge
            Cells(j - 1, 13).Resize(2).Merge
        Else
            sm = sm + Cells(j, 8)
            Cells(j, 13) = sm
            sm = 0
        End If
        If Cells(j, 6) = Cells(j - 1, 6) Then
            Cells(j - 1, 6).Resize(2).Merge
        End If
    Next j
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

liulang0808

供参考。。。。。。。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.2
   
2.     With Sheets("原始样子")
   
3.         .UsedRange.Offset(2).UnMerge
   
4.         zr = Array(6)
   
5.         Call hb(3, 1, 6, zr)
   
6.         zr = Array(7, 12, 13)
   
7.         Call hb(3, 1, 7, zr)
   
8.         Call hbsum(3, 1, 8, 13)
   
9.     End With
   
10. End Sub
    

复制代码

magicbowl

ykcbf1100 发表于 2024-4-2 07:57
参与一下。。。

感谢大师，有个问题是M列自动合并，公式会消失，这是正常的吗？
另外M列要根据G列来求和，判断G列连续相同的数据，然后对H列相应的行求和，这个可以用函数实现吗

magicbowl

liulang0808 发表于 2024-4-1 21:32
Sub 按钮1_Click()
    r = Cells(Rows.Count, 6).End(3).Row
    Application.ScreenUpdating = False

谢谢版主的代码，膜拜

ykcbf1100

magicbowl 发表于 2024-4-2 08:52
感谢大师，有个问题是M列自动合并，公式会消失，这是正常的吗？
另外M列要根据G列来求和，判断G列连续相 ...

M列现在由代码自动计算，不需要公式了。而且，你那公式是纯手工的，不能按合并单元格的多少来改变。

magicbowl

ykcbf1100 发表于 2024-4-2 08:57
M列现在由代码自动计算，不需要公式了。而且，你那公式是纯手工的，不能按合并单元格的多少来改变。

不好意思，没发现。。。太神了，超级感谢