作者：乔山办公网日期：
返回目录：office365
操作步骤：
1、原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。
2、在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总e79fa5e98193e58685e5aeb9335表”。
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("合并汇总表").Delete
Set 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、下一步，用鼠标选择要合并的数据范围。
注意：每个工作表数据可能不一样，比如说有的是10行数据，有的是30行数据。在这里我们可以用鼠标选择任意工作表的一个较大范围，比如说A1:D100，保证比最多行数的工作表数据还多就可以，一会再删除空行。
9、点击确定按钮，待代码运行完毕后，所有的数据就都合并到了“合并汇总表”中。
注意：
1）A列的文本说明右侧的数据来自于原始数据表的哪个工作表；
2）数据之间会有一些空行，下面通过筛选删除。
10、选中全部数据区域，执行自动筛选。然后选择其中一个字段，选择“空白”和标题内容。
11、然后将筛选出来的无用行鼠标右键删除，再删除A列整列即可
1. 首先，新建一个新的Excel表格。在Excel表格中选中你要输入的单元格，单击鼠标右键，会弹出来一个选项框，在弹出的选项框里选择“设置单元格格式”。
2. 选择“数自字”这一选项框，点击“文本”后选择确定，将该单元格格式设置为“文本”。
3. 在单元格中知输入10和4，选中数字4，单击鼠标右键，再次选择“设置单元格格式”。
4. 这时，单元格格式只有“字体”这一唯一选项，在“特殊效果”一栏中，道勾选“上标”。
5. 完成后，即可看到单元格内的数字“4”已经显示为次方，10的4次方就输入好了。
请看以下文章已解答你的疑问。
“Excel”在英汉词典中的解释(来源：百度词典)：
excel
KK: []
DJ: []
vt.
1. 胜过,优于[(+in/at)]
vi.
1. 突出;胜过他人[(+in/at)]
1982年
Microsoft推出了它的第一款电子制表软件-Multiplan，并在CP/M系统上大获成功，但在MS-DOS系统上，Multiplan败给了Lotus1-2-3（一款较早的电子表格软件）。这个事件促使了Excel的诞生，正如Excel研发代号DougKlunder：做Lotus1-2-3能做的，并且做的更好。
1983年9月
比尔盖茨召集了微软最高的软件专家在西雅图的红狮宾馆召开了3天的“头脑风暴会议”。盖茨宣布此次会议的宗旨就是尽快推出世界上最高速的电子表格软件。
1985年
第一款Excel诞生，它只用于Mac系统，中文译名为“超越”。
1987年
第一款适用于Windows系统的Excel也产生了（与Windows环境直接捆绑，在Mac中的版本号为2.0）。Lotus1-2-3迟迟不能适用于Windows系统，到了1988年，Excel的销量超过了1-2-3，使得Microsoft站在了PC软件商的领先位置。这次的事件，促成了软件王国霸主的更替，Microsoft巩固了它强有力的竞争者地位，并从中找到了发展图形软件的方向。
此后大约每两年，Microsoft就会推出新的版本来扩大自身的优势，目前Excel的最新版本为11，也被称作Microsofot Office Excel2003。
早期，由于和另一家公司出售的名为Excel的软件同名，Excel曾成为了商标法的目标，经过审判，Microsoft被要求在它的正式文件和法律文档中以MicrosoftExcel来命名这个软件。但是，随着时间的过去，这个惯例也就逐渐消逝了。Excel虽然提供了大量的用户界面特性，但它仍然保留了第一款电子制表软件VisiCalc的特性：行、列组成单元格，数据、与数据相关的公式或者对其他单元格的绝对引用保存在单元格中。
Excel是第一款允许用户自定义界面的电子制表软件（包括字体、文字属性和单元格格式）。它还引进了"智能重算"的功能，当单元格数据变动时，只有与之相关的数据才会更新，而原先的制表软件只能重算全部数据或者等待下一个指令。同时，Excel还有强大的图形功能。
1993年
Excel第一次被捆绑进Microsoft Office中时，Microsoft就对Microsoft Word和Microsoft Powerpoint的界面进行了重新设计，以适应这款当时极为流行的应用程序。
从1993年，Excel就开始支持Visual Basic for Applications（VBA）.VBA是一款功能强大的工具，它使Excel形成了独立的编程环境。使用VBA和宏，可以把手工步骤自动化，VBA也允许创建窗体来获得用户输入的信息。但是，VBA的自动化功能也导致Excel成为宏病毒的攻击目标。
1995年
Excel被设计为给您所需要的工具。无论您是做一个简单的摘要、制作销售趋势图，还是执行高级分析，无论您正在做什么工作，Microsoft Excel能按照您希望的方式帮助您完成您的工作。
1997年
Excel97是Office97中一个重要程序，Excel一经问世，就被认为是当前功能强大、使用方便的电子表格软件。它可完成表格输入、统计、分析等多项工作，可生成精美直观的表格、图表。为日常生活中处理各式各样的表格提供了良好的工具。此外，因为Excel和Word同属于Office套件，所以它们在窗口组成、格式设定、编辑操作等方面有很多相似之处，因此，在学习Excel时要注意应用以前Word中已学过的知识。
2001年
利用Office XP中的电子表格程序--Microsoft Excel2002版，您可以快速创建、分析和e68a84e799bee5baa6e79fa5e98193337共享重要的数据。诸如智能标记和任务窗格的新功能简化了常见的任务。协作方面的增强则进一步精简了信息审阅过程。新增的数据恢复功能确保您不会丢失自己的劳动成果。可刷新查询功能使您可以集成来自Web及任意其他数据源的活动数据。
2003年
Excel2003使您能够通过功能强大的工具将杂乱的数据组织成有用的信息，然后分析、交流和共享所得到的结果。它能帮助您在团队中工作的更为出色，并能保护和控制对您工作的访问。另外，您还可以使用符合行业标准的扩展标记语言（XML），更方便地连接到业务程序。
2007年
1.由于在2003中显示活动单元格的内容时，编辑栏常会越位，挡到列标和工作表的内容。特别是在编辑栏下面的单元格有一个很长的公式，此时单元格内容根本看不见，也无法双击、拖动填充柄。而现在2007中以编辑栏上下箭头（如果调整编辑栏高度，则出现流动条）和折叠编辑栏按钮完全解决此问题，不再占用编辑栏下方的空间。调整编辑栏的高度，有两种方式——拖曳编辑栏底部的调整条，或双击调整条。调整编辑栏的高度时，表格也随之下移，因此表里的内容不会再被覆盖到，同时为这些操作添加了快捷键（CTRL+SHIFT+U），以便在编辑栏的单行和多行模式间快速切换。
2.2003的名称地址框是固定的，不够用来显示长名称。而2007则可以左右活动的，有水平方向调整名称框的功能。用户可以通过左右拖曳名称框的分隔符（下凹圆点），来调整宽度，使其能够适应长名称。
3.2003编辑框内的公式限制还是让人恼火的，2007有几个方面增加了改进。1、公式长度限制（字符），2003版限制：1K个字符，2007版限制：8k个字符；2、公式嵌套的层数限制，2003版限制：7层，2007版限制：64层；3、公式中参数的个数限制：2003版限制：30个，2007版限制：255个。
从5.0到9.0，Excel中都隐藏了不同的复活节彩蛋。编辑本段管理软件
目前许多软件厂商借助Excel的友好界面和强大的数据处理功能开始研究将其以更简单的方式应用到企业管理和流程控制中，比如ESSAP（Excel&SQL平台）就是很好的应用Excel和数据库软件MS SQL相结合应用到企业管理和各行各业数据处理的例子。
ESSAP是一个用于构建信息系统的设计与运行平台。其以Excel为操作界面，结合大型数据库MS SQL与工作流技术，用户只要运用自己已经掌握的Excel操作技术（不需依靠专业IT人员），就可以设计满足自己需要（管理意图）的各种信息管理系统。另外，系统设计完成并投入使用以后，并不意味着系统就从此不能改变，而是还可以根据管理的需要进行不断的优化与扩展功能，真正做到了“持续优化，因需而变”，使到你自己设计的系统永不落伍。
也许将来Excel可以渗透到日常工作中的每一个角落。
Excel 95 中的彩蛋
zd彩蛋内容：一个叫做 Hall of Tortured Souls 的游戏
开门密钥：
1)打开一个空白的工作簿。
2)选择第95行。
3)按一下Tab键到栏位B。
4)选择“说明”菜单中的回“关于Microsoft Excel”选项。
5)按住键盘上的Ctrl、Alt和Shift三个按键，然后用鼠标按“技术支答持”按键。
6)一个名为 Hall of Tortured Souls 的游戏就会出现。使用光标来移动方向。
7)若想继续搜寻Excel开发人员的图片，请将游戏中的人物转身掉头180度并走下阶梯。输入“excelkfa”后墙壁自然会消失，接着会出现一条狭窄的走道引导你走向目的。