将多个excel表格按列合并

好好的生活6 · 发表于 2017-8-31 12:32

各位亲爱的大神，本人VBA小白，每月需要处理多个表格，其中需要把一个文件夹的多个excel按照列合并到一个excel中去，具体要求已经上传到附件，请大家帮帮忙，看看这个该怎么写VBA代码

好好的生活6 · 发表于 2017-8-31 13:26

本帖最后由好好的生活6 于 2017-8-31 16:29 编辑

大家帮帮忙吧我会一直关注着的，这个附件是前面的补充，前一个需求表格是比较粗糙的，后面是我希望的更完美的模式，但是可能需要加入匹配的功能，不知道有没有大神能帮忙实现以下

补充内容 (2017-9-4 09:21):
大神们，帮帮忙看一下吧，不要沉啊这个问题我小白还是不会啊

rogertroy · 发表于 2017-8-31 16:26

看看是不是这样的

rogertroy · 发表于 2017-8-31 16:27

补充一下，选择文件时可以全部选择你需要的文件

好好的生活6 · 发表于 2017-8-31 16:32

本帖最后由好好的生活6 于 2017-8-31 16:34 编辑

rogertroy 发表于 2017-8-31 16:26
看看是不是这样的

亲，你这个是怎么实现的，具体的方法附件里好像没有吧？还有，我刚才又发了一个附件，不知道那个亲能不能帮忙实现？那个可能需要匹配的功能，会稍微麻烦些吧？

rogertroy · 发表于 2017-8-31 17:50

最好将老户新户对应的所有可能都列出来作为通用表格，这样就没有匹配的问题.
像你表2和表3的新户内容不一致，会麻烦一些

好好的生活6 · 发表于 2017-9-1 10:11

本帖最后由好好的生活6 于 2017-9-1 14:46 编辑

rogertroy 发表于 2017-8-31 17:50
最好将老户新户对应的所有可能都列出来作为通用表格，这样就没有匹配的问题.
像你表2和表3的新户内容不一 ...

恩是的假如我所有的表格第一列都是相同的，那该怎么将他合并成我需要的样子呢？亲，你看下这个附件，这是我在网上找的合并的，我想在这个基础上改一下变成我想要的，可是试了几次都没有成功，尤其是这一句
If Num = 1 Then
Wb.Worksheets(1).[a1].CurrentRegion.Copy .Cells(Rows.Count, 3).End(xlUp).Offset(1, -2)
Else
Wb.Worksheets(1).[a1].CurrentRegion.Offset(1).Copy .Cells(Rows.Count, 3).End(xlUp).Offset(1, -2)
End If
不知道该怎么变动才能变成我想要的形式，不知道你能帮忙下么？

好好的生活6 · 发表于 2017-9-1 16:18

@蓝桥玄霜麻烦老师帮我看一下吧

柚子宏程序开发 · 发表于 2017-9-13 21:25

提示: 作者被禁止或删除内容自动屏蔽

davidn · 发表于 2017-11-15 14:54

rogertroy 发表于 2017-8-31 17:50
最好将老户新户对应的所有可能都列出来作为通用表格，这样就没有匹配的问题.
像你表2和表3的新户内容不一 ...

大神，你是怎么操作的，求方法

		自动登录	找回密码
密码			免费注册

柚子宏程序开发柚子宏程序开发当前离线性别保密 UID 3858863 阅读权限 0 注册时间 2017-9-12 在线时间小时最后登录 1970-1-1 积分 18 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2017-9-13 21:25 来自手机 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报