楼主: cxy123_00
2046 2

[问答] 关于多个excel表合成一个excel表求解 [推广有奖]

  • 0关注
  • 0粉丝

小学生

64%

还不是VIP/贵宾

-

威望
0
论坛币
0 个
通用积分
0
学术水平
0 点
热心指数
0 点
信用等级
0 点
经验
39 点
帖子
4
精华
0
在线时间
12 小时
注册时间
2013-5-10
最后登录
2014-8-13

楼主
cxy123_00 发表于 2013-10-15 13:14:35 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信:zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

感谢您参与论坛问题回答

经管之家送您两个论坛币!

+2 论坛币
最近在做个项目,有多个excel表描述信息,这些表有共同的一列,就是人名,怎么把这些表的信息导到一个表里?要不要编程什么的?大神求解答,万分感谢。
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

关键词:Excel表 EXCEL exce xcel cel excel

沙发
coral033 在职认证  发表于 2013-10-30 10:59:58
有共同的索引标志的话,就建立一个新的工作表,通过vlookup函数,连接不同的工作表。
Out of difficulties, makes miracles.

藤椅
matlab-007 发表于 2016-6-18 10:02:01
将这些文件copy到一个文件夹(只有这些Excel,且若打开某一文件,数据就能看见——即不用点其他sheet),建一新Excel,也存到该文件夹。仅打开该新Excel,按Alt+F11,左边窗口右键点,插入模块,在右边窗口粘贴如下代码:

Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = ThisWorkbook.Path & "\"
ChDrive Left(MyDir, 1)      'find all the excel files
ChDir MyDir
Match = Dir$("")
Do
If Not LCase(Match) = LCase(ThisWorkbook.Name) Then
Workbooks.Open Match, 0         'open
ActiveSheet.Copy Before:=ThisWorkbook.Sheets(1) 'copy sheet
Windows(Match).Activate
ActiveWindow.Close
Match = Dir$
End If
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub

直接按F5运行该宏,这些文件copy到了一起。

然后你可以用诸如 =sum(sheet2:sheet13!B2) 把所有sheet的B2的和汇总。

您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群
GMT+8, 2026-1-1 08:58