excel如何将一个工作簿中的多个工作表合并到一张工作表上

如何将一个EXCEL中的多个SHEET中内容合并到一个SHEET中~

5分钟学会在Excel中如何把多个工作表合并成一个表 N常用的技能

5分钟学会在Excel中如何把多个工作表合并成一个表 N常用的技能

1. 原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据；

2. 在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”；

3. 按Alt+F11进入VBA代码编辑和调试界面；

4. 根据下图提示，插入一个模块；

5. 将下述代码粘贴到模块空白处：

   Sub CombineSheetsCells()

   Dim wsNewWorksheet As Worksheet

   Dim cel As Range

   Dim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As Variant

   Dim TitleRow, TitleColumn As Range

   Dim Num As Integer

   Dim DataRows As Long

   DataRows = 1

   Dim TitleArr()

   Dim Choice

   Dim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$

   Dim n, i

   n = 1

   i = 1

   Application.DisplayAlerts = False

   Worksheets("合并汇总表").

   DeleteSet wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))

   wsNewWorksheet.Name = "合并汇总表"

   MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")

   If MyFileName = "False" Then

   MsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformation, "取消"

   Else

   Workbooks.Open Filename:=MyFileName

   Num = ActiveWorkbook.Sheets.Count

   MyName = ActiveWorkbook.Name

   Set DataSource = Application.InputBox(prompt:="请选择要合并的数据区域：", Type:=8)

   AddressAll = DataSource.Address

   ActiveWorkbook.ActiveSheet.Range(AddressAll).Select

   SourceDataRows = Selection.Rows.Count

   SourceDataColumns = Selection.Columns.Count

   Application.ScreenUpdating = False

   Application.EnableEvents = False

   For i = 1 To Num

   ActiveWorkbook.Sheets(i).Activate

   ActiveWorkbook.Sheets(i).Range(AddressAll).Select

   Selection.Copy

   ActiveSheetName = ActiveWorkbook.ActiveSheet.Name

   Workbooks(ThisWorkbook.Name).Activate

   ActiveWorkbook.Sheets("合并汇总表").Select

   ActiveWorkbook.Sheets("合并汇总表").Range("A" & DataRows).Value = ActiveSheetName

   ActiveWorkbook.Sheets("合并汇总表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).Select

   Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone,

   SkipBlanks:=False, Transpose:=False

   Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _

   False, Transpose:=False

   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False

   DataRows = DataRows + SourceDataRows

   Workbooks(MyName).Activate

   Next i

   Application.ScreenUpdating = True

   Application.EnableEvents = True

   End If

   Workbooks(MyName).Close

   End Sub

6. 在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称；

7. 点击“首页”工作表中插入的按钮，根据提示，浏览到原始数据工作簿；

8. 下一步，用鼠标选择要合并的数据范围；

9. 点击确定按钮，待代码运行完毕后，所有的数据就都合并到了“合并汇总表”中；

10. 选中全部数据区域，执行自动筛选。然后选择其中一个字段，选择“空白”和标题内容；

11. 然后将筛选出来的无用行鼠标右键删除，再删除A列整列即可。

打开你的工作簿 新建一个工作表 在这个工作表的标签上右键 查看代码 你把下面的代码复制到里边去，然后 上面有个运行 运行子程序就可以了，代码如下，如果 出现问题你可以尝试工具 宏 宏安全性里把那个降低为中或者低再试试

Sub 合并当前工作簿下的所有工作表()
Application.ScreenUpdating = False
For j = 1 To Sheets.Count
If Sheets(j).Name <> ActiveSheet.Name Then
X = Range("A65536").End(xlUp).Row + 1
Sheets(j).UsedRange.Copy Cells(X, 1)
End If
Next
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"
End Sub

如何将一张工作表拆分成多个工作表？

这个很难,需要用到VBA编程,如果各表格的格式一样,建议你复制粘贴.

---

武城县14774374464： 怎么拆分一个excel工作簿中的多个工作表 - ？
晨袁二十： Excel工作簿中含有多个工作表,可以通过Excel本身的功能来把工作表分开,具体方法如下: 所需工具: Microsoft Office Excel 2007电脑 详细步骤: 1、首先打开Excel工作簿,可以看到如下图所示的三个工作表. 2、选择“案例1”工作表,右击鼠标,选择“移动或者复制工作表”如图所示: 3、选择之后,出来如下图的界面,勾选“建立副本”,在工作簿需要选择新工作簿如图: 4、点击确定,即可出来新的工作表.如图所示: 5、然后在把这个新建的工作簿另存在电脑,即可完成.

武城县14774374464： excel如何一次性将一个工作表复制成多个 - ？
晨袁二十： excel一次性将一个工作表复制成多个的具体步骤如下: 我们需要准备的材料分别是:电脑、excel表格. 1、首先我们打开需要编辑的excel表格,选中要复制的数据进行复制. 2、然后我们点击sheet5,再按住键盘的shift,不要放手,然后点击shee8. 3、然后我们在表格中按ctrl+v进行粘贴即可.

武城县14774374464： 如何合并单个excel表中的多个工作表 - ？
晨袁二十： 工具:office excel 步骤:1、打开office excel,在最前页新建一个工作表.2、“右键”,找到“查看代码”,然后看到宏计算界面.3、代码如下:Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To ...

武城县14774374464： excel如何将一个工作簿中的多个工作表合并到一张工作表上 - ？
晨袁二十： 比较合并文档

武城县14774374464： excel如何将一个工作簿中的多个工作表合并到一张工作表上？
晨袁二十： 打开你的工作簿 新建一个工作表 在这个工作表的标签上右键 查看代码 你把下面的代码复制到里边去,然后 上面有个运行 运行子程序就可以了,代码如下,如果 出现问题你可以尝试工具 宏 宏安全性里把那个降低为中或者低再试试 Sub 合并当...

武城县14774374464： 怎样合并EXCEL一个工作簿中的多个工作表,工作表的格式相同,只是数据不同,每张表都比较大有六万行左右. - ？
晨袁二十： 简单的说就是:用ctrl+A,ctrl+C与ctrl+V. (但是用的技巧一定要注意) 如下: 首先确保你每个工作表的格式相似.(已满足) 再确保按下ctrl+A时,你的光标停留在数据行内.(这样ctrl+A之后选中数据行) 再确保进入另一个表时,按下ctrl+V之前,你的光标在此表的最后一行的第一个单元格处,这很重要. 此法适用于表的数量不多,但表中数据行较多的情况. 至于如何将光标定位于最后,直接将滚动条拖动到底端就ok了.大概这要花费您1秒钟时间吧.

武城县14774374464： 如何在一个excel表格工作簿中一次性创建多个工作表 - ？
晨袁二十： 如你想大批量建的话,可以将工具/选项/常规/,新建工作簿的工作表数这里调成你要的数目,最多可以把这个数值修改为255个.关闭后重新再打开新的EXCEL就可以看到效果. 如果还觉得不够,可以在新建工作表后右键工作表标签-插入-工作表,之后按住F4键不放,可以一直插入新的SHEET. 注:一个EXCEL工作薄里的工作表的数量受你的机子的内存大小所限制,也可以这么说:如果你的内存有足够大,可以放下无数个SHEET

武城县14774374464： 如何将多个excel表合并到一个工作簿 - ？
晨袁二十： 可以利用VBA快速合并单个excel工作簿中的多个工作表(sheet) 软件版本:Office2007 方法如下:1.当前工作簿中有多个工作表,结构都一样如下所示,当里面的数据不一样,将它们全部合并到当前工作表中:2.Alt+F11,打开宏界面,输入如...

武城县14774374464： 多个excel中的工作簿怎么快速的 - ？
晨袁二十： 要在Excel工作簿中一次性创建多个指定名称的工作表,可以使用如下方法. 工具:Office2013 方法如下: 首先,将工作表名导入到Excel工作簿中任意一工作表一列中然后选择此列中的一个单元格,创建数据透视表,如下所示:将工作表名拖到筛选器中:然后在分析选项卡中的选项中,点击“显示报表筛选页”,在新对话框中点击确定:这样,就创建了以此列单元格内容为名的工作表,如下所示:最后,选择全部新建工作表,选中数据透视表部分,点击开始中的清除,全部清除,就OK了. 注意实现:1.此列中的第一个单元格不会参与生成新工作表;2.此列数据中不能有重复数据,否则只会创建一个工作表

武城县14774374464： 如何在一个工作簿中快速管理多个表?如何在一个工作簿中快速管理多个 ？
晨袁二十： 有两个方法可以在工作薄中选择工作表,快捷键ctrl+pgup(或pgup),选择相临的工作表.或者在左下角箭头上点击右键,选择需要的工作表即可.