合并单元格并求和

Qs18

yshcy 发表于 2024-7-13 10:39
还需要对A列进行合并，谢谢。

后面重新发一个

Qs18

再试试.........

Qs18

再试试......

ykcbf1100

参与一下，合并单元格并求和

ykcbf1100

。。。。。。。。。。。。

1. Sub ykcbf()  '//2024.7.13   合并单元格并求和
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     r = Cells(Rows.Count, "a").End(xlUp).Row
   
5.     For i = r To 2 Step -1
   
6.         Set rng = Cells(i, 1)
   
7.         Set Rng1 = rng.Offset(-1)
   
8.         If rng = Rng1 Then
   
9.             Cells(i, 1).Offset(-1).Resize(2).Merge
   
10.             Cells(i, 3).Offset(-1).Resize(2).Merge
    
11.         End If
    
12.     Next
    
13.     For i = 2 To r
    
14.         Set rng = Cells(i, 1)
    
15.         Sum = 0
    
16.         If rng.MergeCells = True Then
    
17.             m = rng.MergeArea.Count
    
18.             For x = 1 To m
    
19.                 Sum = Sum + Cells(i + x - 1, 2)
    
20.             Next
    
21.             Cells(i, 3) = Sum
    
22.             i = i + m - 1
    
23.         Else
    
24.             Cells(i, 3) = Cells(i, 2)
    
25.         End If
    
26.     Next
    
27.     Application.ScreenUpdating = True
    
28.     MsgBox "OK！"
    
29. End Sub
    
30. 
    

复制代码