========================================另外一个合并方式Sub 合并()&&& Dim i As Integer&&& For i = 1 To Worksheets.Count Step 1&&&&&&& Worksheets(i).Range("1:" & Worksheets(i).[a65536].End(3).Row).Copy [a65536].End(3).Offset(1)&&& NextEnd Sub=========================================已经成功的宏方法**********Sub 合并方法2()&&& Dim i As Integer&&& For i = 1 To Worksheets.Count Step 1&&&&&&& Worksheets(i).Range("1:" & Worksheets(i).[a65536].End(3).Row).Copy [a65536].End(3).Offset(1)&&& NextEnd Sub==============================================================
宏替换代码：
Sub 删所有()&&& Cells.Replace What:="座", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False&&& Cells.Replace What:="号", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False&&& Cells.Replace What:="楼", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False&&& Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False&&& Cells.Replace What:="幢", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False&&& Cells.Replace What:="栋", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False&&& Cells.Replace What:="室", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False&&& Cells.Replace What:="null", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=FalseEnd Sub
---------------
Sub 删楼字()&&& Cells.Replace What:="楼", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=FalseEnd SubSub 删号字()&&& Cells.Replace What:="号", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=FalseEnd SubSub 删幢字()&&& Cells.Replace What:="幢", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=FalseEnd SubSub 删空格字()&&& Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=FalseEnd SubSub 删室()&&& Cells.Replace What:="室", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=FalseEnd SubSub 删xx小区()&&& Cells.Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder _&&&&&&& :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=FalseEnd Sub=============================================================
Excel表格 如何使同在一个单元格内的文字与数字分离
文字在左，数字在右。
&=LOOKUP(9E+307,--RIGHT(E89,ROW($1:$99)))
如上图：会将右侧的数字都取出来。
文字在右，数字在左。
=LOOKUP(9E+307,--LEFT(E89,ROW($1:$99)))
-----------------------------------------------
将excel中汉字和数字分开：
比如：A1：张三A2：李四/A3：/张三
先把所有的"/"&，|、 &空格等都替换掉（使用查找与替换功能）然后B1={=MID(A1,MATCH(TRUE,CODE(MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))&255,),LENB(A1)-LEN(A1))}C1=SUBSTITUTE(A1,B1,"")注意B1中的公式为数组公式，输入结束后按Ctrl+Shift+Enter结束。-------------------------------------------------------------------------------
阅读(...) 评论()怎样把多个EXCEL表格合并成一个EXCEL表格
怎样把多个EXCEL表格合并成一个EXCEL表格
我有多个EXCEL表，但是他们都是分了多个EXCEL文档，一个EXCEL文档只有一张表格，我想把多个EXCEL变成一个EXCEL里面有很多页，也就是把多页放在一个EXCEL里，但是那些表格怎么移过来呢，请高手指教！
补充：按照你这样说的，我只能移一个EXCEL，我想移多个EXCEL，为什么移不了呢，怎么都只能移一个啊？？？高手指教！我想把多个EXCEL一起移到一个EXCEL怎么移不了呢？
补充：我不是要表格合并，是要文档合并啊！
补充：我不想下载工具箱，有没有什么可以在EXCEL里就能完成的啊！帮帮忙啦！
补充：怎么说得这么复杂，SOSO用户 说得有点道理，就差那么一点，为什么只能移一个EXCEL，怎样移多个EXCEL呢？？？各位指教啊！
同时打开目标文件，如你要把EXCEL1、电视维修资料、EXCEL2.....等复制到“电视机维修记录.xls”中。先把这些文件打开，然后将窗口切换到“电视维修资料.xls”在工作表名称--右键---移动或复制工作表（M）..----在弹出的窗口中选择 电视机维修记录.xls，移动至最后，建立副本前面的勾打，确定就可以啦。其它的重复上面的做法就可以。
我怎么只能移动一个EXCEL，我有多个EXCEL，怎样才能放到一个EXCEL里面一起啊，你的办法我怎么只能移过来一个，第二个，第三个就移不过来了呢？
的感言：谢谢你
略懂社热议
先复制后粘贴！
直接都打开，然后复制在一个里面啊！
创建多个页面啊！....
要移到其中一张表格只能一张一张复制粘贴过来了;表格里面都自动有三张工作表,如果少了可以在工作表(sheet1)任意一张工作表上右击点"移动或复制工作表",在选(移至最后),把"建立副本"前的框选住,按确定就可以添加工作表了.
顺着复制粘贴就行了啊！
新建一个工作表，命名后保存到和与合并的100个文件同一个文件文件夹，摁 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。 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 = ActiveWorkbook.Name 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) & Wb.Name 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必备工具箱，安装成功后会在Excel文件菜单上生成一个“工具箱”。第一步：将多个工作簿内的每一张表合并到一个工作簿：点工具箱→工具集锦→汇总→文件合并→确定→选中你需要合并的所有文件（鼠标左键点需要合并的第一个文件，然后按Shift不松，鼠标左键点需要合并的最后一个文件）→上移、下移调整好位置→确定。第二步：将一个工作薄内多个工作表合并：点工具箱→工具集锦→汇总→表格合并→确定→来自当前文档→请指定处理范围（根据你表格的具体情况设置）→确定→指定数据来源（按你的要求将需要合并的表格打钩→确定
完成第一步就完成了你的文档合并
没有更好的办法，“Excel必备工具箱”没有任何插件，非常实用，尤其是对经常使用电子表格的人。
略懂社热议
等待您来回答
微软专区领域专家
&SOGOU - 京ICP证050897号君，已阅读到文档的结尾了呢~~
把几个Excel文档中的工作表(sheet)合并到同一工作簿中(图文)文档,合并,到一,文档中,EXCEL,合并到一,工作簿,Sheet,工作表,工作簿中
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
把几个Excel文档中的工作表(sheet)合并到同一工作簿中(图文)
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口