教师：选中区域 合并数据

高手坐镇

2011年8月22日 第33期

题目难度：★★★★

读者求助：董师傅，我希望在合并单元格时，能自动合并选中区域内所有单元格的数据（学生信息），这个要求可以实现吗？

董师傅：你的这个要求，系统自带的合并功能无法满足。试试下面的这个宏吧，它巧妙地保存了选区中所有单元格内的数据，通过循环赋值到一个变量中，最后再将结果输出到合并后的单元格内。关键代码如下（完整代码下载地址：http://www.icpcw.com/bzsoft）：

'循环统计选中区域的单元格数据并将其合并到StrTotal中

For i = 1 To Selection.Count

StrTotal = StrTotal & Selection.Cells（i）

Next

'设置选区格式

With Selection

.MergeCells = True

.Value = "'" & StrTotal '在合并数据前加 '号

End With

将上面的宏指定给一个自定义的工具栏按钮。接下来我们就可以测试一下结果了，如在几个不相邻的单元格内依次输入不同的数据（可以是文字、字母或数字），最后选中所有的数据区域，单击刚才自定义的按钮，就可以看到如图所示的结果了。