编写“宏”让Excel自动合并选中单元格内容

2016-02-19 21:28 31 1 收藏

只要你有一台电脑或者手机,都能关注图老师为大家精心推荐的编写“宏”让Excel自动合并选中单元格内容,手机电脑控们准备好了吗?一起看过来吧!

【 tulaoshi.com - Excel教程 】

在用Excel整理表格数据时,希望能够自动合并选中区域内所有单元格的内容,但是Excel软件自带的合并功能无法满足这个要求,应该怎么办呢?

我们可以编写一个宏来实现,它可以巧妙地保存选区中所有单元格内的数据,通过循环赋值到一个变量中,最后再将结果输出到合并后的单元格内。

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com)

代码如下:

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 "在合并数据前加 "号

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com)

End With

"恢复屏幕更新和警告提示

Application.DisplayAlerts = True

Application.ScreenUpdating = True

End Sub

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

来源:http://www.tulaoshi.com/n/20160219/1626254.html

延伸阅读
标签: 电脑入门
现象重现步骤如下: 第一步:在A1:C4区域分别输入数字。实际区域可自己选定,数字也可根据自己的喜好来输。 第二步:选中A1:A4区域,单击开始标签对齐方式功能区中的合并居中命令按钮,在弹出的对话框中单击确定按钮完成单元格的合并。 上面两步是一个正常的单元格合并步骤,没有任何问题。最终效果为A1:A4区域合并为一个单元格,并且...
标签: 电脑入门
①单击菜单栏--视图--宏--查看宏。 ②弹出宏的界面,输入宏的名称,这里为了便于记忆,我们命名为向左移动一列,然后点击创建按钮。 ③在新出现的界面中,输入代码,也就是程序语言,我已经写好了,大家直接复制即可。 Application.ScreenUpdating = False x = Selection.Column If x = 1 Then Columns(x).Cut Columns(x - 1).Ins...
标签: 电脑入门
合并单元格很简单,只需要选取要合并的多个单元格,点合并就可以把单元格合并成一个了。如下图所示。 excel2007和excel2010用户可以在功能区点合并后居中 快捷键是什么。回答是atl+m,但是在使用时却没有效果,是怎么回事呢? 原因是,需要把合并单元格命令的图标显示形式转换一下.即转换成图形和文本同时显示.可以选取相同数量的单元格-...
标签: 电脑入门
例如:A1:A10里全是文本,现在要将它们合并到一个单元格里,传统的做法是:一个个粘上,或者重新输入一次。 这两种做法都很让人头疼,如果不是10个单元格,而是100个单元格的内容要合并,那那那 在 Excel里,有些名词和作用之间似乎关联不大,比如两端对齐(注:这是2007和2010版的专用名称,在2003版里同样功能的叫作内容重排),更有意思的...
横向合并单元格的方法 1.表格内的数字是随便打的,在这里主要是为了给大家演示效果。表格横排从A-D,竖排1-5,把鼠标移到A1单元格一直选到D1。 2.找到我图片上所画出来的红圈,将鼠标移到上面可以看到合并及居中五个字,点击。 3.弹出一个对话框,在这里我们点击确定,在回到EXCEL文件中就能看到这四个单元格合为一体了...

经验教程

834

收藏

13
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部