EXCEL内容很少文件却很大

EXCEL内容很少文件却很大

2008-04-21 15:35:16| 分类：OFFICE|举报|字号订阅

EXCEL文件的内容很少，却打开时间过长，解决方法

打开文档：

1、ctrl+END，定位到最后一个“使用过”的单元格。

删除这个单元格之上的空行和左侧的空列（注意：这里是“删除行”、“删除列”，而不仅仅是清除单元格内容）。

2、点选工具栏上【编辑】－》【定位】－》定位条件选“对象”－》按【确定】－》会发现很多没有用的隐含对象，按一下键盘上的delete键删除它。

往往过大的excel文件都是因为存在这些隐含对象才会变的非常大。而这些隐含对象的来源就是一些程序输出的Excel文件所造成的，就是说你不是通过微软的excel程序来建立的excel文档。清除对象后可以问题解决。

文件就会变小。

如何将多个Excel工作簿合并到一个新的工作表的发法

有多个独立的excel工作簿文件需要合并到一个新的工作簿中，保留原来excel工作簿中各个excel工作表名称和结构。如果量小，可以采用打开一个个复制的方法。若有100多份excel 文件要合并到一个excel工作簿，这样就需要用批量处理多个工作簿的合并（PS：不是工作表）。 1、将需要合并的excel工作簿文件放置在一个文件夹中。 2、在该文件夹中，新建立一个新的excel工作簿文件。 3、打开新建立的excel工作簿文件，将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。 4、在弹出的代码编辑窗口中，输入代码。 5、在代码窗口中，粘贴下列代码： 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 = https://www.wendangku.net/doc/ac8771412.html, Num = 0 Do While MyName <>"" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath &"\"& MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next WbN = WbN & Chr(13) & https://www.wendangku.net/doc/ac8771412.html, Wb.Close False End With End If MyName = Dir Loop Range("A1").Select Application.ScreenUpdating = True MsgBox "共合并了"& Num &"个工作薄下的全部工作表。如下："& Chr(13) & WbN, vbInformation, "提示" End Sub

文件误删、工作表小技巧

一、误删资料恢复 一不小心，删错了，还把回收站清空了，咋办啊？ 只要三步，你就能找回你删掉并清空回收站的东西 步骤： 1、单击“开始——运行，然后输入regedit （打开注册表） 2、依次展开：HEKEY——LOCAL——MACHIME/SOFTWARE/microsoft/WINDOWS/ CURRENTVERSION/EXPLORER/DESKTOP/NAMESPACE 在左边空白外点击“新建” ，选择：“主键”，把它命名为“645FFO40——5081——101B——9F08——00AA002F954E” 再把右边的“默认”的主键的键值设为“回收站”，然后退出注册表。就OK啦。 3、要重启计算机。

只要机器没有运行过磁盘整理。系统完好.任何时候的文件都可以找回来。 也许你已经在Excel中完成过上百张财务报表，也许你已利用Excel 函数实现过上千次的复杂运算，也许你认为Excel也不过如此，甚至了无新意。但我们平日里无数次重复的得心应手的使用方法只不过是Excel全部技巧的百分之一。本专题从Excel中的一些鲜为人知的技巧入手，领略一下关于Excel的别样风情。 一、让不同类型数据用不同颜色显示 在工资表中，如果想让大于等于2000元的工资总额以“红色”显示，大于等于1500元的工资总额以“蓝色”显示，低于1000元的工资总额以“棕色”显示，其它以“黑色”显示，我们可以这样设臵。 1.打开“工资表”工作簿，选中“工资总额”所在列，执行“格式→条件格式”命令，打开“条件格式”对话框。单击第二个方框右侧的下拉按钮，选中“大于或等于”选项，在后面的方框中输入数值“2000”。单击“格式”按钮，打开“单元格格式”对话框，将“字体”的“颜色”设臵为“红色”。 2.按“添加”按钮，并仿照上面的操作设臵好其它条件(大于等于1500，字体设臵为“蓝色”；小于1000，字体设臵为“棕色”)。 3.设臵完成后，按下“确定”按钮。 看看工资表吧，工资总额的数据是不是按你的要求以不同颜色

如何将多个Excel工作簿合并成一个新的工作簿

如何将多个E x c e l工作簿合并成一个新的工作 簿 集团公司文件内部编码：（TTT-UUTT-MMYB-URTTY-ITTLTY-

如何将多个Excel工作簿合并成一个新的工作簿 有多个独立的excel工作簿文件需要合并到一个新的工作簿中，保留原来excel工作簿中各个excel工作表名称和结构。如果量小，可以采用打开一个个复制的方法。若有100多份excel文件要合并到一个excel工作簿，这样就需要用批量处理多个工作簿的合并（PS：不是工作表）。 1、将需要合并的excel工作簿文件放置在一个文件夹中。 2、在该文件夹中，新建立一个新的excel工作簿文件。 3、打开新建立的excel工作簿文件，将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。 4、在弹出的代码编辑窗口中，输入代码。 5、在代码窗口中，粘贴下列代码： Sub合并工作薄() DimFilesToOpen DimxAsInteger OnErrorGoToErrHandler Application.ScreenUpdating=False FilesToOpen=Application.GetOpenFilename_ (FileFilter:="MicroSoftExcel文件(*.xls),*.xls",_ MultiSelect:=True,Title:="要合并的文件") IfTypeName(FilesToOpen)="Boolean"Then MsgBox"没有选中文件"

GoToExitHandler EndIf x=1 Whilex<=UBound(FilesToOpen) Workbooks.OpenFilename:=FilesToOpen(x) x=x+1 Wend ExitHandler: Application.ScreenUpdating=True ExitSub ErrHandler: MsgBoxErr.Description ResumeExitHandler EndSub 6、点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿，可以看到下方已经将之前工作簿中的工作表都复制到了这一新建工作簿中。

如何恢复已删除的文件

怎么找回回收站里已经删除的文件？用FinalData数据恢复。把回收站清空也没问题 先到【这里】下载FinalData（口碑很好的一个下载网站，没病毒放心，选那个【河南网通下载】速度比较快），下载后解压文件夹，打开文件夹，双击文件夹中的“FinalData.exe”，然后弹出一个注册框，公司姓名随便填，那个“注册码”要从“keygen注册机.exe”文件中获取（要是不会获取就复制后面的注册码，注册码1：NTC85345-1273-003702918671 注册码2：NTC72813-3262-019543163345 注册码3：NTC69815-3757-004417275739），注册完后，然后开始下面的步骤： 1、首先点最左边那个“文件夹”图标，会弹出一个“选择驱动器”窗口，选择要恢复数据的硬盘，就是删除的文件所在的那个硬盘，比如我的G盘。你应该知道在哪个硬盘吧？别说忘记了，要是忘记了，就每个盘都扫描吧。

2、选择G盘后，然后点“确定”，出现一个“正在扫描根目录”窗口，扫描完后弹出一个“选择要搜索的簇范围”窗口，如果你记得删除的文件大小MB范围，就相应的拖动“结束”滑动条，确定搜索文件容量的范围，这样可以减少扫描的时间（我是这么理解的，呵呵，实在不行就默认不做修改），最后点确定，弹出一个“簇扫描”窗口，慢慢等着扫描结束吧，呵呵，扫描时间很长的，取决于你的电脑处理速度和以前在这个盘里删除的文件多少。

3、扫描结束，被删除的文件将会出现在右边的窗口中（左边窗口不用管它），选中要恢复的文件，点右键——“恢复”，然后弹出一个“选择要保存的文件夹”窗口，选择好要保存的路径（比如我的E盘），其他一切都默认，然后点“保存”，保存后这样误删的文件就恢复了，恢复的文件将出现在E盘里。

Word、Excel文档误删内容后保存,如何恢复或找到删除前的

Word、Excel文档误删内容后保存，如何恢复或找到删除前的 Word文档被别人误删内容后进行了保存，如何恢复或找到删除前的文件？ 首先打开前一晚文档所在的文件夹，工具--文件夹选项--查看，在“隐藏文件和文件夹”这一栏里，选中“显示所有文件和文件夹”（最好也把上一栏“隐藏受保护的操作系统文件（推荐）”前的对号也去掉），可以看到出现了好多有“~$”字符的文档，你可以逐个查找，就能找到你前一晚上的word文档（前提是没有用360或优化大师清理系统） 打开以前打的文件（lw2.doc）做修改，修改中不断手动保存，后来保存的时候跳出什么内存还是什么东西不足，然后跳出另存为的对话框，他默认的文件名是 ~$lw2.doc.tmp,我就改称lw0226.doc，然后就保存了，然后我word就死掉了，然后我ctrl+alt+delete强制关掉了word，然后再从最近的文件打开，就显示文件错误还是找不到了，然后我看保存的文件夹只有~$lw2.doc，而我修改的文件是lw2.doc，没有了，我打开~$lw2.doc，word说文件损坏。然后我搜索整个电脑也没有lw2.doc和 lw0226.doc，也没有带有类似名称的文件。我去了word默认的自动保存的文件夹下面看，把所有.asd和.tmp后缀改称doc也没有找到，其中有部分改成doc说程序不支持，打不开。 电脑里面也没有找到c:\windows\temp文件夹 请问要怎么才能把文件找回来，非常重要 另外，1。文件不是被删除的，是保存之后自动不见的 2。我电脑设置是显示所有文件，不存在被隐藏掉找不到的可能 3。电脑中毒的可能性也是微乎其微，请54这种可能性 4。文件夹下面就少掉这一个文件 5。不用贴那段很长的关于“打开并修复”的文章了，没有用，而且我文件都找不到了，没有文件好修复 6。不存在换了word版本不兼容的问题，我一直用的是2007还是2006的版本，其间没有变过 Windows系统和许多软件在工作时都会产生临时文件，这些临时文件大都保存在Windows临时文件夹中。然而，Word却并不把其运行时的临时文件存放在Windows 临时文件夹中，而是存放在自己指定的文件夹中。比如，在WindowsXP中，Word指定的默认临时文件夹是“C押＼DocumentsandSettings＼用户名＼ApplicationData＼Microsoft＼Word”文件夹。如果你不知道对于你的系统而言，Word临时文件夹的位置，可用下述方法获取： 1．在Word“工具”菜单中，单击“选项”命令。 2．单击“文件位置”选项卡，“…自动恢复?文件”后的路径即为Word的临时文件夹。

【实务操作Excel】跨表、跨工作簿合并之合并多个工作表

多个工作表的合并及动态更新 之利用Excel数据新建查询（Power Query）功能 当今信息化“大数据”时代，数据汇总分析已经成为财务、税务、审计人员必不可少的一项技能。作为一线审计人员，经常与数据打交道，小编更是有切身体会，各种Excel函数、并表、透视等更是家常便饭手到擒来的事情。Excel操作技能慢慢成为每一个财税人员的看家本领，基础技能，小编后续在解码财税政策实务原理的同时，将会在【工具】菜单选项模块更新一系列Excel操作小技巧，相信能够给财税工作领域的小伙伴们带来实务工作上的便利，为您的职业发展助一臂之力。今天小编打算写一篇关于跨表或跨工作簿甚至跨文件夹合并的问题，这项“神技能”可以说是财税人员很少去运用的技能，但一旦掌握，您将受益终身。更多工具搜索：爱问财税

一、跨表合并解决的问题 财务部门作为公司数据记录、归集、处理中心，是企业管理运营的核心，成本费用的列支、收入现金的记录，采购端的支出、销售端的收入，公司合并、分立、上市、清算…等等，每项业务都需要在财务、税务部门体现出来。当公司规模不大时，可以手工简单处理，靠单笔查询或脑袋记忆就能解决，但一旦公司规模扩张，尤其多元化业务发展，企业的财务或税务人员势必面临着数据归集、处理、分析的难题。 今天所讲的跨表合并主要解决财务部门在面临不同部门提交的数据、不同日期、月份、年度的数据，或者不同公司、行业的报表数据等，各项数据分散在不同的工作表、工作簿甚至文件夹中，这种情况该如何解决入如何能运用Excel的操作技巧达到快速合并的效果，可以留给更多分析、报告的时间。 二、跨表合并解决的方法 跨表合并解决的方法其实有很多种，包括数据新建查询（Power Query）、方方格子、Excel易用宝、慧办公软件、VBA函数等，那么作为财税人员，我们应该学习哪种技能既能解决问题又比较容易上手呢？那么我们先分析下这些工具具体应用场景：

excel表格被覆盖了怎么恢复

竭诚为您提供优质文档/双击可除excel表格被覆盖了怎么恢复 篇一：数据恢复小技巧：如何恢复误删文件之excel表格 数据恢复小技巧如何恢复误删文件之excel表格 摘要：excel表格是众多文案工具中最重要的制作数据表格的工具之一，其中囊括的数据资料数量极多，却显得有条不紊，分类细致。除了能够囊括数据资料外，同样适用于文本资料及图片资料等，也能插入网址链接。如此神奇的excel表格自然受到了许多办公一族的欢迎，它为办公一族的工作带来了莫大的方便。然而，如此强大的数据容量也注定了一旦它被误删除，就会带来不小的麻烦。重新制作一个乃至几个对比的数据表格是需要花费极多的时间的，因此，掌握excel表格的数据恢复技巧显得十分重要。 一、如何避免excel表格丢失 鉴于excel表格囊括的数据量之大，以及丢失excel表格造成的偌大影响，学会保护好excel是极为必要的。不论是在表格完成制作前还是完成制作后，建议从细节上保护好excel表格。具体方法有以下几种（但不限于）：

1.在表格制作过程中及时保存。 对于每一步的数据输入来说都是需要耗费一定的时间的，因此，未防患于未然，也为意外情况发生时恢复的工作效率，建议你在制作excel表格过程中对每一步或每几步进行保存，这样，即便是中途计算机发生故障，或被强制断电等，也不必忧愁所做的数据全部因未保存而丢失。 2.在表格制作过程中不进行扫描杀毒等。 如果一方面制作excel表格，另一方面进行扫描杀毒，一来可能会影响计算机运行效率不说，二来在扫描杀毒过程完成后，计算机可能会自动重新启动，或提示你进行重新启动，而如果你刚好稍微不注意点了“是”，那么，还在制作中的表格就会离你而去了。当然，如果践行了第一种方法，也许后果会小一点。 3.及时备份。 当excel表格制作完成时，除了点击保存之外，还应做好备份工作。相应的备份工作可以同样选用excel表格模式存储在不同位置上，或者使用其他文档模式进行相应的转换备份。 4.不删除原资料。 当把所有的数据输入到excel表格后，或将相应图片插入其中后，先不删除所有的原资料。等到excel表格完成了它所有的价值，再考虑删除不必要的原文件也不迟。

CAD删除文件如何恢复

删除文件,删除硬盘分区,要恢复,怎么办?2008-11-20 20:54在你进行误删除以后，只要你没有向删除文件的分区写入文件，就还有机会将误删除的文件恢复。不过不敢保证全部恢复。现在恢复数据的软件较多，比如：EasyRecoveryPro、FinalDataEnterprise20等，这里我推荐使用EasyRecoveryPro这款软件。同时我将介绍在WINDOWS和DOS两种情况下的数据恢复步骤。希望对你有所帮助。 在日常使用电脑的过程中，每个人都可能遇到过误删除数据、误格式化硬盘分区等比较麻烦的情况，甚至还可能出现误删除硬盘分区的情况。那么一旦出现这些情况之后，该如何恢复那些误删除的数据呢？ 在Windows中恢复数据 如果用户只是在操作时误删除了一些文件，例如Word文件、文本文件等等，或者只是误格式化了非系统分区，而Windows还运行正常的话，那么可以通过EasyRecoveryPro 这款软件来恢复数据。 提示：安装该软件时需要注意：如果需要找回C盘上误删的文件，则最好不要将EasyRecoveryPro安装到C盘，否则会影响C盘的文件系统，对数据恢复不利。 1.恢复误删除的文件 启动EasyRecoveryPro6.0之后，点击主界面左边的“DataRecovery”按钮，然后再点击右边窗口中的“DeletedRecovery”按钮。 经过短暂的扫描之后，程序要求用户选中误删文件所在的那个分区，然后可以在右边的“FileFilter”栏中输入要恢复的文件的文件名及类型。程序默认是查找所有被删除的文件，这样可以查找所有被删除的文件，一般用默认值即可。注意，如果文件被删除了很长时间，则建议将“CompleteScan”前的复选框选中，这样恢复成功的几率要大一些。 点击“下一步”后，程序开始扫描该分区，最后弹出一个文件列表窗口。该窗口与“资源管理器”差不多，用户只需在该列表中查找需要恢复的文件并打上“√”即可。 提示：那些已删除的文件被EasyRecoveryPro找到后，在文件列表中的文件名与原来的文件名可能有所区别，因此在查找需要恢复的文件时要有一定的耐心，可根据文件名及文件类型来判断是否自己需要恢复的文件。另外，选中某个文件后，还可以点击“ViewFile”按钮来查看所选文件里面的内容，这一点对于查找文本文件非常有用。 选择好需要恢复的文件后，点击“下一步”按钮，程序要求选择一个用来存放恢复文件的目录。注意，为了恢复的安全，建议将恢复数据存放到其他分区中(比如需要恢复的文件在D盘，则可将找到的文件保存到E盘)。点击“RecovertoLocalDrive”后面的“Browse”按钮，在弹出的窗口中选择好目标目录即可。 提示：那些已删除的文件被EasyRecoveryPro找到后，在文件列表中的文件名与原来的文件名可能有所区别，因此在查找需要恢复的文件时要有一定的耐心，可根据文件名及

两个excel表格怎么分开

竭诚为您提供优质文档/双击可除两个excel表格怎么分开 篇一：两个excel文档怎么分开显示？ 如何让excel在两个窗口分开显示如何让excel在两个窗口分开显示好多朋友会发现，打开的两个或多个excel工作表都显示在同一个窗口内，而按照我之前分享的《如何让word在两个窗口分开显示》的步骤操作，并不能实现想要的结果，下面将分享一下如何将多个excel工作表分开窗口显示(以两个excel工作表为例作为演示)，希望对大家有用。 1、以两个excel工作表为例(分别命名为excel工作表 (1)和excel工作表(2)) 2、打开excel工作表(1)和excel工作表(2); 3、在打开的窗口的右上角分别有两个最小化、还原和关闭三个选项;(这说明两个excel工作表都显示在同一个大的窗口内) 4、点击窗口工具栏中的窗口选项，并找到窗口下拉窗中的重排窗口选项; 5、点击重排窗口选项，在弹出的窗口中，可以通过平铺、水平并排、垂直并排、重叠等选项来实现同时查看两个

excel工作表的内容;(因为这并不是我们想要的最终结果，所以这里就不多介绍) 6、这里可以介绍一下并排比较的特殊用途;在窗口下拉窗中找到与excel工作表(1)并排比较; 7、点击与excel工作表(1)并排比较选项; 8、通过鼠标滚轮可以同时对两个工作表进行比对，这个在excel工作表中有相当大的使用价值; 9、我们关闭excel工作表(2)，只留下excel工作表(1); 10、点击桌面菜单中的开始选项; 11、找到excel程序; 12、点击excel程序，打开临时工作表book1; 13、点击book1窗口工具栏中的菜单选项，找到菜单下拉窗口中的打开选项; 14、通过此方法打开excel工作表(2); 15、此时在打开的窗口的右上角还是有两个最小化、还原和关闭三个选项;但是这次您点击还原、或者最小化选项，会有新的发现哦;(要点击大的窗口上的选项，不要点击小窗口里的) 16、是的，通过这种方法，您已经成功的实现了两个excel工作表的独立显示。 篇二：怎么拆分一个excel工作簿中的多个工作表

excel如何合并多个工作簿中的指定工作表

excel如何合并多个工作簿中的指定工作表 浏览次数：1256次悬赏分：30|解决时间：2010-4-14 02:10 |提问者：lanxue88888 每天要汇总很多数据！ 浪费太多时间！ 现在求一个宏，或者工具！ 可以将指定目录下的excel工作簿中的指定表！汇总到一起！ 例如！将book1.xlsx中的sheet1。 book2.xlsx中的sheet1。 book3.xlsx中的sheet1。 book4.xlsx中的sheet1。 ~~~~~~~~~~ 合并到book汇总.xlsx中的sheet1中 如果你的建议是复制~~粘贴~就算了！这个我知道如何使用！ 如果提供宏的朋友可以加入详细说明，以便我学习，我将酌情加分！ 谢谢！ 最佳答案 Sub Macro1() Dim lj$, dirname$, nm$, wb As Workbook, sh As Worksheet, a, b Set wb = ThisWorkbook a = Array(0, 2, 1) b = Array(0, -1, 0) lj = ThisWorkbook.Path nm = https://www.wendangku.net/doc/ac8771412.html, dirname = Dir(lj & "\*.xls") Application.ScreenUpdating = False For Each sh In Sheets https://www.wendangku.net/doc/ac8771412.html,edRange.Offset(3, 0).Clear Next Do While dirname <> "" If dirname <> nm Then With GetObject(lj & "\" & dirname) For i = 1 To 2 If IsSheetEmpty = IsEmpty(.Sheets(i).UsedRange) Then _ .Sheets(i).UsedRange.Offset(3, 0).Copy wb.Sheets(.Sheets(i).Name).Cells(65536, a(i)).End(xlUp).Offset(1, b(i)) Next .Close False End With End If

意外删除Excel文档的恢复方法

意外删除Excel文档的恢复方法【迷你兔数据恢复】 Microsoft Excel是微软公司的办公软件Microsoft office的组件之一，和Word、PowerPoint 并称为Microsoft office的三大重要组件。它可以进行各种数据的处理、统计分析和辅助决策操作，主要用来进行有繁重计算任务的预算、财务、数据汇总等工作。在Excel电子表格软件22年的发展中，它已经从一款小软件成为了现代人日常生活工作必不可少的数据管理、处理软件，并广泛地应用于管理、统计财经、金融等众多领域。 熟悉Excel的人都知道，制作Excel表格不仅只是简单的数据录入而已，这涉及到排版布局和一系列函数公式运用，是一项十分精密复杂的工作。因此重要的Excel文档除了对其进行加密之外，还会备份防止丢失。不过计算机每天会进行大量的数据写入和交换工作，保存在计算机上的数据也就随时面临着丢失的危险，特别是个人的一些误操作，很容易就会将制作好的Excel文档删除，遇到这种情况我们又该怎么办呢？ Excel和Word文档都是属于在丢失时容易被破坏的数据类型，为了避免数据覆盖和数据的二次破坏，降低数据恢复的难度，我们应该立刻停止对丢失分区的任何操作。 接下来我们就可以利用一款数据恢复软件——迷你兔数据恢复工具来恢复被意外删除的Excel文档了。之所以选择迷你兔软件是因为Excel文档内存通常较小，迷你兔工具可以免费恢复3G数据，而且支持最新的office文件类型恢复，恢复流程简化，耗费的时间也不多。未安装迷你兔的朋友可以在迷你兔官方网站免费下载安装。 百度搜索“迷你兔数据恢复”访问迷你兔官网，点击免费下载。（不要将软件安装到丢失分区） 怎样利用迷你兔数据恢复工具来恢复被删除的Excel文档呢？ 第一步：安装好迷你兔之后运行软件，在软件的操作主界面我们可以看到五个恢复模块，

文件被覆盖后怎么恢复_删除的文件如何还原

文件被覆盖后怎么恢复_删除的文件如何 还原 数据恢复过程中最怕被误操作而造成二次破坏，造成恢复难度陡增。数据恢复过程中，禁止往源盘里面写入新数据的。 不要做DskChk磁盘检查。一般文件系统出现错误后，系统开机进入启动画面时会自动提示是否需要做磁盘检查，默认10秒后开始进行DskChk磁盘检查操作，这个操作有时候可以修复一些小损坏的目录文件，但是很多时候会破坏了数据。因为复杂的目录结构它是无法修复的。修复失败后，在根目录下会形成FOUND.000这样的目录，里面有大量的以.CHK为扩展名的文件。有时候这些文件改个名字就可以恢复，有时候则完蛋了，特别是FAT32分区或者是NTFS比较大的数据库文件等。 (一)不要再次格式化分区。用户第一次格式化分区后分区类型改变，造成数据丢失，比如原来是FAT32分区格成NTFS分区，或者原来是NTFS的分区格式化成FAT32分区。数据丢失后，用一般的软件不能扫描出原来的目录格式，就再次把分区格式化回原来的类型，再来扫描数据。我们指出的是，第2次格式化回原来的分区类型就是严重的错误操作，很可能把本来可以恢复的一些大的文件给破坏了，造成永久无法恢复。

(二)不要把数据直接恢复到源盘上。很多普通客户删除文件后，用一般的软件恢复出来的文件直接还原到原来的目录下，这样破坏原来数据的可能性非常大，所以严格禁止直接还原到源盘。 (三)不要进行重建分区操作。分区表破坏或者分区被删除后，若直接使用分区表重建工具直接建立或者格式化分区，很容易破坏掉原先分区的文件分配表(FAT)或者文件记录表(MFT)等重要区域，造成恢复难度大大增加。我们在恢复的实践过程中碰到过多次客户在分区表破坏后，先自行尝试过几种分区工具都无法恢复数据后才想到找专业人员帮忙，结果我们发现在多种分区工具作用后，破坏了一些重要的目录文件，造成文件目录恢复不完整，有些大的文件无法恢复。而按客户描述的最初分区丢失的情况，这些文件一般都可以完全恢复了，真是很可惜啊。专业的数据恢复人员在重建分区表之前都会先定位分区的具体位置(逻辑扇区号)，然后用扇区查看工具先检查分区的几个重要参数比如DBR/FA T/FDT/MFT等，确认后才修改分区表的，而且修改完分区表后在启动系统过程中会禁止系统做dskchk破坏分区目录，保证数据不会被破坏到。 (四)阵列丢失后不要重做阵列。我们在挽救服务器阵列的实践中遇到过有些网管在服务器崩溃后强行让阵列上线，即使掉线了的硬盘也强制上线，或者直接做rebuilding。这些操作都是非常危险的，任何写入盘的操作都有可能破坏数据。

多个Excel表合并形成一个Excel中的多sheet工作簿

多个Excel表合并形成一个Excel中的多sheet工作簿 (2013-03-21 11:05:24) 转载▼ 分类：excel使用技巧 新建一个excel表（把所有表最终要导入的表）。在该表中按ALT+F11打开宏，插入------ 模块 在打开的窗口中输入： Sub CombineWorkbooks() Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpdating = False FilesToOpen = Application.GetOpenFilename _ (FileFilter:="MicroSoft Excel文件(*.xls),*.xls", _ MultiSelect:=True, Title:="要合并的文件") If TypeName(FilesToOpen) = "Boolean" Then MsgBox "没有选中文件" GoTo ExitHandler End If x = 1 While x <= UBound(FilesToOpen) Workbooks.Open Filename:=FilesToOpen(x) Sheets().Move after:=ThisWorkbook.Sheets _ (ThisWorkbook.Sheets.Count) x = x + 1 Wend ExitHandler: Application.ScreenUpdating = True

Exit Sub ErrHandler: MsgBox Err.Description Resume ExitHandler End Sub 按F5运行宏。

恢复回收站删除文件

在你进行误删除以后，只要你没有向删除文件的分区写入文件，就还有机会将误删除的文件恢复。不过不敢保证全部恢复。现在恢复数据的软件较多，比如：EasyRecovery Pro、FinalDataEnterprise20等，这里我推荐使用EasyRecovery Pro这款软件。同时我将介绍在WINDOWS和DOS两种情况下的数据恢复步骤。希望对你有所帮助。 在日常使用电脑的过程中，每个人都可能遇到过误删除数据、误格式化硬盘分区等比较麻烦的情况，甚至还可能出现误删除硬盘分区的情况。那么一旦出现这些情况之后，该如何恢复那些误删除的数据呢？ 在Windows中恢复数据 如果用户只是在操作时误删除了一些文件，例如Word文件、文本文件等等，或者只是误格式化了非系统分区，而Windows还运行正常的话，那么可以通过EasyRecovery Pro这款软件来恢复数据。 提示：安装该软件时需要注意：如果需要找回C盘上误删的文件，则最好不要将EasyRecovery Pro安装到C盘，否则会影响C盘的文件系统，对数据恢复不利。 1.恢复误删除的文件 启动EasyRecovery Pro 6.0之后，点击主界面左边的“Data Recovery”按钮，然后再点击右边窗口中的“Deleted Recovery”按钮。 经过短暂的扫描之后，程序要求用户选中误删文件所在的那个分区，然后可以在右边的“File Filter”栏中输入要恢复的文件的文件名及类型。程序默认是查找所有被删除的文件，这样可以查找所有被删除的文件，一般用默认值即可。注意，如果文件被删除了很长时间，则建议将“Complete Scan”前的复选框选中，这样恢复成功的几率要大一些。 点击“下一步”后，程序开始扫描该分区，最后弹出一个文件列表窗口。该窗口与“资源管理器”差不多，用户只需在该列表中查找需要恢复的文件并打上“√”即可。 提示：那些已删除的文件被EasyRecovery Pro找到后，在文件列表中的文件名与原来的文件名可能有所区别，因此在查找需要恢复的文件时要有一定的耐心，可根据文件名及文件类型来判断是否自己需要恢复的文件。另外，选中某个文件后，还可以点击“View File”按钮来查看所选文件里面的内容，这一点对于查找文本文件非常有用。 选择好需要恢复的文件后，点击“下一步”按钮，程序要求选择一个用来存放恢复文件的目录。注意，为了恢复的安全，建议将恢复数据存放到其他分区中(比如需要恢复的文件在D盘，则可将找到的文件保存到E盘)。点击“Recover to Local Drive”后面的“Browse”按钮，在弹出的窗口中选择好目标目录即可。 提示：那些已删除的文件被EasyRecovery Pro找到后，在文件列表中的文件名与原来的文件名可能有所区别，因此在查找需要恢复的文件时要有一定的耐心，可根据文件名及文件类型来判断是否自己需要恢复的文件。另外，选中某个文件后，还可以点击“View File”按钮来查看所选文件里面的内容，这一点对于查找文本文件非常有用。 当选择好用来存放恢复文件的目录后，点击“下一步”，程序就会将选定的文件恢复到设定的文件夹中。 2.恢复误格式化分区上的数据 启动程序后，点击“Data Recovery”按钮后，再点击右边窗口中的“Format Recovery”按钮，此时程序要求用户选择需要恢复数据的分区。

excel合并多个工作簿中的工作表

excel合并多个工作簿中的工作表 在同一文件夹中有多个工作簿，其中有一个用于汇总的工作簿，要求将除该汇总工作簿外的其它工作簿中的指定工作表的数据汇总到该汇总工作簿中。(这个最好用)代码如下： Sub UnionWorksheets() Application.ScreenUpdating = False Dim lj As String Dim dirname As String Dim nm As String lj = ActiveWorkbook.Path nm = https://www.wendangku.net/doc/ac8771412.html, dirname = Dir(lj & "\*.xls*") Cells.Clear Do While dirname <> "" If dirname <> nm Then Workbooks.Open Filename:=lj & "\" & dirname Workbooks(nm).Activate '复制新打开工作簿的第一个工作表的已用区域到当前工作表 Workbooks(dirname).Sheets(1).UsedRange.Copy _ Range("A65536").End(xlUp).Offset(1, 0) 'sheets(1) 中的1为工作表顺序号 Workbooks(dirname).Close False End If dirname = Dir Loop End Sub

可以将指定目录下的excel工作簿中的指定表！汇总到一起！ 例如！将book1.xlsx中的sheet1。 book2.xlsx中的sheet1。 book3.xlsx中的sheet1。 book4.xlsx中的sheet1。 ~~~~~~~~~~ 合并到book汇总.xlsx中的sheet1中 如果你的建议是复制~~粘贴~就算了！这个我知道如何使用！ 如果提供宏的朋友可以加入详细说明，以便我学习，我将酌情加分！ 谢谢！ 最佳答案 Sub Macro1() Dim lj$, dirname$, nm$, wb As Workbook, sh As Worksheet, a, b Set wb = ThisWorkbook a = Array(0, 2, 1) b = Array(0, -1, 0) lj = ThisWorkbook.Path nm = https://www.wendangku.net/doc/ac8771412.html, dirname = Dir(lj & "\*.xls") Application.ScreenUpdating = False For Each sh In Sheets https://www.wendangku.net/doc/ac8771412.html,edRange.Offset(3, 0).Clear Next Do While dirname <> "" If dirname <> nm Then With GetObject(lj & "\" & dirname) For i = 1 To 2 If IsSheetEmpty = IsEmpty(.Sheets(i).UsedRange) Then _ .Sheets(i).UsedRange.Offset(3, 0).Copy wb.Sheets(.Sheets(i).Name).Cells(65536, a(i)).End(xlUp).Offset(1, b(i)) Next .Close False End With End If dirname = Dir Loop Dim UserSheet As Worksheet Set UserSheet = ActiveSheet

用DiskGenius恢复误删除或误格式化后的文件方法.doc

用DiskGenius恢复误删除或误格式化后的 文件方法 用DiskGenius恢复误删除或误格式化后的文件方法 当计算机内的文件被有意无意的删除、或遭到病毒破坏、分区被格式化后，若想恢复这些已丢失的文件，均可使用本功能。实际上，操作系统在删除文件时，只是将被删除文件打上了删除标记，并将文件数据占用的磁盘空间标记为空闲。文件数据并没有被清除，还静静地躺在磁盘上。只要删除文件后没有建立新的文件，操作系统没有写入新的数据，这些被删除的文件数据就不会被破坏，就有机会通过一定的技术手段将它们抢救出来。 格式化操作执行时并不会考虑磁盘上原来的数据内容，也不会先删除旧文件。不同的文件系统类型，格式化的具体操作内容也不同。对于FAT32、FAT16、FAT12等文件系统，格式化时会清除文件分配表(简称FAT，固定位于分区的开始部分，含有文件数据的定位信息)及根目录。文件数据一般不会被清除。对于NTFS文件系统，格式化时新写入的数据没有固定位置要求，但正常情况下每次格式化时的写入位置不会变化。因此旧文件数据大多不会被覆盖，仍存在大量残余信息供我们找到丢失的文件。本功能就是通过分析残留在磁盘上的文件的部分信息来重新找

到文件数据及文件夹的层次结构，从而达到恢复文件数据的目的。 对于整个分区已经丢失的情况，请首先参阅搜索已丢失分区(重建分区表) 功能，先搜索到丢失的分区。然后可以在保存分区表后、或在不保存分区表的情况下再利用文件恢复功能恢复分区内的文件。 分区被破坏的表现有：在我的电脑中打开分区时系统提示未格式化需要格式化，分区属性显示为RAW ，打开分区后看不到任何文件。遇到这些情况时，都可以通过误格式化后的文件恢复功能来恢复文件。 本功能支持NTFS、FAT32、FAT16、FAT12等文件系统类型的硬盘分区、支持使用这些文件系统格式的RAID卷、U盘、存储卡(如数码相机中的SD卡、XD卡等等)。 为保护正在恢复的分区不被再次破坏，本软件在搜索分区内的文件时，会采用只读模式，不会向分区写入任何数据。 要开始恢复文件，首先选择已删除文件所在的分区。然后点击工具栏按钮恢复文件，或点击主菜单工具中的已删除或格式化后的文件恢复菜单项，以打开文件恢复对话框。 由于格式化后的文件恢复与文件正常删除后的恢复过程不同，

两个excel表格核对的6种方法

两个excel表格核对的6种方法，用了三个小时才整理完成！ excelpx-teteexcel应用分享与问题解答，提供excel技巧、函数和VBA相关学习资料的自助查询。每天一篇原创excel教程，伴你excel学习每一天！ excel表格之间的核对，是每个excel用户都要面对的工作难题，今天兰色带大家一起盘点一下表格核对的方法，一共6种，以后再也不用加班勾数据了。 （兰色用了三个小时整理出了这篇教程，估计你再也找不到这么全的两表核对教程，一定要转发或收藏起来备用哦） 一、使用合并计算核对 excel中有一个大家不常用的功能：合并计算。利用它我们可以快速对比出两个表的差异。 例：如下图所示有两个表格要对比，一个是库存表，一个是财务软件导出的表。要求对比这两个表同一物品的库存数量是否一致，显示在sheet3表格。 库存表： 软件导出表： 操作方法： 步骤1：选取sheet3表格的A1单元格，excel2003版里，执行数据菜单(excel2010版数据选项卡) - 合并计算。在打开的窗口里“函数”选“标准偏差”，如下图所示。

步骤2：接上一步别关窗口，选取库存表的A2:C10（第1列要包括对比的产品，最后一列是要对比的数量），再点“添加”按钮就会把该区域添加到所有引用位置里. 步骤3：同上一步再把财务软件表的A2:C10区域添加进来。标签位置：选取“最左列”，如下图所示。 进行以上步骤后，点确定按钮，会发现sheet3中的差异表已生成，C列为0的表示无差异，非0的行即是我们要查找的异差产品。 兰色说：如果你想生成具体的差异数量，可以把其中一个表的数字设置成负数。（添加一辅助列=c2*-1），在合并计算的函数中选取“求和”，即可。另外，此类题目也可以用VLOOKUP函数查找另一个表中相同项目对应的值，然后相减核对。 二、使用选择性粘贴核对 当两个格式完全一样的表格进行核对时，可以用选择性粘贴方法，如下图所示，表1和表2是格式完全相同的表格，要求核对两个表格中填的数字是否完全一致。

同一EXCEL文件合并多个工作表数据到同一工作表

同一EXCEL文件合并多个工作表数据到同一工作 表 首先，添加通用函数 1．打开VBE。 2．单击“插入——模块”，添加一个新模块。 3．在模块窗口，输入下面的代码。 Function LastRow(sh As Worksheet) On Error Resume Next LastRow = sh.Cells.Find(what:="*", _ After:=sh.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0 End Function Function LastCol(sh As Worksheet) On Error Resume Next LastCol = sh.Cells.Find(what:="*", _ After:=sh.Range("A1"), _ Lookat:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByColumns, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Column On Error GoTo 0 End Function 这两个函数分别用于查找工作表中包含数据的最后一行和最后一列。 下面，我们将复制工作簿中所有工作表的数据，并将这些数据合并到一个汇总工作表中。

复制多个工作表中的所有数据 1． 在模块窗口输入下列代码后，运行即可。 Sub合并工作表() Dim sh As Worksheet Dim DestSh As Worksheet Dim Last As Long Dim CopyRng As Range With Application .ScreenUpdating = False .EnableEvents = False End With '如果工作表"RDBMergeSheet"存在则将其删除 Application.DisplayAlerts = False On Error Resume Next ActiveWorkbook.Worksheets("RDBMergeSheet").Delete On Error GoTo 0 Application.DisplayAlerts = True '添加一个名为"RDBMergeSheet"的工作表 Set DestSh = ActiveWorkbook.Worksheets.Add https://www.wendangku.net/doc/ac8771412.html, = "RDBMergeSheet" '遍历所有工作表并将数据复制到DestSh For Each sh In ActiveWorkbook.Worksheets If https://www.wendangku.net/doc/ac8771412.html, <> https://www.wendangku.net/doc/ac8771412.html, Then '找到在工作表DestSh中带有数据的最后一行 Last = LastRow(DestSh) '设置希望复制的单元格区域 Set CopyRng=https://www.wendangku.net/doc/ac8771412.html,edRange '测试工作表DestSh中是否有足够的行用来复制所有数据