首页 >> 技术文章 >> Excel2007


编写“宏”让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-11-2 15:19:56,点击:0打印】【关闭

上一篇:简简单单用Excel批量复制文件名
下一篇:

OfficeBa论坛】:阅读本文时遇到了什么问题,可以到论坛进行交流!Excel专家邮件:342327115@qq.com(大家在Excel使用中遇到什么问题,可以咨询此邮箱)。

【声明】:以上文章或资料除注明为Office吧自创或编辑整理外,均为各方收集或网友推荐所得。其中摘录的内容以共享、研究为目的,不存在任何商业考虑。如有任何异议,请与本站联系,本站确认后将立即撤下。谢谢您的支持与理解!


相关评论

我要评论

查看所有评论内容

评论内容