妖题系列——EXCEL小问题-101115-合并单元格时内容也合并-方法三

pureshadow

如果N个有内容的单元格合并以后，只有最左上角的单元格才得以保留，如何让单元格合并后内容也合并呢？

技巧和函数解法都有了，剩下的就是代码解法了，其实代码是最没有悬念的一种解法，呵呵……

1. 
   
2. Sub sample()
   
3. Dim MyRow As Long
   
4. Dim MyStr As String
   
5. For MyRow = Range("a65536").End(xlUp).Row To 2 Step -1
   
6.     If Cells(MyRow + 1, 1) = Cells(MyRow, 1) Then
   
7.         MyStr = Cells(MyRow, 2) & MyStr
   
8.         Range(Cells(MyRow + 1, 3), Cells(MyRow, 3)).Merge
   
9.     Else
   
10.         MyStr = Cells(MyRow, 2)
    
11.     End If
    
12.     Cells(MyRow, 3) = MyStr
    
13. Next
    
14. End Sub
    

复制代码

cumtclmk123

真厉害

rockroll1234

xuexi

yori2007

dlyutao

谢谢

wanggang

学习一下

macky591

看看

Bonusdeath

哇，好厉害

快乐王

看看

悠悠雨