officeba > 单独文章

---

编写“宏”让Excel主动兼并选中单位格内容

编写“宏”让Excel主动兼并选中单位格内容
　　在用Excel整顿表格数据时，但愿可以主动兼并选中区域内一切单位格的内容，然则Excel软件自带的兼并功用无法知足这个要求，应该怎样办呢？

　　我们可以编写一个“宏”来完成，它可以巧妙地保管选区中一切单位格内的数据，经过轮回赋值到一个变量中，最终再将后果输出到兼并后的单位格内。

代码如下：

Sub 兼并单位格()
\'封闭屏幕更新和正告提醒
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i%
\'轮回计算选中区域的单位格数据并将其兼并到StrTotal中
For i = 1 To Selection.Count
StrTotal = StrTotal & Selection.Cells(i)
Next
\'设置选区花样
With Selection
.MergeCells = True
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.Value = \"\'\" & StrTotal  \'在兼并数据前加 \'号
End With
\'恢复屏幕更新和正告提醒
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub



　　将上面的宏指定给一个自界说的东西栏按钮。接下来我们就可以测试一下后果了，如在几个不相邻的单位格内顺次输入分歧的数据(可所以文字、字母或数字)，最终选中一切的数据区域，单击方才自界说的按钮，就可以看到兼并的结果了。

声明：欢迎各大网站转载本站文章，还请保留一条能直接指向本站的超级链接，谢谢！

时间:2011-10-04 10:38:23,点击:65824