怎么在选中区域内合并相同单元格

徐庆征

我想根据一列排列过的数据，我选中它们之后，相同的单元格就合并，如果是文字的话就合并成文字，如果是数字的话就先把单元格内的数字记性累加计算，然后把得到值放在这个合并后的单元格内。麻烦大神们指导一下


昨天卡了不知道怎么搞到没把附件传上去，麻烦大家再看看附件

liulang0808

建议楼主发下模拟附件

gwjkkkkk

发下附件，模拟结果。。。

ykcbf1100

求助上传附件，能最快解决问题

徐庆征

liulang0808 发表于 2024-3-28 18:29
建议楼主发下模拟附件

不好意思，昨天卡了，附件忘记传上去了，现在传上去了，麻烦兄弟有空帮忙看下

徐庆征

gwjkkkkk 发表于 2024-3-28 18:59
发下附件，模拟结果。。。

不好意思，昨天卡了，附件忘记传上去了，现在传上去了，麻烦兄弟有空帮忙看下

徐庆征

ykcbf1100 发表于 2024-3-28 19:05
求助上传附件，能最快解决问题

不好意思，昨天卡了，附件忘记传上去了，现在传上去了，麻烦兄弟有空帮忙看下

swl4561255

1. Sub test()
   
2. ar = [B1].End(4).Row
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. For i = ar To 2 Step -1
   
5.    If Cells(i - 1, 2) = Cells(i, 2) Then
   
6.       d(Cells(i, 2).Value) = d(Cells(i, 2).Value) + Cells(i, 3)
   
7.       Range(Cells(i - 1, "F"), Cells(i, "F")).Merge
   
8.       Range(Cells(i - 1, "G"), Cells(i, "G")).Merge
   
9.     Else
   
10.       Cells(i, "F") = Cells(i, 2)
    
11.       Cells(i, "G") = d(Cells(i, 2).Value) + Cells(i, 3)
    
12.     End If
    
13. Next
    
14. Set d = Nothing
    
15. End Sub

复制代码

ykcbf1100

徐庆征 发表于 2024-3-29 14:09
不好意思，昨天卡了，附件忘记传上去了，现在传上去了，麻烦兄弟有空帮忙看下

合并单元格并求和。

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.29
   
2.     With Sheets("数据")
   
3.         r = .Cells(Rows.Count, 2).End(3).Row
   
4.         zr = Array(2, 4)
   
5.         Call hb(2, 2, zr)
   
6.         Call hbsum(2, 2, 3, 4)
   
7.     End With
   
8. End Sub

复制代码