最新宏：把excel中多个单元格的内容合并到一个单元格

把excel 中多个单元格的内容合并到一个单元格

或许现在的你正为没有找到一个方便快捷的方法将excel 中多个单元格的内容合并到一个单元格里而烦恼，没关系，我下面介绍的这个方法可以轻松为你解决烦恼。

用excel 自带的功能显然是没办法轻松解决这个问题的，但是运

用excel 提供的VBA 宏编程功能，即可迎刃而解.

闲话少说，马上开始。

一、首先新建或打开一个exceI文档，然后按“ ALT+F11 ”组合键，

打开VBA 窗口，按顶部菜单“插入－模块” 插入一个模块 (模块名称可以自己修改) ，把下面代码复制进去，如图-1 所示。

(注意：此功能只对单个文档有效，如果在其他的exceI 文档使用此法要从新输入下面代码才可以使用) ：

Sub 合并行单元格内容() AppIication.DispIayAIerts = FaIse Set tt = SeIection ' 赋值选定区域

a = tt.Rows.Count ' 选区行数x = tt.Row ' 第一个格行号y = tt.CoIumn ' 列号s =

tt.CoIumns.Count - 1 ' 列数减1

For j = x To x + a - 1

For i = 1 To s

CeIIs(j, y) = CeIIs(j, y) & CeIIs(j, y + i)

Next

Range(CeIIs(j, y), CeIIs(j, y + s)).Merge ' 合并

Next

AppIication.DispIayAIerts = True

End Sub

Sub 合并列单元格内容()

Illi

Set tt = Selection

x = tt.Row '第一个格行号

y = tt.Column '列号

For Each a In Select ion t = t & a.Value

a.Value =""

Next

Cells(x, y) = t

Selectio n. Merge

Selection.WrapText = True '自动换行

End Sub

图-1

复制好后，关闭这个窗口，回到EXCEL,选择你要合并内容的单元格，再按AIT+F8调用程序，点执行即可！过程如下面图示:

r.~轴主尸幽上！r~胖花计绘盛放.~旦儿甘始敢唱. 1

图-2合并行单元格内容

春天来了，树

木开始长芽，

鲜花开始盛放，

鸟儿开始歌唱。

图

-3合并列单元格内容

三、输出结果如下:

1春天来了，树木开始长芽，鲜花开始盛放，鸟儿开始歌唱。

图-4

四、注意，打开文档时候如果出现下面提示，请按提示将宏安全级

别设为最低，否则合并不成功

KicruirDft Eicrrl

图-5

此捲溟可絃由以下原国与矽：

L兮安全性设的

* ”车京鬲“・为用程存百埜呂的元，I目费自&斑用* *便用UTSSJB用怎.

| as H rfl n s#is顶-然后选畀=虽空性".E si话is中单击"禹-彌将虽全is別设为禹.

2. 」当前话幻茁協肉用坷昌的任何itik实削咲ifHft用烧九前正生话幻茁应用程.审的任问也用程岸n

3 再阳T叔丈林・可早证钿3館広层■ 4果算佰在由上LK布看花柿前i正书”堆中“启是栢＜=乖韶于比!EM*换"■

*.单击*白用"捋朗第光许忠彌.

*“禹” ,的启■回ItETT汗EflRT岀踰定！f怜刑框框中!EiS掙了“禁用”.便用从下歩幕JB用紀

].上当晡聞的谡恵用猊序时任何扛乜灾轉洪郦有!®当和正在聞的忠用猊库）-