excel如何批量合并内容

Excel表格是我们每天都会接触到的，经常会遇到各种问题，前几天同事遇到这样的一个问题，就是要将左侧表格数据转换为右侧表格数据，应该怎么批量合并单元格，快速完成 *** 作呢？

1、添加辅助列

首先选中A例，右键插入一列辅助列，并填充上一样的序号1。

2、筛选表格内容

选中表头按住快捷键Ctrl+shift+L筛选数据，将B例里的户主全部筛选出来。

3、插入空白行

接着选中B列，按住快捷键Ctrl+G打开定位条件，选中可见单元格，点击确定后，再右键插入行即可。

4、合并单元格

将家庭关系的全部内容全部筛选出来，然后选中A例，按住Ctrl+G打开定位条件，选中常量点击确定，这样1就被全部选中，再点击开始选项卡下-对齐方式-合并居中，默认多次点击确定即可。

5、删除空白行

接着选中B例，Ctrl+G进入定位条件，选择空值点击确定，然后右键选择删除，在默认页面上点击整行，确定，空白行就被删除。

6、填充序号

选中表头按下Ctrl+shift+L取消筛选，选中序号列，将数字1删除，并在单元格中输入公式=COUNTA($A$1:A1)，记住要按下Ctrl+回车键填充。



方法/步骤

如下面这个表格里的文字，是多个单元格里的，我们要将其合并到一个单元格里

合并到A3单元格

方法一：

在A3单元格里输入公式=A1&B1&C1&D1&E1&F1&G1&H1&I1&J1&K1&L1

这种方法只适用合并的单元格少，内容多的

方法二：

在A3单元格里输入公式=CONCATENATE(A1,B1,C1,D1,E1,F1,G1,H1,I1,J1,K1,L1)

这种方法也只适用合并的单元格少，内容多的

方法三：

选中这些有字的单元格——复制——新建记事本打开——粘贴

再复制记事本里的文字——粘贴到A3单元格中

（注意：双击A3单元格，插入点到A3单元格里，再粘贴）

这时A3单元格中的文字出现空格

Ctrl+F(打开查找，替换窗口）

在查找里填空格，替换里不填，然后点全部替换，就OK了

若是有英文、数字、汉字，方法也是一样的。

以WPS 2019版本为例：

如需快速合并多个excel 表格，可使用WPS2019中已自带的「文档拆分合并」功能：

*** 作步骤：

1）打开其中一份「表格（Excel）」文档；

2）点击「特色应用-拆分合并-合并」；

3）点击添加需合并文件，设置合并文件需合并的页数范围即可将多个文档合并为一份。

使用excel怎样批量将每一行的所有单元格合并的步骤：

1、启动Excel，打开表格。

2、打开表格发现，数据比较混乱，现在就需要先给表格排序。可以点击菜单栏的“数据”—>“排序”。

3、在打开的“排序”对话框中，“主要关键字”，“次要关键字”和“第三关键字”可以根据实际情况选择。

4、排序后，相同就在一块了，这时我们点击菜单栏的“数据”—>“分类汇总”，在汇总项选择，然后点击“确定”。

5、选定所示的区域，点击菜单栏“编辑”—>“定位”（或直接按F5或Ctrl+G打开“定位”），然后点击“定位条件”。

6、打开如下图所示的界面，选择“空值”，然后点击“确定”。

7、选中部分的空值部分就选中了，这时单击工具栏的合并单元格图标。

8、鼠标在点击下其他位置，这时我们点击菜单栏的“数据”—>“分类汇总”，在打开对话框中，点击“全部删除”来删除分类汇总项。

9、选中表格，点格式刷；接着在B列相应位置，用“格式刷”刷一下就可以的。

神奇的格式刷怎么 *** 作？

1、首先选定需要复制的格式。

2、鼠标单击格式刷。

3、将需要更改格式的文本用格式刷刷一遍就可以啦。

4、双击格式刷即可多次复制你想要的格式。

1需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：

2用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

3然后把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

ApplicationScreenUpdating = False

MyPath = ActiveWorkbookPath

MyName = Dir(MyPath & "\" & "xls")

AWbName = ActiveWorkbookName

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = WorkbooksOpen(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1)ActiveSheet

Cells(Range("B65536")End(xlUp)Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To SheetsCount

WbSheets(G)UsedRangeCopy Cells(Range("B65536")End(xlUp)Row + 1, 1)

Next

WbN = WbN & Chr(13) & WbName

WbClose False

End With

End If

MyName = Dir

Loop

Range("B1")Select

ApplicationScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub

4运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。

以上就是关于excel如何批量合并内容全部的内容，包括:excel如何批量合并内容、怎么使excel表格里面怎么批量合并单元格内容、如何快速合并多个excel 表格等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！