共享EXCEL工作簿实现协同录入
2002-05-15· ·DIYer··天极软件频道
在EXCEL2000中，我们可以设置工作簿的共享来加快数据的录入速度，而且在工作过程中还可以随时查看各自所做的改动。当多人一起在共享工作簿上工作时，Excel会自动保持信息不断更新。在一个共享工作簿中，各个用户可以输入数据、插入行和列以及更改公式等，甚至还可以筛选出自己关心的数据，保留自己的视窗。
一、设置共享工作簿
我们可以先举个例子：假设有甲乙丙丁四个用户分工合作共同完成录入操作，四人分别在001、002、003、004号机器上同时操作，这四台机器都已经与000号电脑通过网络连接了起来，学生学籍资料信息2002.xls存放在000号机器的硬盘E:\上。
1、在“工具”菜单中单击“共享工作簿”命令，然后单击“编辑” 标签，如图所示。
2、选择“允许多用户同时编辑，同时允许工作簿合并”复选框，在“高级”标签中可以对“自动更新间隔”、“用户间修订冲突解决方法”以及“个人视图属性”等进行设置，在通常情况下，“高级”标签中的各个参数可直接使用系统默认值，然后单击[确定]即可。
3、出现提示时，保存工作簿。
4、在“文件”菜单中单击“另存为”，然后将共享工作簿保存在其他用户可以访问到的一个网络资源上（如000号机器的E:\）。
二、使用共享工作簿
1、查看冲突日志
冲突日志在共享工作簿中，是为以前编辑时所作的更改保存的信息，信息包括每个更改的作者、进行更改的时间和被更改的数据内容等。
查看冲突日志有两种方法：一是在工作表上将鼠标箭头停留在被修订过的单元格上，突出显示详细的修改信息；二是在单独的冲突日志工作表上罗列出每一处冲突，方法如下：
（1）在“工具”菜单中，选择“修订”子菜单，再单击“突出显示修订”命令。
（2）选中“编辑时跟踪修订信息，同时共享工作簿”复选框，该复选框将开启工作簿共享和冲突日志。
（3）选中“在屏幕上突出显示修订”复选框，这样在工作表上进行需要的修改后，Excel会以突出显示的颜色标记修改、插入或删除的单元格。
（4）选中“在新工作表中显示修订”选项，将启动冲突日志工作表。
（5）单击[确定]按钮，当弹出对话框提示保存工作簿时，请再次单击[确定]按钮，保存工作簿。
2、合并工作簿
当合并用户需要获得各自更改的共享工作簿的若干备份时，Excel需要共享工作簿的每个备份都保留有从创建备份之日到合并之日的所有冲突日志，同时如果天数超过指定的保留时间，就不能再合并备份。保险的办法是将冲突日志保留足够长的时间，或是输入一个极大的天数，例如1000天。
合并工作簿具体操作如下：
（1）在欲合并的另一个工作簿文件之中，打开共享工作簿的备份。
（2）单击“工具”菜单中的“合并工作簿”命令。
（3）如果有提示，请保存共享工作簿。
（4）在“将选定文件合并到当前工作簿”对话框中，单击包含有合并更改内容的共享工作簿的某一个备份，然后单击[确定]按钮。
（5）重复第（2）步到第（4）步，直到共享工作簿的所有备份都被合并。
做好以上设置后，其他用户都可以在自己的电脑中同时编辑、浏览约定的工作簿，同时000号操作员可以在自己的窗口中看到并管理所有用户共享编辑这个工作簿。为方便实际操作，应将每位用户姓名更改为真名实姓，方法是：单击“工具→选项→常规→用户姓名→输入姓名→确定”，这样在打开“共享工作簿”弹出的对话框（如前图所示）中便可正确显示正在使用本工作薄的所有用户姓名和开始使用时间。为了避免几个用户修改同一单元格的内容，可以估计一下数据中的记录数量，让几位用户每人分配不同的录入部分。比如让甲从工作薄的第1条开始录入，让乙从工作薄的第200行开始……但应注意在“共享工作簿”状态下不能同时编辑批注和建立超链接，这两项只能在不共享状态下进行。
提示
1、如果需要取消共享工作簿，只需要在图1的“编辑”标签中，清除“允许多用户同时编辑，同时允许工作簿合并”项即可，不过这将使其他用户丢失所有未保存的修改。
2、对工作簿进行共享设置后，可以由网络上的多位用户同时访问和修改，为避免丢失修订记录，可以为工作簿指定一个密码来保护共享，或保护其他工作表及工作簿特性，可作如下操作：
（1）单击“工具”菜单的“保护”命令，从其子菜单中选择“保护并共享工作簿”命令，弹出“保护共享工作簿”对话框（如图）。
（2）选中“以追踪修订方式共享”复选框，用这种方式就可以共享工作簿且避免丢失修订记录。如果希望其他用户在关闭冲突日志或撤消工作簿共享状态时输入密码，请在“密码”框中键入密码，然后在出现提示时再次输入以便确认。为工作簿提供共享保护以后，其他用户就不能撤消工作簿共享状态或者关闭冲突日志了，除非知道正确的密码。
EXCEL大量数据快速录入技巧
2002-05-15· ·DIYer··天极软件频道
1 23下一页
高考及其他许多类似工作有大量的数据需要录入，为了便于汇总，各校必须统一格式，所以一般由上级主管部门设计好一个数据库，再辅之以一个录入的界面。这样虽然操作起来非常直观，但丝毫不能减轻数据录入的工作量（除了自动编号之外）。仔细研究一下他们的数据库和数据构成，我们就可以放弃那些漂亮的录入界面，在EXCEL2000中轻松完成。
一、表头的设计处理
首先要自己设计一张工作表。表头上的表项设置，必须建立在对上级部门数据库的认真剖析的基础之上。如果是传统的DBF数据库，当然可以直接在EXCEL中进行相关操作；如果是ACCESS数据库，经过适当处理，我们也可以在EXCEL2000中对它进行操作。实在不行，那就逐项记录下所要录入的数据项，自己设计一个表头也是可以的。表头最好用汉字注明，这样可以避免录入时出现张冠李戴的情形，需要时再适当调整一下就行了。
二、“查找、替换”和“自动更正”功能的巧用
再来分析一下这些数据：在“毕业学校”一栏，有好多个学生毕业于同一所学校，重复输入效率肯定不高。对，有了，先自己定义几个字符来临时替代一下各个学校的名称（如用“4Z”代表“枣阳市第四中学”，等全部完成后再按“Ctrl+H”把所有的“4Z”全部替换为“枣阳市第四中学”不就行了？
[提示：尽量用一些简单好记、易录入、不会与其他内容发生混淆的字符来执行替
换，不过不要光顾了简单好记，否则，你用“4”代替“枣阳市第四中学”试试，做了“全部替换”后可别骂人哟！]
如果你连Ctrl+H这一步也想省去，你可以试试EXCEL的“自动更正”功能。使用自动更正功能，可以简化用户对大量重复数据的输入操作，例如可以将上面的“4z”定义更正为“枣阳市第四中学”，定义的方法是：
1.从工具菜单中选择“自动更正”，打开自动更正对话框。
2.在“替换”框中输入数据，如：“4z”，在“替换为”框中输入数据，如：“枣阳市第四中学”，单击“添加”，再单击“确定”。
之后，只需在单元格中输入“4z”两字，即会自动更正为“枣阳市第四中学”。
三、输入法的自动切换
在输入数据时，一张工作表中同时包含汉字、英文字母和数字，那么对于不同的单元格，输入时不断地切换输入方式也是人为增加的录入工作量。只要作一下预处理，便可以使Excel对不同类型的单元格实现输入法的自动切换。
启动Excel 2000，新建一工作簿，取名为“2002.xls”，右键单击工作表标签“Sheet1”，选择“重命名”，改名为“学籍登记表”。先将小张经常使用的“智能陈桥输入法”设为默认汉字输入法：单击右下角的“En”图标，选择“属性”，在出现的对话框中选择语言标签下的“智能陈桥输入平台”，单击[设为默认值]并确认。按上述设计输入表头内容，然后选中“姓名”、“性别”等需要输入汉字的那些列，在菜单中依次选择“数据→有效性→输入法模式”选项卡，在“模式”下拉列表框中选择“打开”，单击[确定]按钮（如图1）。再选择其他各列，同上操作步骤，调出“输入法模式”选项卡，在“模式”下拉列表框中选择“关闭（英文模式）”，单击[确定]按钮即可。
图1
经过这样简单的处理之后，在录入过程中，当插入点处于不同的单元格时，Excel 2000能够根据我们进行的设置自动在中英文输入法间进行切换，省去了来回进行中英文切换的麻烦。
EXCEL大量数据快速录入技巧
2002-05-15· ·DIYer··天极软件频道
上一页1 2 3下一页
四、不定长数据的预处理
对于学生家庭住址这一栏，列宽该如何设置呢？太宽了会造成表格过宽左右滚动不方便，太窄又怕万一哪个学生的地址比较长，岂不被它右边的列给挡住了？不要紧，有两招都是专门对付这种情况的：
第一招、在“家庭住址”列上方单击，选中整列，依次选择菜单“格式→单元格→对齐”，在“文本控制”下选中“缩小字体填充”复选框（如图2），单击[确定]按钮，调整该列到合适的列宽。这样如果某个同学的地址超过了单元格的宽度，Excel能够自动缩小字符的大小把数据调整到与所设列宽一致，以使数据全部显示在单元格中。即使以后对这些单元格的列宽进行了更改，其中的字符也可乖乖地自动增大或缩小字号，以适应新的单元格列宽。
图2
第二招、选中“家庭住址”列后，勾选图2中的“自动换行”复选框后，Excel能根据列的宽度和文本内容的长度自动换行，这样就不必眯起眼睛去忍受那些小字了！
五、让EXCEL也“自动编号”
我们都知道，EXCEL的自动填充是它的一大特色功能。利用它来进行序号的“自
动编制”，简直就像是量体裁衣一样方便。一般自动填充的方法都是用鼠标左键指向填充柄，按住鼠标向下拖动完成的（填充柄是位于选定区域角上的小黑块，将鼠标指向填充柄时，鼠标的形状变为黑十字。拖动填充柄可以将内容复制到相邻单元格中，或填充日期系列）。如果表格有太多的行，这种方法不便掌握拖动的距离。这里介绍一种本人摸索的更简单的操作方法：用鼠标左键双击填充柄。一切OK！注意：这样做有时候不能达到预期的填充效果。还必须满足下列条件：
1、只能纵向填充不能横向填充。
2、欲填充的列的左(右)相邻列非空，且中间无间断，否则以上填充将在间断处停止。
3、该方法对文本形式的序列也起作用。
EXCEL大量数据快速录入技巧
2002-05-15· ·DIYer··天极软件频道
上一页12 3
六、自动定位小数位
因为有一大批诸如123.5之类的学生成绩需要录入，如果录入前先进行下面的设置，将会使你的输入速度成倍提高（可以不需要输入小数点）。
单击“工具”→“选项”→“编辑”选项卡，选中“自动设置小数点”复选框，在“位数”微调编辑框中键入需要显示在小数点右面的位数。在此，我们键入“1”（如图3）。单击“确定”按钮。
现在，在工作表的某单元格中键入“1235”，则在你按了回车键之后，该单元格的数字自动变为“123.5”。方便多了吧！此时如果你在单元格中键入的是“89”，则在你结束输入之后，该单元格中的数字自动变为“89.0”。
另外，如果你在“位数”框中输入一个负数，比如“-1”，则Excel将在输入的数字后自动添上两个“0”。如果要暂时取消在“自动设置小数点”功能中设置的选项，可以在输入的数据中自带小数点。利用Excel的“自动设置小数点”的功能，对于大量带有固定小数位的数字，或带有固定位数的以“0”字符串结尾的数字的输入，将大大提高编辑速度。
七、让表格个性化
为了提高工作效率，越干越起劲，同时好为了避免录入时间过长后出现差错。选中整个工作表，单击格式菜单下的“自动套用格式……”，出现“自动套用格式”对话框，选择一种比较你所喜欢的方案，单击[选项]按钮，展开对话框下部的“应用格式种类”选项框，为了保持前面的诸多设置，必须去掉“数字”、“对齐”、“边框”等复选项前的选择，只复选“字体”和“图案”两项，[确定]后完成设置。
[提示：在表格中，给单元格加上不同的颜色和底纹可以增强数据输入时的直观感
觉，但在黑白打印时如果连颜色和底纹都打出来，表格的可视性就大打折扣了，因此用户希望在数据处理时色彩缤纷，打印时仍旧是普通的白纸黑字。可以在“文件”菜单中选择“页面设置→工作表→打印→单元格单色打印”，这样打印的表格就是普通的黑白表格了。]
一切准备就绪，下面就可以开始录入了。
解决Access中分组报表的问题
2003-08-23李枫电脑报
很多朋友寻找第三方控件来解决Access 2000/2002中的分组报表问题，其实Access 2000/2002本身带有该功能，笔者现将解决该问题的方法介绍如下。
笔者做的是一个计量方面的数据库，每个月都要对各相关部门下发计量检测通知单。
所做查询的字段如下：计量器具名称、本厂编号、测量范围、存放地点、保管人、使用部门、检定日期。
其中“使用部门”是需要分组分页打印的，“检定日期”为参数字段。在用使用向导创建报表后，将所需字段导入报表，先在菜单“视图”中选中“排序与分组”，在“字段/表达式”中填入所需分组的字段，并在“组页眉”和“组页脚”中填入“是”，在“保持同页”中填入“所有的组”。
然后单击“使用部门页眉”，在弹出的对话框中选取“属性”，弹出一对话框（如图1），在“强行分页”中选取“节前”，再适当地调节各部分的位置即可。
打印效果如图2，其中“年月日”为管理人员根据实际情况填写的，“送检日期”和“备注”是实际送检时填写，所以为空。
Access轻松实现多数据批量打印
2003-07-16广西蒙静生电脑报
目前全国许多省（市）、自治区都在为下岗职工和失业人员以及享受城市最低生活保障的人员发放《再就业优惠证》。要制作同一款式、不同内容的《再就业优惠证》，虽然用Word、WPS等软件可以达到这一目的，但用上述软件一份一份地做《再就业优惠证》，实在是很麻烦。其实，使用Access 2000的报表功能，可以轻松完成批量打印《再就业优惠证》的工作。
一、建立数据库工作表
启动Access 2000数据库，新建一个工作表，选中“通过输入数据创建表”，在表中依次建立如附表所示的字段（注：ID号是由Access2000数据库自动生成的编号）。
在表中输入相关数据，这样就建立了《再就业优惠证》的数据库。
二、使用向导创建窗体
第一步：如图1，在窗口中用鼠标单击“窗体”，再双击“使用向导创建窗体”，出现图2的窗体，在窗体向导的左边列出了你自己创建的所有字段，单击“》”（全选按钮），选定的字段就被全部选中到窗体的右边。因为在证书中不需要“ID”项，因此，在窗体右边选中“ID”项，点按钮“〈”使ID项不被选中，然后点“下一步”。因为《再就业优惠证》为纵栏式的，因此选中“纵栏表”，点“下一步”出现一个窗体，选“标准”，点“下一步”，在出现的窗体中点选“修改窗体设计”，单击“完成”按钮得到如图3所示的窗体。
第二步：修改图3所示的窗体，使之式样与证书相吻合，并调节好字体的大小。据笔者经验，“姓名”和“编号”的字体选“宋体”12号字并加粗，其他一律选“宋体”10号字并加粗，打印出的证书式样较美观。
第三步：导入数据。关闭窗体，重新打开刚才建立的《再就业优惠证》窗体，原先输入报表中的数据就在窗体中显示如图4所示。检查无误后就完成了窗体的设计。
三、页面设置和打印设置
笔者采用的是富士通DPK8250EII型针式超厚打印机。在Access 2000中，用鼠标点左上角的“文件”，在下拉菜单中选中“页面设置”，按证书实际尺寸设置好页面，然后进行打印设置，把空白证书放入打印机中，在窗体（图4）中选中左边为黑竖条，即为选中一份证书的内容，然后在打印设置中选取“只打印数据”→“确定”，就可打印出一份符合规格的《再
就业优惠证》。
点图4窗体下面的“ 翻页”按钮，Access 2000自动输入下一份证书的数据，就可以连续打印下去。如果想让打印机连续打印，只需在Access 2000的打印设置中将“打印内容”设为“全部”，再选“只打印数据”→“确定”。接下来你所需做的工作就是不停地将空白证书放入打印机中，并在打印机输出口下面放一个大纸箱，接收打印好的《再就业优惠证》即可。照这样做，一天打印1000份《再就业优惠证》是很容易的事。
以独占方式打开Access数据库
在默认情况下，Access 2000/2002数据库是以“共享”的方式打开的，这样可以保证多人能够同时使用同一个数据库。不过，在共享方式打开数据库的情况下，有些功能比如压缩和修
复数据库是不可用的。此外，当系统管理员要对数据库进行维护时，也不希望他人打开数据库。以下的方法可以让你以独占的方式打开Access数据库。
一、打开按钮法
1.在“文件”菜单中，单击“打开”命令。
2.单击需要的Access数据库文件。
3.单击“打开”按钮旁的箭头，然后单击“以独占方式打开”。
二、选项设置法
上述方法适用于偶尔以独占方式打开数据库，如果你经常要以独占方式打开数据库，那么请进行如下设置：
1.在“工具”菜单中，单击“选项”命令。
2.单击“高级”选项，在“默认打开模式”下，单击“独占”。
3.单击“确定”按钮。
之后，当你像通常那样打开数据库文件时，即是以独占方式将它打开。实际上，即使已将默认打开模式设置为“共享”，仍可以使用上述的“打开按钮”法以独占方式打开Access数
据库。
有多个独立的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.doczj.com/doc/162728755.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.doczj.com/doc/162728755.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
如何将多个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工作簿，可以看到下方已经将之前工作簿中的工作表都复制到了这一新建工作簿中。
把多个工作簿合并到一个工作簿作为新工作簿的一张表（宏代码） 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.doczj.com/doc/162728755.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.doczj.com/doc/162728755.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 具体操作：在工作簿目录下新建一工作簿，工具---宏----编辑器----插入—模块---粘贴代码==运行 excel如何将一个工作簿中的多个工作表合并到一张工作表上 打开你的工作簿新建一个工作表在这个工作表的标签上右键查看代码你把下面的代码复制到里边去，然后上面有个运行运行子程序就可以了，代码如下，如果出现问题你可以尝试工具宏宏安全性里把那个降低为中或者低再试试 Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False
多个工作表的合并及动态更新 之利用Excel数据新建查询（Power Query）功能 当今信息化“大数据”时代，数据汇总分析已经成为财务、税务、审计人员必不可少的一项技能。作为一线审计人员，经常与数据打交道，小编更是有切身体会，各种Excel函数、并表、透视等更是家常便饭手到擒来的事情。Excel操作技能慢慢成为每一个财税人员的看家本领，基础技能，小编后续在解码财税政策实务原理的同时，将会在【工具】菜单选项模块更新一系列Excel操作小技巧，相信能够给财税工作领域的小伙伴们带来实务工作上的便利，为您的职业发展助一臂之力。今天小编打算写一篇关于跨表或跨工作簿甚至跨文件夹合并的问题，这项“神技能”可以说是财税人员很少去运用的技能，但一旦掌握，您将受益终身。更多工具搜索：爱问财税
一、跨表合并解决的问题 财务部门作为公司数据记录、归集、处理中心，是企业管理运营的核心，成本费用的列支、收入现金的记录，采购端的支出、销售端的收入，公司合并、分立、上市、清算…等等，每项业务都需要在财务、税务部门体现出来。当公司规模不大时，可以手工简单处理，靠单笔查询或脑袋记忆就能解决，但一旦公司规模扩张，尤其多元化业务发展，企业的财务或税务人员势必面临着数据归集、处理、分析的难题。 今天所讲的跨表合并主要解决财务部门在面临不同部门提交的数据、不同日期、月份、年度的数据，或者不同公司、行业的报表数据等，各项数据分散在不同的工作表、工作簿甚至文件夹中，这种情况该如何解决入如何能运用Excel的操作技巧达到快速合并的效果，可以留给更多分析、报告的时间。 二、跨表合并解决的方法 跨表合并解决的方法其实有很多种，包括数据新建查询（Power Query）、方方格子、Excel易用宝、慧办公软件、VBA函数等，那么作为财税人员，我们应该学习哪种技能既能解决问题又比较容易上手呢？那么我们先分析下这些工具具体应用场景：
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.doczj.com/doc/162728755.html, dirname = Dir(lj & "\*.xls") Application.ScreenUpdating = False For Each sh In Sheets https://www.doczj.com/doc/162728755.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中的多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运行宏。
快速合并单个excel表中的多个Sheet的工作页 很多朋友会遇到这样的问题，就是很有很多页的数据，少的有几十页, 多的可能有几百页，然后需要合并到一个页面做数据分析，如果一页页的复 制粘贴的话,就比较麻烦.下面我就介绍一种利用excel的宏计算来解决这个问题. 2. 看到这么多数据页要合并,如果是复制粘贴的话,工作量就很大了 我们现在开始合并，首先要在最前页新建一个工作表。如图：
3. 在新建的Sheet表中右键”，找到查看代码”,然后看到宏计算界面如图所示:
4。看到宏计算界面,我们就只需要把下面的代码复制进去，代码如下,效果如下： Sub合并当前工作簿下的所有工作表（) APPliCati On 。Scree nUpdati ng = False FOr j = 1 To SheetS.Cou nt If SheetS（j）。Name <〉 https://www.doczj.com/doc/162728755.html, The n X = Ran ge(”A65536")。E nd(xlUp ）。Row + 1 SheetS（j）。UsedRa nge.Copy Cells(X, 1) End If NeXt Ran ge（”B1”)。Select APPIiCati on .Scree nUpdat ing = TrUe MSgBOX "当前工作簿下的全部工作表已经合并完毕！”, VbInformation，”提
示"
End Sub 5. 做完上面的事情，然后只需要点击工具栏上面的 运行”下的运行子过 程/用户窗体”就可以了，合并完之后会有提示。 提示完成之后就可以把宏计 算界面关闭了。如图所示: 6. 合并后的效果如下图，我们看到的是合并之后有 8000多行，就是205 页合并后的结果。谢谢.如有疑问,请留言。 Γ? Viπn*f? Iιc?l - ■曲和ill 仙 ￠1 SlhHl ∣? 丁 峙申 帕為*1■兢 φ?c φ Jba-I ll Ldj ΦM ?∏ SEi I iL Of 肝聲 初 5W ∣
excel合并多个工作簿中的工作表 在同一文件夹中有多个工作簿，其中有一个用于汇总的工作簿，要求将除该汇总工作簿外的其它工作簿中的指定工作表的数据汇总到该汇总工作簿中。(这个最好用)代码如下： Sub UnionWorksheets() Application.ScreenUpdating = False Dim lj As String Dim dirname As String Dim nm As String lj = ActiveWorkbook.Path nm = https://www.doczj.com/doc/162728755.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.doczj.com/doc/162728755.html, dirname = Dir(lj & "\*.xls") Application.ScreenUpdating = False For Each sh In Sheets https://www.doczj.com/doc/162728755.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
EXCEL合并多个工作薄中的相同指定工作表到另一个工作薄中文件夹下有600多个工作薄,每个工作薄中有工作表20多个,每个工作薄中都有一个工作表标签为"明细"的工作表,需要将名称为"明细"的指定工作表的数据,汇集罗列到另外一个工作薄的"汇总表"中,如何写vba代码 最佳答案 Sub 合并选定工作簿的第一个工作表() '功能：合并某文件下所有Excel工作簿中的第一个工作表 '使用：将要合并的工作簿拷贝到某文件夹下，新建一个工作簿后执行该宏 Dim WBName As String '汇总工作簿名称 Dim WBCurrent As String '当前正在合并的工作簿 Dim i As Integer Dim FileToOpen As Variant '选定的文件列表 '显示选择文件对话框，使用Ctrl或Shief键选取多个工作簿 FileToOpen = Application _ .GetOpenFilename("Excel Files (*.xls), *.xls", , "请选择要合并的工作簿", , True) '如果没有选择文件则退出 If IsArray(FileToOpen) = 0 Then MsgBox "没有选择文件" Exit Sub End If '不显示合并的过程 = False WBName = '逐个合并工作簿 For i = 1 To UBound(FileToOpen) '打开一个工作簿 Filename:=FileToOpen(i) WBCurrent = '将该工作簿复制到汇总工作簿 Sheets("明细").Copy Before:=Workbooks(WBName).Sheets(1) '将去掉".xls"后缀的工作簿文件名作为工作表名称， = Left(WBCurrent, Len(WBCurrent) - 4) '合并后关闭该工作簿 Workbooks(WBCurrent).Close Next i = True End Sub
同一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.doczj.com/doc/162728755.html, = "RDBMergeSheet" '遍历所有工作表并将数据复制到DestSh For Each sh In ActiveWorkbook.Worksheets If https://www.doczj.com/doc/162728755.html, <> https://www.doczj.com/doc/162728755.html, Then '找到在工作表DestSh中带有数据的最后一行 Last = LastRow(DestSh) '设置希望复制的单元格区域 Set CopyRng=https://www.doczj.com/doc/162728755.html,edRange '测试工作表DestSh中是否有足够的行用来复制所有数据
如何将多个Excel工作簿合并成一个新的工作簿 有多个独立的excel工作簿文件需要合并到一个新的工作簿中，保留原来excel工作簿中各个excel工作表名称和结构。如果量小，可以采用打开一个个复制的方法。若有100多份excel 文件要合并到一个excel工作簿，这样就需要用批量处理多个工作簿的合并（PS：不是工作表）。 1、将需要合并的excel工作簿文件放置在一个文件夹中。 2、在该文件夹中，新建立一个新的excel工作簿文件。 3、打开新建立的excel工作簿文件，将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。 4、在弹出的代码编辑窗口中，输入代码。 5、在代码窗口中，粘贴下列代码： Sub 合并工作薄() 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 6、点击菜单栏运行-运行子过程-用户窗体。关闭代码输入窗口。打开excel工作簿，可以看到下方已经将之前工作簿中的工作表都复制到了这一新建工作簿中。
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.doczj.com/doc/162728755.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.doczj.com/doc/162728755.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、新建一个文件夹，把需要合并的表格都放到新建的文件夹内 2、在新建文件夹内新建一个EXCEL表格 3、打开新建的EXCEL空表格，按ALT+F11，选择“插入-模块”如图：
快速合并单个excel表中的多个sheet的工作页 很多朋友会遇到这样的问题，就是很有很多页的数据，少的有几十页，多的可能有几百页，然后需要合并到一个页面做数据分析，如果一页页的复制粘贴的话，就比较麻烦。下面我就介绍一种利用excel的宏计算来解决这个问题。 方法： 1. 首先我们要有自己的excel数据，并且我们需要的是microsoft excel， WPS没有这些负责的功能。比如我下面举例的，我自己有205页的数据需要合并，如图所示。 2. 看到这么多数据页要合并，如果是复制粘贴的话，工作量就很大了。 我们现在开始合并，首先要在最前页新建一个工作表。如图：
3. 在新建的sheet表中“右键”，找到“查看代码”，然后看到宏计算界面。 如图所示：
4. 看到宏计算界面，我们就只需要把下面的代码复制进去，代码如下， 效果如下： Sub 合并当前工作簿下的所有工作表() Application.ScreenUpdating = False For j = 1 To Sheets.Count If Sheets(j).Name <> https://www.doczj.com/doc/162728755.html, 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, "提示"
批量将多个excel中的多个工作簿合并到一个excel中(2011-01-28 13:33:46)转载▼ 标签：杂谈 将要合并的excel放到一个文件夹中，在这个目录中新建一个excel。 打开新建的excel。 按alt+F11. 插入一个模块。 将下面的东东复制进去。 点击运行。 搞定。 Sub CombineFiles() Dim path As String Dim FileName As String Dim LastCell As Range Dim Wkb As Workbook Dim WS As Worksheet Dim ThisWB As String Dim MyDir As String MyDir = ThisWorkbook.path & "\" 'ChDrive Left(MyDir, 1) 'find all the excel files 'ChDir MyDir 'Match = Dir$("") ThisWB = https://www.doczj.com/doc/162728755.html, Application.EnableEvents = False Application.ScreenUpdating = False path = MyDir FileName = Dir(path & "\*.xls", vbNormal) Do Until FileName = "" If FileName <> ThisWB Then Set Wkb = Workbooks.Open(FileName:=path & "\" & FileName) For Each WS In Wkb.Worksheets Set LastCell = WS.Cells.SpecialCells(xlCellTypeLastCell) If LastCell.Value = "" And LastCell.Address = Range("$A$1").Address Then Else WS.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) End If Next WS Wkb.Close False End If
操作步骤： 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 Var iant 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$, AddressCo lumn$, FileDir$, DataSheet$, myDelimiter$ Dim n, i n = 1 i = 1 = False Worksheets("合并汇总表").Delete Set wsNewWorksheet = (, after:=Worksheets) = "合并汇总表" MyFileName = ("Excel工作薄 (*.xls*),*.xls*") If MyFileName = "False" Then MsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformation, "取消" Else Filename:=MyFileName
学习资料 如何将多个Excel工作簿合并成一个新的工作簿 有多个独立的excel工作簿文件需要合并到一个新的工作簿中，保留原来excel工作簿中各个excel工作表名称和结构。如果量小，可以采用打开一个个复制的方法。若有100多份excel 文件要合并到一个excel工作簿，这样就需要用批量处理多个工作簿的合并（PS：不是工作表）。 1、将需要合并的excel工作簿文件放置在一个文件夹中。 2、在该文件夹中，新建立一个新的excel工作簿文件。 3、打开新建立的excel工作簿文件，将鼠标移动到下方工作表名称sheet1上右键，选择查看代码。 4、在弹出的代码编辑窗口中，输入代码。 5、在代码窗口中，粘贴下列代码： Sub 合并工作薄() 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 仅供学习与参考
excel怎么合并多个工作薄 excel合并工作薄的步骤： 将需要合并的excel工作簿文件放置在一个文件夹中。 每个文件夹中的工作簿都输入了简单的内容。 在该文件夹中，新建立一个新的excel工作簿文件。重命名为8. 在弹出的代码编辑窗口中，输入代码。注意：通过快捷键 Alt+F11打开的窗口如下没有直接复制代码的面板，需要点击左上 方的工程-VBAproject模块，双击sheet1，即可打开代码窗口。而 步骤3中的第二种方法可以直接打开代码输入窗口。 在代码窗口中，黏贴下列代码： SubCombineFiles() DimpathAsString DimFileNameAsString DimLastCellAsRange DimWkbAsWorkbook DimWSAsWorksheet DimThisWBAsString DimMyDirAsString MyDir=ThisWorkbook.path&"\" 'ChDriveLeft(MyDir,1)'findalltheexcelfiles 'ChDirMyDir 'Match=Dir$("")
ThisWB=https://www.doczj.com/doc/162728755.html, Application.EnableEvents=False Application.ScreenUpdating=False path=MyDir FileName=Dir(path&"\*.xls",vbNormal) DoUntilFileName="" IfFileName<>ThisWBThen SetWkb=Workbooks.Open(FileName:=path&"\"&FileName) ForEachWSInWkb.Worksheets SetLastCell=WS.Cells.SpecialCells(xlCellTypeLastCell) IfLastCell.Value=""AndLastCell.Address=Range("$A$1").Add ressThen Else WS.CopyAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Co unt) EndIf NextWS Wkb.CloseFalse EndIf FileName=Dir() Loop Application.EnableEvents=True Application.ScreenUpdating=True
多个excel文件合并成一个文件 1、新建一个文件夹。 2、将要合并的表格放到里面 3、新建一个表格，用excel打开，右击Sheet1选择查看代码。 4、将下列代码复制到文本框中，点击运行，即可成功合并 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.doczj.com/doc/162728755.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("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) & https://www.doczj.com/doc/162728755.html, Wb.Close False End With End If MyName = Dir Loop Range("B1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示" End Sub