如何快速批量向下合并不同行数的单元格

猪猪被梦吃了

怎么快速向下合并这些行数，如图：

baofa2

1. Sub test0()
   
2.   
   
3.   Dim ar, i As Long, j As Long, k As Long, p As Long
   
4.   DoApp False
   
5.   ar = Range("A1").CurrentRegion.Offset(1).Value
   
6.   ar(UBound(ar), 1) = "abc"
   
7.   For i = 2 To UBound(ar) - 1
   
8.     If Len(ar(i, 1)) Then p = i + 1 Else k = k + 1
   
9.     If Len(ar(i + 1, 1)) Then
   
10.       If k Then
    
11.         For j = 1 To UBound(ar, 2)
    
12.           Cells(p, 1).Offset(, j - 1).Resize(k + 1).Merge
    
13.         Next
    
14.       End If
    
15.       k = 0
    
16.     End If
    
17.   Next
    
18.   DoApp
    
19.   Beep
    
20. End Sub
    
21. 
    
22. Function DoApp(Optional b As Boolean = True)
    
23.   With Application
    
24.     .ScreenUpdating = b
    
25.     .DisplayAlerts = b
    
26.     .Calculation = -b * 30 - 4135
    
27.   End With
    
28. End Function
    

复制代码

kuangben8

直接删除0值的行不行吗？为啥要合并？

kuangben8

定位运单号为空的单元格，删除，整行

猪猪被梦吃了

kuangben8 发表于 2024-5-23 12:41
定位运单号为空的单元格，删除，整行

不是要删除，而是要合并单元格，我试着使用合并相同内容了，但是不知道是我电脑问题还是表格问题，无法一次性操作。一次操作十几条就可以