如何把几个excel表格合并合并成一个到一个excel表

来源：蜘蛛抓取(WebSpider) 时间：2016-12-30 01:47 标签： 把几个excel表格合并
机器控制/过程控制
优化/集成/管理
如何把一个excel文件里的几千张sheet合并成一张sheet?(表结构都相同的)
悬赏分：0 - 解决时间： 08:43:45
问题补充：本来数据分散在各个sheet里，合并后就在一张里，看起来，筛选起来都方便，清楚
把几张sheet合并为一张，比如原来sheet1有10行，sheet2有20行，合并后就是30行
没看到什么注释吗,好象就看到'设置文件路径 这一注释,其他都没有嘛,太少太少
&在表格的文件夹里建立一个文件夹&,这是在哪里弄的?
最主要的是你没衔接好，你这两句“命名CommandButton1”“在表格的文件夹里建立一个文件夹叫 ”当中没有什么“然后”啊，之类的，我是看不大懂啦，不过经过你的解释现在清楚了，还是谢谢你，不好意思哈
在你的程序倒数十行左右有一句Workbooks(&快速汇总多个工作簿..xls&).Sheets(&Sheet1&).Activate，为什么是快速汇总多个工作簿.xls，而不是某个xls的文件名，是你写错了吗？
提问者：renjun24 -
参考一下这个
稍微修改一下就可以用了
注意看注释
你建立一个表格
然后放一个command按钮
命名CommandButton1
在表格的文件夹里建立一个文件夹叫
"快速汇总多个工作簿"
在这个表格里放几个Excel文件
然后点这个按钮看看效果
老大我真的佩服死你了
比方说你在"C:/"下建立一个Excel
你就双击"我的电脑",双击"c盘"
点击鼠标右键,在弹出的菜单中选择新建
然后选择文件夹
然后重新命名就可以了
所以说你要稍微改动一下
这个是以前的东西
我懒得改了!
稍微改一下就可以符合你的要求了
自己看一下~
看过一边 以后你自己要做什么的时候也有点影响
直接拿来用的话以后都不知道怎么修改
Private Sub CommandButton1_Click()
Dim TempLen As Byte
Dim TempCount As Integer
Dim strTempPath As String, ViceName As String
Dim fFile As FileSearch
Dim TempMsgBox As VbMsgBoxResult
Set fFile = Application.FileSearch
With fFile
.LookIn = ThisWorkbook.Path & "\快速汇总多个工作簿" '设置文件路径
.Filename = "*.xls" '文件名称
If .Execute > 0 Then
TempMsgBox = MsgBox("共有" & .FoundFiles.Count & "个文件将被汇总", vbOKCancel, "记数")
If (TempMsgBox = vbCancel) Then
TempCount = 1
strTempPath = .FoundFiles(TempCount)
Debug.Print strTempPath
TempLen = Len(strTempPath)
ViceName = Mid(strTempPath, Len(fFile.LookIn) + 2, TempLen - Len(fFile.LookIn) - 1)
Workbooks.Open strTempPath
Workbooks(ViceName).Sheets("Sheet1").Activate
For i = 2 To 65535
If Workbooks(ViceName).Sheets("Sheet1").Cells(i + 1, 1) = "" Then
Workbooks(ViceName).Sheets("Sheet1").Range("A2:I" & i).Copy
Workbooks("快速汇总多个工作簿.xls").Sheets("Sheet1").Activate
Cells(Range("A2").Offset(TempCount + i - 1, 0).Row, 1).Select
Selection.PasteSpecial Paste:=xlValues
Workbooks(ViceName).Close
TempCount = TempCount + 1
Loop Until TempCount > .FoundFiles.Count
TempMsgBox = MsgBox("目标路径下没有需要汇总的Excel文件", vbOKOnly, "提示")
回答者：参考一下这个
稍微修改一下就可以用了
注 -11-11 09:41:17
其他回答&&&&共 1 条&&&&
11-08 10:43:58
对最佳答案的评论:
评论字数200字以内
北京市光机电产业基地尖子班大厦A座301室&&&&&&电话：010-&&&传真：010-
广州办事处：广州市黄埔区中山大道东170号柏盈商厦首层103室&&&&&&电话： 020-
Copyright (C) &
. All rights reserved.
|京公网安备93|京ICP备号小木虫 --- 500万硕博科研人员喜爱的学术科研平台
&&查看话题
怎样把几百个excel表格合并为一个excel
我下载的基因表达数据是每个样本一个txt文件，也就是200个txt文件，我想把这200个样本及基因的表达值做成一个表格，样本为列，基因为行。可是我的数据是txt文件，还要每个文件打开成excel，再复制相同列粘贴，实在太慢了。有没有师兄师姐做过这方面的，给传授个工具或方法。谢谢！
请问这是什么语言或工具
研究生必备与500万研究生在线互动！
扫描下载送金币
浏览器进程
打开微信扫一扫
随时随地聊科研

我要回帖

更多关于 把几个excel表格合并 的文章

 

随机推荐