妖题系列——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
    

复制代码

82077802

现在特别流行“系列”嘛

tmtony

先收为快!

roych

按我的理解是，先获取单元格区域，——这个用Input来完成就行了；
然后根据选择的行数来判断单元格个数，然后以此为依据，用For语句来获取每个单元格的内容。
把内容用&字符连接在一起，并使用合并属性。
大体思想就这样吧？

悠悠雨

快乐王

看看

Bonusdeath

哇，好厉害

macky591

看看

wanggang

学习一下

dlyutao

谢谢