用For Each 合并单元格

cunfu2010

附件中代码只合并了相邻的上下两个单元格，如何实现上下内容相同的单元格全部合并？

ivccav

Book1.zip (12.99 KB, 下载次数: 7)

2019-1-11 23:02 上传

点击文件名下载附件

libaoshui

1. Sub 合并()
   
2.     Application.DisplayAlerts = False
   
3.     r = 16
   
4.     c = 9
   
5.     For j = 1 To c
   
6.         For i = r To 5 Step -1
   
7.             If Cells(i, j) = Cells(i - 1, j) Then
   
8.                 Range(Cells(i, j), Cells(i - 1, j)).Merge  '只合并了相邻的上下两个单元格，如何实现上下内容相同的单元格全部合并
   
9.             End If
   
10.         Next i
    
11.     Next j
    
12.     Application.DisplayAlerts = True
    
13. End Sub

复制代码

abc123281

Sub 合并()
Application.DisplayAlerts = False
r = [c65536].End(3).Row
arr = Range("a1:i" & r)
For i = UBound(arr) To 5 Step -1
  For x = i - 1 To 5 Step -1
    If Cells(i, 1) = Cells(x, 1) Then
       Range(Cells(i, 1), Cells(x, 1)).Merge
    End If
  Next
Next
Cells.HorizontalAlignment = xlCenter
Cells.VerticalAlignment = xlCenter
Application.DisplayAlerts = True
End Sub

cunfu2010

非常感谢上面三位的解答，用单元格循环的方法可以实现，问题是：为什么用for each 只能合并一次，第二次运行时就不能合并了？能解疑一下吗？

ivccav

cunfu2010 发表于 2019-1-12 08:24
非常感谢上面三位的解答，用单元格循环的方法可以实现，问题是：为什么用for each 只能合并一次，第二次运 ...

合并的区域只有左上角一个单元格有数值。从上往下循环，合并一次之后就没有比较意义了，因为合并区域其他单元格都是空值。

cunfu2010

ivccav 发表于 2019-1-12 08:48
合并的区域只有左上角一个单元格有数值。从上往下循环，合并一次之后就没有比较意义了，因为合并区域其他 ...

关键之处，没注意。谢谢！