下载本文档
版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领
文档简介
1、【精品文档】如有侵权，请联系网站删除，仅供学习与交流宏：把excel中多个单元格的内容合并到一个单元格.精品文档.把excel中多个单元格的内容合并到一个单元格或许现在的你正为没有找到一个方便快捷的方法将excel中多个单元格的内容合并到一个单元格里而烦恼，没关系，我下面介绍的这个方法可以轻松为你解决烦恼。用excel自带的功能显然是没办法轻松解决这个问题的，但是运用excel提供的VBA宏编程功能，即可迎刃而解.闲话少说，马上开始。一、 首先新建或打开一个excel文档，然后按“ALT+F11”组合键，打开VBA窗口，按顶部菜单“插入模块”插入一个模块（模块名称可以自己修改），把下面代码复制
2、进去，如图-1所示。（注意：此功能只对单个文档有效，如果在其他的excel文档使用此法要从新输入下面代码才可以使用）：Sub 合并行单元格内容 ()Application.DisplayAlerts = FalseSet tt = Selection '赋值选定区域a = tt.Rows.Count '选区行数x = tt.Row '第一个格行号y = tt.Column '列号s = tt.Columns.Count - 1 '列数减1For j = x To x + a - 1 For i = 1 To s Cells(j, y) = Cells(j
3、, y) & Cells(j, y + i) Next Range(Cells(j, y), Cells(j, y + s).Merge '合并NextApplication.DisplayAlerts = TrueEnd SubSub 合并列单元格内容 ()t = ""Set tt = Selectionx = tt.Row '第一个格行号y = tt.Column '列号For Each a In Selectiont = t & a.Valuea.Value = ""NextCells(x, y) = tSelection.MergeSelection.WrapText = True '自动换行End Sub图-1二、 复制好后,关闭这个窗口,回到EXCEL,选择你要合并内容的单元格，再按AIT+F8调用程序,点执行即可!过程如下面图示：图-2合并行单元格内容图-3合并列单元格内容三、 输出
温馨提示
- 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
评论
0/150
提交评论