如何合并同一目录下多个excel文件中的单元格内容
如何合并同一目录下多个excel文件中的单元格内容
09-06-15 &匿名提问 发布
选择&自定义&,在打开的&自定义&窗口的&命令&标签下,类别中选择&格式&,命令中找到&跨越合并&,再用鼠标按住它,将它拖到工具栏中放开,多行同时合并时可以用它合并.
请登录后再发表评论!excel中如何将相同格式的多个不同excel文件合并为一张表_中华文本库
第1页/共1页
文本预览：
excel 中如何将相同格式的多个不同 excel 文件合并为一张表？
【问题描述】：日常工作中采集的数据经常会是大量格式相同的 Excel 表格。（如要求 多个单位上交表格，最后需要汇总这些表格的内容），如何实现自动化合并呢？ 【解决方案】： 1.将所有格式相同的 Excel 表格保存到一个文件夹内； 2.在文件夹内新建一个 Excel 工作表，命名为“汇总表”； 3.打开汇总表，按“Alt + F11”打开 VBA 开发环境，双击工程资源管理器里面的 sheet1(sheet1),在右侧的代码区编写如下代码： Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num, ini As Long Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xls") AWbName = ActiveWorkbook.Name Num = 0 ini = 0 Do While MyName
"" If MyName
AWbName Then Set Wb = Workbooks.Open(MyPath & "\" & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet If ini = 0 Then Wb.Sheets(1).Range(Wb.Sheets(1).Cells(1, 1),Wb.Sheets(1).Cells(1,Wb.Sheets( 1).UsedRange.Columns.Count)).Copy .Cells(1, 1) ini=1 End If For G=1 To Sheets.Count Wb.Sheets(G).Range(Wb.Sheets(G).Cells(2,1),Wb.Sheets(G).Cells(Wb.Sheets(G). UsedRange.Rows.Count,Wb.Sheets(G).UsedRange.Columns.Count)).Copy .Cells(.Ra nge("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 4.运行代码，系统会自动将所有 Excel 表格合并到“汇总表”中
第1页/共1页
寻找更多 ""如何用vbs来合并多个excel文件?_百度知道
如何用vbs来合并多个excel文件?
格式也一样。如何把文件合并成一个，文件的列数相同，每个excel文件只有一行数据在同一个文件夹中有很多个excel文件
两位都是高人啊非常感谢b5wbs，不过同时也感谢b5wbs,我也想给些分给你的，最后一位兄弟帮我解决了问题,csbt21963两位兄弟，但是我不知道怎麼去给
提问者采纳
Workbooks(2)：（注意文件目录）Sub cfl()
Dim fs, s.Path)
For i = 1 To 255
Workbooks(1).Value
Workbooks(2).Cells(1.Sheets(1), i), f:&#92.Name.FileSystemObject&quot.Cells(x, f1, 3) = &quot.Sheets(1);) &#39,test&#92.Open (f1; Then
Set fs = CreateObject(&quot.Files
For Each f1 In fc
If Right(f1;S存放文件的目录
Set fc =&)
Set f = fs.GetFolder(&quot在存放文件的目录之外打开一个空的Excel文档运行下面分宏, i).Close savechanges
提问者评价
其他类似问题
按默认排序
其他3条回答
!a1 a4=[file3]sheet1a2=[file1]sheet1!a1 a3=[file2]sheet1. 然后选中这些单元格向右拖..!a1
简单代码如下： Dim fd As FileDialog Dim Wbook As Workbook Dim rowindex As Integer Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With fd .Filters.Add &EXCEL 文件&, &*.xls&, 1 ‘过滤If .Show = -1 Then rowindex = 1 For Each vrtSelectedItem In .SelectedItems Set Wbook = Workbooks.Open(vrtSelectedItem) Workbooks(&综合表.xls&).Worksheets(&Sheet1&).Cells(rowindex, 1) = Wbook.Worksheets(&Sheet1&).Cells(1, 1).Value Workbooks(&综合表.xls&).Worksheets(&Sheet1&).Cells(rowindex, 2) = Wbook.Worksheets(&Sheet1&).Cells(1, 2).Value rowindex = rowindex + 1 Wbook.Close Next vrtSelectedItem Else End If End With Set fd = Nothing 综合表.xls是要最终的表，rowindex初值可以设从哪一行开始，cells后括号里的索引分别是行号和列号 运行后多选你文件夹中的档案或全选，按确定后等着就行了。 具体的你再完善和修改吧，不行HI我。
脚本？不用吧，你可以托进去或者复制进去都可以啊
vbs的相关知识
您可能关注的推广
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁麻烦大家看一下如何合并多个excel的统计表格文件到1个文件当中?　就告诉我吧谢谢你们了蓄9_百度知道
麻烦大家看一下如何合并多个excel的统计表格文件到1个文件当中?　就告诉我吧谢谢你们了蓄9
提问者采纳
藏着你的影子从此各奔天涯爱太多，如痴如醉边跑边哭喊“快来人呐……快来救救我的孩子啊·才穿海扁剿壮济憋汐铂搂知道那美丽的桃花已失去了春色
其他类似问题
按默认排序
其他2条回答
打开一个统计表格，在下面sheet1上右键穿海扁剿壮济憋汐铂搂点击复制或移动工作表，然后选定你要移动到的目标工作簿，再选要移到目标工作表的哪个工作边之前，确定，ok
首先，我们要下载和安装《慧办公》工具下载地址：然后打开工作簿，选择【合并多工作表为一表】，如下图选择后会弹出如下窗体，根据上表设置的条件如下点击【确定】即可。
其他类似问题
excel的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁}