妙解合并居中后原数据消失

数字办公

2007年6月25日 第25期

苏洋：在Excel中进行合并及居中单元格操作时，系统只会保留选中区左上角单元格中的数据。可有时合并单元格时我想保留选中区所有单元格的数据，难道只能靠手工慢慢地录入或用公式一个一个地合并吗？请问《电脑报》的专家，有没有好的方法可以实现这一操作。

办公专家陈邓新：Excel中的“合并及居中” 单元格功能的确比较僵化，缺少人性化设置。不过可以定义一个宏过程来实现你要的功能，输入代码（代码下载地址：http://www.cpcw.com/bzsoft/）就能巧妙地统计出选区中单元格的个数，通过循环赋值将所有单元格的数据保存到一个变量中，最后再将它们输出到合并后的单元格内，其中关键代码如下：

Application.DisplayAlerts = False关闭屏幕警告提示

SelTotal = ""

For i = 1 To Selection.Count 将选区中的单元格数据合并

SelTotal = SelTotal & Selection.Cells(i).Value

.MergeCells = True 　　　　　　合并单元格

.HorizontalAlignment = xlCenter 单元格中的文本水平垂直居中

.VerticalAlignment = xlCenter

.Value = "'" & SelTotal 　　 在合并数据前加单引号

Application.DisplayAlerts = True 恢复屏幕警告提示

右击工具栏选择“自定义”命令，系统弹出“自定义”对话框，切换到“命令”选项卡，从命令“类别”中选择“宏”，将对话框右侧的“自定义按钮”拖放到系统工具栏中。右击该按钮，选择“指定宏”命令，将上述定义的过程指定给该按钮，点击“确定”按钮即可。

在几个不相邻的单元格内依次输入不同的数据（可以是汉字、字母或数字等），选中所有的数据区域，单击自定义的按钮 ，就可以看到合并后的效果了（见图），选中区的数据一个都没有少。