下载文档原格式
把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用紀
].上当晡聞的谡恵用猊序时任何扛乜灾轉洪郦有!®当和正在聞的忠用猊库）-
