vba合并多个excel文件|如何用vba合并多个excel文件到一个sheet里

❶ VBA合并多个结构相同的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 = 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

❷ 如何用vba合并多个excel文件到一个sheet里

新建一个工作薄，将所有EXCEL表的文件名填到A列中，复制下面VBA代码到工作薄中，保存为excel.xls后执行Subxls()Application.ScreenUpdating=False'Arr数组由所有EXCEL文件名组成arr=[A1:A10]Fori=1ToUBound(arr)Workbooks.Open"文件夹路径\"&arr(i,1)Workbooks(arr(i)(1)).ActivateForj=1ToActiveWorkbook.Sheets.CountSheets(j).CopyAfter:=Workbooks("excel.xls").Sheets(Workbooks("excel.xls").Sheets.Count)NextWorkbooks(arr(i,1)).CloseFalseNextEndSub

❸ vba如何将多个excel合并到一个excel的多个sheet

'打开表格-按ALT+11-点击插入-点击模块-粘贴代码Sub 复制到汇总()Dim Brr(1 To 20, 1 To 1)Dim l As IntegerDim j As IntegerFor l = 1 To Sheets.CountBrr(l, 1) = Sheets(l).NameNextFor j = 2 To Sheets.Count Sheets(Brr(j, 1)).Select EndH = Range("e65536").End(xlUp).Row For i = EndH To 1 Step -1 XX = Range("A" & i).Value If XX <> "" Then m = m + 1 Range("A" & i).EntireRow.Copy Sheets("汇总").Range("a" & m) End If NextNextEnd Sub

❹ EXCEL VBA 合并多个工作薄到一起，个人宏文档无法使用报错

Sub 合并工作薄() Dim FileOpen, Wb As Workbook Set Wb = ActiveWorkbook Dim X As Integer Application.ScreenUpdating = False FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄") X = 1 While X <= UBound(FileOpen) Workbooks.Open Filename:=FileOpen(X) Sheets(1).Move After:=Wb.Sheets(ThisWorkbook.Sheets.Count) X = X + 1 WendExitHandler: Application.ScreenUpdating = True Exit Suberrhadler: MsgBox Err.DescriptionEnd Sub条件是打开的文件都是仅仅一个工作表。

❺ 求VBA合并多个excel表格，并且分类汇总求和

合并表格用vba，合并数据再用power query，分了两步，这样比较省事。

VBA代码：

Sub hebing()

Dim 行号%, 路径$, 文件$, WB As Workbook, SHT As Worksheet

Application.ScreenUpdating = 0

Worksheets("Sheet1").Cells.Clear

Worksheets("Sheet1").Range("A1:C1") = Array("姓名", "数量", "金额")

路径 = "C:est合并"

ChDir 路径

文件 = Dir("*.xlsx")

行号 = 2

Do Until 文件 = ""

Set WB = GetObject(路径 & 文件)

Set SHT = WB.Worksheets(1)

SHT.Range("A2:C" & SHT.UsedRange.Rows.Count).Copy

ThisWorkbook.Worksheets("Sheet1").Cells(行号, 1).PasteSpecial

行号 = ThisWorkbook.Worksheets("Sheet1").UsedRange.Rows.Count + 1

WB.Close

文件 = Dir

Loop

Set WB = Nothing

Sheet1.Select

Sheet1.UsedRange.Select

Sheet1.ListObjects.Add(xlSrcRange).Name = "合并"

Sheet2.[a1].ListObject.QueryTable.Refresh

Application.ScreenUpdating = 1

End Sub

PowerQuery代码：

let

源 = Excel.CurrentWorkbook(){[Name="合并"]}[Content],

分组的行 = Table.Group(源, {"姓名"}, {{"数量", each List.Sum([数量]), type number}, {"金额", each List.Sum([金额]), type number}})

in

分组的行

操作方法：

❻ 一个文件夹中有若干EXCEL，合并多个excel文件,同时文件名称改为列名称，求vba代码，

很简单，但是要求要具体一点：1、合并后的表：第1列是取某张表的第1列，还是所有表的第1列的并集？2、文件夹中的Excel，都是.xls格式的文件吗? 3、合并后的Excel文件保存在哪？

❼ 用excel的VBA合并汇总多个工作薄，每个工作薄的格式一样，需要合并的内

1原始数据所在工作簿包含多个格式相同的工作表，只不过每个工作表内容不同，比如说不同人名的工作表数据或者不同部门填写的数据。2在原始数据同目录下新建一个工作簿，建立两个工作表，名称分别为“首页”和“合并汇总表”。3按Alt+F11进入VBA代码编辑和调试界面。4根据提示，插入一个模块。5将下述代码粘贴到模块空白处：Sub CombineSheetsCells()Dim wsNewWorksheet As WorksheetDim cel As RangeDim DataSource, RowTitle, ColumnTitle, SourceDataRows, SourceDataColumns As VariantDim TitleRow, TitleColumn As RangeDim Num As IntegerDim DataRows As LongDataRows = 1Dim TitleArr()Dim ChoiceDim MyName$, MyFileName$, ActiveSheetName$, AddressAll$, AddressRow$, AddressColumn$, FileDir$, DataSheet$, myDelimiter$Dim n, in = 1i = 1Application.DisplayAlerts = FalseWorksheets("合并汇总表").DeleteSet wsNewWorksheet = Worksheets.Add(, after:=Worksheets(Worksheets.Count))wsNewWorksheet.Name = "合并汇总表"MyFileName = Application.GetOpenFilename("Excel工作薄 (*.xls*),*.xls*")If MyFileName = "False" ThenMsgBox "没有选择文件！请重新选择一个被合并文件！", vbInformation, "取消"ElseWorkbooks.Open Filename:=MyFileNameNum = ActiveWorkbook.Sheets.CountMyName = ActiveWorkbook.NameSet DataSource = Application.InputBox(prompt:="请选择要合并的数据区域：", Type:=8)AddressAll = DataSource.AddressActiveWorkbook.ActiveSheet.Range(AddressAll).SelectSourceDataRows = Selection.Rows.CountSourceDataColumns = Selection.Columns.CountApplication.ScreenUpdating = FalseApplication.EnableEvents = FalseFor i = 1 To NumActiveWorkbook.Sheets(i).ActivateActiveWorkbook.Sheets(i).Range(AddressAll).SelectSelection.CopyActiveSheetName = ActiveWorkbook.ActiveSheet.NameWorkbooks(ThisWorkbook.Name).ActivateActiveWorkbook.Sheets("合并汇总表").SelectActiveWorkbook.Sheets("合并汇总表").Range("A" & DataRows).Value = ActiveSheetNameActiveWorkbook.Sheets("合并汇总表").Range(Cells(DataRows, 2), Cells(DataRows, 2)).SelectSelection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _False, Transpose:=FalseSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseDataRows = DataRows + SourceDataRowsWorkbooks(MyName).ActivateNext iApplication.ScreenUpdating = TrueApplication.EnableEvents = TrueEnd IfWorkbooks(MyName).CloseEnd Sub6在“首页”工作表中按下图示范插入一个窗体控件并指定宏为插入的代码名称。7点击“首页”工作表中插入的按钮，根据提示，浏览到原始数据工作簿。8下一步，用鼠标选择要合并的数据范围。注意：每个工作表数据可能不一样，比如说有的是10行数据，有的是30行数据。在这里我们可以用鼠标选择任意工作表的一个较大范围，比如说A1:D100，保证比最多行数的工作表数据还多就可以，一会再删除空行。9点击确定按钮，待代码运行完毕后，所有的数据就都合并到了“合并汇总表”中。注意：1）A列的文本说明右侧的数据来自于原始数据表的哪个工作表；2）数据之间会有一些空行，下面通过筛选删除。10选中全部数据区域，执行自动筛选。然后选择其中一个字段，选择“空白”和标题内容。11然后将筛选出来的无用行鼠标右键删除，再删除A列整列即可，完成效果

❽ 怎样合并两个EXCEL文件 vba

打开文件1打开文件2遍历文件2中的sheet，至文件1合并完成save

未经允许不得转载：山九号 » vba合并多个excel文件|如何用vba合并多个excel文件到一个sheet里