excel多文件夹如何合并

1.excel怎么把多个文件合并成一个

如果表不算太多的话可以试试这种方法，打开总表（要粘贴的表），打开一个要复制的表，右击要复制的工作表标签，选择移动或复制工作表，建立副本，选择要移动到表（要粘贴的那总表）。这种方法对合并到同一个文件中还是可行的。

但你说的汇总到一张表里就不行了，可以试试用“=”建立链接（要用相对地址），但这种方法对表结构相同或类似的才可以，而且文件名和表名称要有规律。这样会很快汇总到一张表中，下面的活儿就是整理一下的工作了，要是要数据的话就把链接改成数据才可以，这种方法好在可以动态更新你的数据。

写代码也可以，但若是工作量很大的话可考虑！

新建一个工作表，命名后保存到和与合并的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

2.怎么能把多个excel文件中的sheet,

方法一：用VBA 感谢本文作者：/blog/cns!730C63D0301AC7D0!209。entry 实现的功能是把多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里，并且新工作表的名称等于原Excel文件的文件名。

开发环境Excel2007，但是Excel2003应该也能用，Excel2000似乎不能用。代码如下： '功能：把多个工作簿的第一个工作表合并到一个工作簿的多个工作表，新工作表的名称等于原工作簿的名称 Sub Books2Sheets（) '定义对话框变量 Dim fd As FileDialog Set fd = Application。

FileDialog() '新建一个工作簿 Dim newwb As Workbook Set newwb = Workbooks。Add With fd If 。

Show = -1 Then '定义单个文件变量 Dim vrtSelectedItem As Variant '定义循环变量 Dim i As Integer i = 1 '开始文件检索 For Each vrtSelectedItem In 。 SelectedItems '打开被合并工作簿 Dim tempwb As Workbook Set tempwb = Workbooks。

Open(vrtSelectedItem) '复制工作表 tempwb。Worksheets(1)。

Copy Before:=newwb。 Worksheets(i) '把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx newwb。

Worksheets(i)。Name = VBA。

Replace(tempwb。Name, "。

xls"， "") '关闭被合并工作簿 tempwb。 Close SaveChanges:=False i = i + 1 Next vrtSelectedItem End If End With Set fd = Nothing End Sub 方法二： 录制一个新宏：打开一个excel文件、复制、粘贴、关闭； 然后在菜单[工具]-》[宏]-》VB编辑器 里修改这个宏， 只要改文件名就能复制下一个excel文件， 很多的话，做循环最好，你如果不会，就只好复制800遍那些语句，改800遍文件名了。

运行这个宏，它会自动替你一个一个地打开、复制、粘贴、关闭。 不会再有比一个一个复制更简单的办法了。

3.如何在excel中能让合并的单元格自动排列日期

在C1中输入或复制粘贴下列公式

=IF(ISTEXT(A1),A1,LOOKUP(9E+307,A1:A$1))

或

=IF(ISNUMBER(A1),LOOKUP(9E+307,A1:A$1),A1)

下拉填充

或

取消单元格合并 CTRL+G或F5 定位条件 空值 确定

输入 =A2

CTRL+ENTER

复制A列 右键单击A1 选择性粘贴 数值 确定

选择任一非空单元格 单击常用工具栏上的升序排序或降序排序图标