excel如何将一个工作簿中的多个工作表合并到一张工作表上
此答案由T提供
原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。
在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。
按Alt+F11进入VBA代码编辑和调试界面，根据下图提示，插入一个模块。
将下述代码粘贴到模块空白处：Sub CombineSheetsCells()Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As VariantDim TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRows As LongDataRows = 1Dim TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$Dim n, in = 1i = 1Application.DisplayAlerts = FalseWorksheets("合并汇总表").DeleteSet wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))wsNewWorksheet.Name = "合并汇总表"MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")If MyFileName = "False" ThenMsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformation, "取消"ElseWorkbooks.Open Filename:=MyFileNameNum = ActiveWorkbook.Sheets.CountMyName = ActiveWorkbook.NameSet DataSource = Application.InputBox(prompt:="请选择要合并的数据区域：", Type:=8)AddressAll = DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows = Selection.Rows.CountSourceDataColumns = Selection.Columns.CountApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseFor i = 1 To NumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName = ActiveWorkbook.ActiveSheet.NameWorkbooks(ThisWorkbook.Name).ActivateActiveWorkbook.Sheets("合并汇总表").SelectActiveWorkbook.Sheets("合并汇总表").Range("A" & DataRows).Value = ActiveSheetNameActiveWorkbook.Sheets("合并汇总表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).SelectSelection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + SourceDataRowsWorkbooks(MyName).ActivateNext iApplication.ScreenUpdating = TrueApplication.EnableEvents = TrueEnd IfWorkbooks(MyName).CloseEnd Sub
在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。
点击“首页”工作表中插入的按钮，根据提示，浏览到原始数据工作簿。
用鼠标选择要合并的数据范围。注意：每个工作表数据可能不一样，比如说有的是10行数据，有的是30行数据。在这里我们可以用鼠标选择任意工作表的一个较大范围，比如说A1:D100，保证比最多行数的工作表数据还多就可以，一会再删除空行。
点击确定按钮，待代码运行完毕后，所有的数据就都合并到了“合并汇总表”中。注意：1）A列的文本说明右侧的数据来自于原始数据表的哪个工作表；2）数据之间会有一些空行，下面通过筛选删除。
选中全部数据区域，执行自动筛选。然后选择其中一个字段，选择“空白”和标题内容。
然后将筛选出来的无用行鼠标右键删除，再删除A列整列即可，完成效果如下图：
此答案由T提供
原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。
在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。
按Alt+F11进入VBA代码编辑和调试界面，根据下图提示，插入一个模块。
将下述代码粘贴到模块空白处：Sub CombineSheetsCells()Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As VariantDim TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRows As LongDataRows = 1Dim TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$Dim n, in = 1i = 1Application.DisplayAlerts = FalseWorksheets("合并汇总表").DeleteSet wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))wsNewWorksheet.Name = "合并汇总表"MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")If MyFileName = "False" ThenMsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformation, "取消"ElseWorkbooks.Open Filename:=MyFileNameNum = ActiveWorkbook.Sheets.CountMyName = ActiveWorkbook.NameSet DataSource = Application.InputBox(prompt:="请选择要合并的数据区域：", Type:=8)AddressAll = DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows = Selection.Rows.CountSourceDataColumns = Selection.Columns.CountApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseFor i = 1 To NumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName = ActiveWorkbook.ActiveSheet.NameWorkbooks(ThisWorkbook.Name).ActivateActiveWorkbook.Sheets("合并汇总表").SelectActiveWorkbook.Sheets("合并汇总表").Range("A" & DataRows).Value = ActiveSheetNameActiveWorkbook.Sheets("合并汇总表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).SelectSelection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + SourceDataRowsWorkbooks(MyName).ActivateNext iApplication.ScreenUpdating = TrueApplication.EnableEvents = TrueEnd IfWorkbooks(MyName).CloseEnd Sub
在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。
点击“首页”工作表中插入的按钮，根据提示，浏览到原始数据工作簿。
用鼠标选择要合并的数据范围。注意：每个工作表数据可能不一样，比如说有的是10行数据，有的是30行数据。在这里我们可以用鼠标选择任意工作表的一个较大范围，比如说A1:D100，保证比最多行数的工作表数据还多就可以，一会再删除空行。
点击确定按钮，待代码运行完毕后，所有的数据就都合并到了“合并汇总表”中。注意：1）A列的文本说明右侧的数据来自于原始数据表的哪个工作表；2）数据之间会有一些空行，下面通过筛选删除。
选中全部数据区域，执行自动筛选。然后选择其中一个字段，选择“空白”和标题内容。
然后将筛选出来的无用行鼠标右键删除，再删除A列整列即可，完成效果如下图：
此答案由T提供
原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。
在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。
按Alt+F11进入VBA代码编辑和调试界面，根据下图提示，插入一个模块。
将下述代码粘贴到模块空白处：Sub CombineSheetsCells()Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As VariantDim TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRows As LongDataRows = 1Dim TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$Dim n, in = 1i = 1Application.DisplayAlerts = FalseWorksheets("合并汇总表").DeleteSet wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))wsNewWorksheet.Name = "合并汇总表"MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")If MyFileName = "False" ThenMsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformation, "取消"ElseWorkbooks.Open Filename:=MyFileNameNum = ActiveWorkbook.Sheets.CountMyName = ActiveWorkbook.NameSet DataSource = Application.InputBox(prompt:="请选择要合并的数据区域：", Type:=8)AddressAll = DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows = Selection.Rows.CountSourceDataColumns = Selection.Columns.CountApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseFor i = 1 To NumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName = ActiveWorkbook.ActiveSheet.NameWorkbooks(ThisWorkbook.Name).ActivateActiveWorkbook.Sheets("合并汇总表").SelectActiveWorkbook.Sheets("合并汇总表").Range("A" & DataRows).Value = ActiveSheetNameActiveWorkbook.Sheets("合并汇总表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).SelectSelection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + SourceDataRowsWorkbooks(MyName).ActivateNext iApplication.ScreenUpdating = TrueApplication.EnableEvents = TrueEnd IfWorkbooks(MyName).CloseEnd Sub
在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。
点击“首页”工作表中插入的按钮，根据提示，浏览到原始数据工作簿。
用鼠标选择要合并的数据范围。注意：每个工作表数据可能不一样，比如说有的是10行数据，有的是30行数据。在这里我们可以用鼠标选择任意工作表的一个较大范围，比如说A1:D100，保证比最多行数的工作表数据还多就可以，一会再删除空行。
点击确定按钮，待代码运行完毕后，所有的数据就都合并到了“合并汇总表”中。注意：1）A列的文本说明右侧的数据来自于原始数据表的哪个工作表；2）数据之间会有一些空行，下面通过筛选删除。
选中全部数据区域，执行自动筛选。然后选择其中一个字段，选择“空白”和标题内容。
然后将筛选出来的无用行鼠标右键删除，再删除A列整列即可，完成效果如下图：
对“关于SQL外连接的解释”纠错
关注希赛微信
接听时间：工作日00:00-24:00（仅收市话费）
&&|&&关于希赛&&|&&工作机会&&|&&服务协议&&|&&免责声明&&|&&联系希赛&&|&&网站地图&&&&&&&&希赛网&&版权所有&&(C)&&&&&&如何将Excel中多个不同的工作表汇总成一张总表
　　多个工作表汇总　　A)创建一张汇总表，选中数量下面的单元格。　　B)点击数据&&合并计算，函数里面填求和。 　　C)在引用位置，点击带红色箭头的框框。　　D)点击A供应商这张工作表，选中参与计算的数据范围。　　E)点击添加在所有引用位置出现&A供应商!$D$2:$D$13&，然后依次对B供应商工作表，C供应商工作表进行操作。　　F)最后选中&创建指向源数据的链接&，点击确定。满城尽带红色特效——来自乔纳森的红袜子
买买买，剁手的时候到了。
今天从一个特别的手游说起，游戏名字叫《兵者》，就是“兵者，诡道也”的那个兵者。
以做慈善的名义来买，那可是很名正言顺的。
可以确定的就是红色iPhoen 7很漂亮很棒，但是说到是否是最佳购买时间，两位老朋友都有...
接下来让我们一起进入本周的威锋网每周应用推荐。
令他感到很兴奋的原因是开发者可直接在 App Store 中回复用户评论，他可以直面那些恶...
很多人都说如果白色挡板改成黑色的话，自己一定马上会入手，现在我们看看国外机友改造...
《无光之海》精美深邃的画面、神秘莫测的故事，相信一定能够为玩家营造一种全新的游戏...
对于普通人来说，要想接触那些用于建设的大型机械可能还比较困难，而且要想开好这些大...
国内团队开发的记事类应用《Pendo》本周被推荐上中国区首页新鲜 App，用类型很常见，...
《勇气默示录》是 SQUARE ENIX 面向 3DS 平台推出的一款全新 RPG 系列，也是近年来 SE...
Nebulium Holdings 本周给我们带来了新作《酒馆纷争（Tavern Brawl）》。
如果你不喜欢打打杀杀的游戏体验，那么不如在本作当中当一个不那么“正经”的海盗。
《逃离方块（Cube Escape）》是游戏开发商 LoyaltyGame 推出的一个解谜类的游戏作品，...
只能说，第三方厂商还是很会想办法赚钱的。
Smatree（小树家）A100就是一款集充电、存储收纳、保护、便携于一体的 Apple Watch 充...
AirPod Skins 由优质的胶乙烯基材质制成，它跟 AirPods 的关系有点类似于 iPhone 保护...
就是“好色”，这些颜色看起来还挺不错的。
终于不会有选择困难症了，买Apple Watch时就两款表带可选。
Rugged Combo 配件专门针对小学课堂设计，让学生可以在上课时使用 iPad。
用户可以通过 iPhone 和 Apple Watch 上的配套 Polar 免费健身应用访问实时的心率数据...
想设计一个 HomeKit 完美的家，怎少得了一款支持 HomeKit 的安全监控摄像头？
excel表格里面如何一次性把多个sheet都转换成pdf在一个文件中，试了很多方法都不行。
注册时间 最后登录
在线时间440 小时 UID
主题帖子人气
白苹果, 积分 885, 距离下一级还需 615 积分
系统：10.9.2
软件：ms office
要求：比如我一个excel文件里面有5-6个sheet页面，我想把每个页面都转换成pdf文件，然后放到一个文件中。
以前在win下面，就一次性选中需要转换的页面，然后保存为pdf即可以自动转换并合并了
但是在mac下面选中多个sheet后，只能转换最后一个页面，要么就是每个页面转换pdf后单独存在，不会自动合并成一个文件。
注册时间 最后登录
在线时间10140 小时 UID
帖子 精华10
主题帖子人气
Think Different
打印那里可以保存成PDF，可以在那里打印全部sheet么？我没试过，猜想而已
注册时间 最后登录
在线时间440 小时 UID
主题帖子人气
打印那里可以保存成PDF，可以在那里打印全部sheet么？我没试过，猜想而已
打印那里可以，但是每个页面都单独保存为一个文件，我需要都合并到一个pdf里面。
注册时间 最后登录
在线时间10140 小时 UID
帖子 精华10
主题帖子人气
Think Different
打印那里可以，但是每个页面都单独保存为一个文件，我需要都合并到一个pdf里面。 ...
然后用预览打开，拖到一起保存
注册时间 最后登录
在线时间440 小时 UID
主题帖子人气
然后用预览打开，拖到一起保存
这个可行的，但是效率都大大降低了，这是我日常工作很重要的一个内容，每天处理N多文档的
注册时间 最后登录
在线时间10140 小时 UID
帖子 精华10
主题帖子人气
Think Different
这个可行的，但是效率都大大降低了，这是我日常工作很重要的一个内容，每天处理N多文档的 ...
自己做个Applescript，还可以用Hazel触发
注册时间 最后登录
在线时间440 小时 UID
主题帖子人气
自己做个Applescript，还可以用Hazel触发
这个。。。这个。。。
注册时间 最后登录
在线时间10140 小时 UID
帖子 精华10
主题帖子人气
Think Different
这个。。。这个。。。
或者你搜索下合并PDF，我记得见过有人共享脚本或者软件的
威锋旗下产品
Hi~我是威威！
沪公网安备 29号　|　沪ICP备号-1
新三板上市公司威锋科技（836555）
增值电信业务经营许可证：
Powered by Discuz!}