宏:把excel中多个单元格的内容合并到一个单元格讲解学习

 时间:2020-04-09  贡献者:公司会计师

导读:excel:如何把多个单元格合并为一个单元格?,宏:把 excel 中多个 单元格的内容合并到一个单元格把 excel 中多个单元格的内容合并到一个单元格或许现在的你正为没有找到一个方便快捷的方法将 excel 中多个 单元格的内容合并到

excel:如何把多个单元格合并为一个单元格?
excel:如何把多个单元格合并为一个单元格?

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

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

用 excel 自带的功能显然是没办法轻松解决这个问题的,但是运 用 excel 提供的 VBA 宏编程功能,即可迎刃而解.闲话少说,马上开始。

一、 首先新建或打开一个 excel 文档,然后按“ALT+F11”组合键,打开 VBA 窗口,按顶部菜单“插入-模块”插入一个模块(模 块名称可以自己修改),把下面代码复制进去,如图-1 所示。

(注意:此功能只对单个文档有效,如果在其他的 excel 文档使 用此法要从新输入下面代码才可以使用):Sub 合并行单元格内容 () Application.DisplayAlerts = False Set tt = Selection '赋值选定区域 a = tt.Rows.Count '选区行数 x = tt.Row '第一个格行号 y = tt.Column '列号 s = tt.Columns.Count - 1 '列数减 1 For j = x To x + a - 1For i = 1 To s Cells(j, y) = Cells(j, y) & Cells(j, y + i)Next Range(Cells(j, y), Cells(j, y + s)).Merge '合并

Next Application.DisplayAlerts = True End Sub Sub 合并列单元格内容 () t = "" Set tt = Selection x = tt.Row '第一个格行号 y = tt.Column '列号 For Each a In Selection t = t & a.Value a.Value = "" Next Cells(x, y) = t Selection.Merge Selection.WrapText = True '自动换行 End Sub图-1

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