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

《宏：把excel中多个单元格的内容合并到一个单元格》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、把excel中多个单元格的内容合并到一个单元格或许现在的你正为没有找到一个方便快捷的方法将excel中多个单元格的内容合并到一个单元格里而烦恼，没关系，我下面介绍的这个方法可以轻松为你解决烦恼。用excel自带的功能显然是没办法轻松解决这个问题的，但是运用excel提供的VBA宏编程功能，即可迎刃而解.闲话少说，马上开始。一、首先新建或打开一个excel文档，然后按“ALT+F11”组合键，打开VBA窗口，按顶部菜单“插入－模块”插入一个模块（模块名称可以自己修改），把下面代码复制进去，如图-1所示。（注意：此功能只对单个文档有效，如果在其他的exce

2、l文档使用此法要从新输入下面代码才可以使用）：Sub合并行单元格内容()Application.DisplayAlerts=FalseSettt=Selection'赋值选定区域a=tt.Rows.Count'选区行数x=tt.Row'第一个格行号y=tt.Column'列号s=tt.Columns.Count-1'列数减1Forj=xTox+a-1Fori=1TosCells(j,y)=Cells(j,y)&Cells(j,y+i)NextRange(Cells(j,y),Cells(j,y+s)).Merge'合并NextApplication.D

3、isplayAlerts=TrueEndSubSub合并列单元格内容()t=""Settt=Selectionx=tt.Row'第一个格行号y=tt.Column'列号ForEachaInSelectiont=t&a.Valuea.Value=""NextCells(x,y)=tSelection.MergeSelection.WrapText=True'自动换行EndSub图-1一、复制好后,关闭这个窗口,回到EXCEL,选择你要合并内容的单元格，再按AIT+F8调用程序,点执行即可!过程如下面图示：图-2合并行单元格内容图-3合并列单元格内容一、输

4、出结果如下：图-4二、注意，打开文档时候如果出现下面提示，请按提示将宏安全级别设为最低，否则合并不成功。图-5