excel表格怎样批量合并
① 如何批量合并多个excel表格
方法/步骤
我们需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：
用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：
然后我们把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(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 Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub
4
运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。
② 怎么把100多个EXCEL文件合并成一个
可以通过更改excel代码来合并多个文件。
详细步骤：
1、新建一个文件夹。
网络-Microsoft Office Excel
③ EXCEL表格单元格如何批量合并
不用VBA是不可能实现的。
如果数据量不是超大，可以用鼠标划选A1-A3，之后点菜单栏的合并单元格，之后再选中A4-A6，按一下键盘上的F4就可以了，之后均用单击按键代替鼠标选点，也能快一些。
④ Excel表格中多个合并单元格怎么批量完成
如果后面的要合并的单元格相同，先选中已合并的单元格，点格式刷工具，然后点要合并的单元格向下拖动，直到你需要的位置。
⑤ 使用excel怎样批量将每一行的所有单元格合并
使用excel怎样批量将每一行的所有单元格合并的步骤：
1、启动Excel，打开表格。
2、打开表格发现，数据比较混乱，现在就需要先给表格排序。可以点击菜单栏的“数据”—>“排序”。
3、在打开的“排序”对话框中，“主要关键字”，“次要关键字”和“第三关键字”可以根据实际情况选择。
4、排序后，相同就在一块了，这时我们点击菜单栏的“数据”—>“分类汇总”，在汇总项选择，然后点击“确定”。
5、选定所示的区域，点击菜单栏“编辑”—>“定位”（或直接按F5或Ctrl+G打开“定位”），然后点击“定位条件”。
6、打开如下图所示的界面，选择“空值”，然后点击“确定”。
7、选中部分的空值部分就选中了，这时单击工具栏的合并单元格图标。
8、鼠标在点击下其他位置，这时我们点击菜单栏的“数据”—>“分类汇总”，在打开对话框中，点击“全部删除”来删除分类汇总项。
9、选中表格，点格式刷；接着在B列相应位置，用“格式刷”刷一下就可以的。
⑥ 如何在EXCEL中单元格批量合并数据
这个需要用到VBA
For i = 3 To Range("f65536").End(xlUp).Row '循环所有行
If Cells(i, 1) <> "" Then a = i '确定合并开始行
If Cells(i, 6) <> 0 Then
If wb = "" Then '合并F列内容到wb
wb = Cells(i, 6)
Else
wb = wb & Chr(10) & Cells(i, 6)
End If
If Cells(i + 1, 6) = 0 Then '确定合并结束行并做出合并
Range("G" & a & ":G" & i).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Cells(a, 7) = wb
wb = ""
End If
End If
Next i
⑦ excel表格怎么批量合并单元格并保留所有内容
用一个老前辈的话，你想实现这个表格效果，完全可以通过数据透视表。合并单元格是一件吃力不讨好的苦力活，一时解决了问题将来二次处理数据还是会痛不欲生。
但如果题主执意要用合并单元格，能告诉我后面有几列要做合并吗？感谢。
直接修改在这里方便查看吧。
在工作表按Alt+F11，跳出如图VBA窗口，在对应的工作表名称处双击，在右侧空白处粘贴以下代码：
Sub mMerge()
Application.DisplayAlerts = False
For Each Rng In Range("J2:J" & ActiveSheet.UsedRange.Rows.Count)
With Rng
If .MergeCells = True And .Row = .MergeArea.Row Then
For mRow = .MergeArea.Row To .MergeArea.Row + .MergeArea.Rows.Count - 1
mValue1 = mValue1 & Cells(mRow, 11) & Chr(10)
mValue2 = mValue2 & Cells(mRow, 12) & Chr(10)
Next
Range("K" & .MergeArea.Row & ":K" & .MergeArea.Row + .MergeArea.Rows.Count - 1).Merge
Range("K" & .MergeArea.Row).WrapText = True
Range("K" & .MergeArea.Row) = Left(mValue1, Len(mValue1) - 1)
mValue1 = Empty
Range("L" & .MergeArea.Row & ":L" & .MergeArea.Row + .MergeArea.Rows.Count - 1).Merge
Range("L" & .MergeArea.Row).WrapText = True
Range("L" & .MergeArea.Row) = Left(mValue2, Len(mValue2) - 1)
mValue2 = Empty
End If
End With
Next
Application.DisplayAlerts = True
End Sub
效果如图
⑧ excel怎样批量合并单元格
不同版本的Excel操作方式略有不同，但大同小异，下面以Excel2010为例。
1.打开excel2010，选中你要合并的单元格，在开始选项卡下，选择右上角的查找和选择，点击定位条件。
2.打开定位条件对话框，选择空值，然后点击确定。
3.下面要输入公式，如果要向上合并则输入A2=A1，向下合并输入A2=A3，输入以后按ctrl+enter快捷键，excel就会自动填充空白处。
4.选中数据，然后选择数据选项卡，点击分类汇总。
5.打开分类汇总对话框，由于要合并的是表头1的单元格，所以分类字段填写1，汇总方式选择求和，然后确定。
6. 把B列的内容复制到C列。
7.选中C列，点击开始选项卡，在查找和选择下面点击常量，然后按Delete键（键盘右上角）。
8.选择开始选项卡，在对齐方式中选择合并单元格。