1.指定文件夹
365版：数据→获取数据→自文件→从文件夹→浏览→选择“源文件”→确定→编辑
2016版：数据→新建查询→从文件→从文件夹→浏览→选择“源文件”→确定→编辑
2013版：Power Query→从文件→从文件夹→浏览→选择“源文件”→确定→编辑 。
2.读取文件内容
将content以外的列全部删除 ， 点表头右键删除其他列 ， binary是二进制的意思 ， 所以要添加个函数翻译一下内容 。 具体方式：添加列→自定义列→新列名取个你喜欢的名字 ， 自定义列公式Excel.Workbook([Content],true) 。 注意公式区分大小写 ， 不能写错 ， content是插入的 ， true是绕开第一行的意思 。 当然你可以复制粘贴这个公式到=后面 ， 这样更省事 。
3.合并工作表
确定后 ， 文件都翻译好了 ， 但是我们希望看到的是文件里面的表单 ， 所以 ， 扩展一下 ， 只保留data ， 然后再次扩展 ， 确定 ， 就可以看到 ， 已经有了合并的单子 。
4.将合成的表格转化为Excel文件
左上角关闭并上载至 ， 选择自己想要存的位置 ， 完成 。
这个合并编辑完成后 ， 只要文件夹里的内容变了 ， 在新文件中设计刷新一下就行 ， 就能体现在新合并的Excel中 ， 功能逆天 。 你可以去试试 。
怎样把多个excel文件合并成一个 操作设备：戴尔电脑
操作系统：win10
操作软件：Excel2016
1、将需合并的Excel文件放在同一个文件夹中 。
2、打开新建的Excel文件 ， 按 Alt + F11 键 ， 打开宏 ， 选择视图→代码窗口 。
3、将下面的代码拷贝粘贴到代码窗口中：
Sub sheets2one()
'定义对话框变量
Dim cc As FileDialog
Set cc = Application.FileDialog(msoFileDialogFilePicker)
Dim newwork As Workbook
Set newwork = Workbooks.Add
With cc
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:=newwork.Worksheets(i)
newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set cc = Nothing
End Sub
4、点击菜单“运行”—“运行子过程/用户窗体” 。
5、在弹出选择对话框中 ， 选择要批量合并的Excel文件 ， 点击“确定”即可合并为一个Excel工作簿 。
6、点击“确定”后 ， 运行合并即可 。
推荐阅读
- 电脑知识|excel选项按钮如何设置，excel下拉菜单选项怎么添加
- 王者荣耀：露娜传说上线将至，貂蝉唤灵魅影销量受影响
- 电脑知识|excel工具栏如何取消隐藏的，excel怎么取消0自动隐藏
- 电脑知识|如何制作excel工作表，excel工作表的序号怎么输入
- 电脑知识|excel如何下拉数字递增，excel下拉数字中间数字递增
- 电脑知识|如何做数据统计，excel统计数据分布统计
- 王者荣耀：新英雄老夫子即将迎来削弱，大量玩家说他需要削弱
- 电脑知识|动态壁纸怎么制作，制作电脑动态壁纸
- 电脑知识|win怎么读，电脑的win中文读音
- 电脑知识|苹果电脑怎么删除照片，mac相簿照片无鼠标删除