帮忙合并一下单元格，谢谢

wyd123321

红色标注是手工合并好了的例子，后面的应该怎么快速合并。 例子.zip (36.63 KB, 下载次数: 19)

2023-6-1 17:03 上传

点击文件名下载附件

高个子

WPS有个小功能，Excel需要VBA

zpy2

select count(*) 行, group_concat(值1),值2 from 基础合并单元格 group by 值1,值2

dambcer

1. Sub mg()
   
2. Dim i As Long, k As Long, n As Long
   
3. k = Cells(Rows.Count, 1).End(3).Row
   
4. Application.DisplayAlerts = False
   
5. For i = k To 2 Step -1
   
6.     If Cells(i, 1) = Cells(i - 1, 1) Then
   
7.         n = n + 1
   
8.         Cells(i - 1, 2) = n
   
9.         Range(Cells(i, 2), Cells(i - 1, 2)).Merge
   
10.     Else
    
11.         n = 1
    
12.     End If
    
13. Next
    
14. Application.DisplayAlerts = True
    
15. End Sub

复制代码

minchar

C2=IF(A2=A1,C1,MOD(C1+1,2))
下拉，然后复制粘贴为值
查找所有1合并单元格，查找所有0合并单元格，
选中所有合并单元格向左填充格式

绿茶青青

minchar 发表于 2023-6-1 22:39
C2=IF(A2=A1,C1,MOD(C1+1,2))
下拉，然后复制粘贴为值
查找所有1合并单元格，查找所有0合并单元格，

这个思路相当棒，只是在查找1，并全选1的单元格，这时直接点合并单元格，将会弹出无数个对话框，这个非常麻烦。
我想了一个办法避免弹出这种合并单元格对话框，就是在查找到所有1的单元格，然后全选1的单元格后，不直接点合并单元格，先按DEL，删除所有1，然后再点合并，这样能避免无数个对话框出现的麻烦。

绿茶青青

突然想起有一个办法在EXCEL中可以解决这个问题，不需要公式与VBA

1、单击任何一个有数据的单元格，数据，分类汇总，选定汇总项选择值1，取消最下方的“汇总结果显示在数据下方”的对勾，然后确定

2、选中A列，按F5或CTRL+G,定位条件，空值，然后确定。

3、开始，合并单元格

4、单击任何一个单元格，数据、分类汇总，全部删除

5、选中A列，单元开始中的格式刷，刷到C列，然后删除A列。最后把边框线补齐就可以了。