Office中国论坛/Access中国论坛

标题: 妖题系列——EXCEL小问题-101115-合并单元格时内容也合并-方法三 [打印本页]

作者: pureshadow 时间: 2010-12-14 13:53
标题: 妖题系列——EXCEL小问题-101115-合并单元格时内容也合并-方法三
如果N个有内容的单元格合并以后，只有最左上角的单元格才得以保留，如何让单元格合并后内容也合并呢？
[attach]44378[/attach]
技巧和函数解法都有了，剩下的就是代码解法了，其实代码是最没有悬念的一种解法，呵呵……

Sub sample()
Dim MyRow As Long
Dim MyStr As String
For MyRow = Range("a65536").End(xlUp).Row To 2 Step -1
If Cells(MyRow + 1, 1) = Cells(MyRow, 1) Then
MyStr = Cells(MyRow, 2) & MyStr
Range(Cells(MyRow + 1, 3), Cells(MyRow, 3)).Merge
Else
MyStr = Cells(MyRow, 2)
End If
Cells(MyRow, 3) = MyStr
Next
End Sub

复制代码

作者: 82077802 时间: 2010-12-14 14:58
现在特别流行“系列”嘛

作者: tmtony 时间: 2010-12-14 15:27
先收为快!

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

作者: 悠悠雨 时间: 2010-12-14 19:16

作者: 快乐王 时间: 2010-12-14 19:44
看看

作者: Bonusdeath 时间: 2010-12-14 21:15
哇，好厉害

作者: macky591 时间: 2010-12-15 09:33
看看

作者: wanggang 时间: 2010-12-15 10:10
学习一下

作者: dlyutao 时间: 2010-12-16 22:27
谢谢

作者: yori2007 时间: 2010-12-21 11:15

作者: rockroll1234 时间: 2011-3-15 23:50
xuexi

作者: cumtclmk123 时间: 2015-3-4 21:29
真厉害

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)