一个excel中多个表格的合并

wjhelijun · 发表于 2013-11-29 14:52

本帖最后由 wjhelijun 于 2013-11-29 16:56 编辑

请教如何把附件表格中的表1和表2进行合并得到最后一张表的结果。

lhdcxz · 发表于 2013-11-29 15:15

本帖最后由 lhdcxz 于 2013-11-29 17:24 编辑

你先看看“对新手谈谈EXCEL的数据结构”这个帖子。
http://club.excelhome.net/thread-1073526-1-1.html
里面有

朱荣兴 · 发表于 2013-11-29 15:23

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

wjhelijun · 发表于 2013-11-29 15:35

朱荣兴发表于 2013-11-29 15:23
上个附件，很简单的问题

能不能说具体点啊

LangQueS · 发表于 2013-11-29 16:24

建议楼主在提出问题时压缩上传简明扼要的 Excel 问题附件及加以说明，最好能做出模拟结果，以便大家了解、测试和解答。(编辑已发贴即可补充上传附件)

Excel Home论坛学习及使用完全攻略(新人必读) http://club.excelhome.net/thread-449518-1-1.html

wjhelijun · 发表于 2013-11-29 16:58

LangQueS 发表于 2013-11-29 16:24
建议楼主在提出问题时压缩上传简明扼要的 Excel 问题附件及加以说明，最好能做出模拟结果，以便大家了解、测 ...

已经按要求编辑改正了希望得到答复谢谢！

LangQueS · 发表于 2013-11-29 17:03

代码参考：

http://club.excelhome.net/forum. ... 365&pid=6005722

wjhelijun · 发表于 2013-11-29 17:22

LangQueS 发表于 2013-11-29 17:03
代码参考：

http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=877365&pid=6005722 ...

如果表格里面还有其它我不想合并的表格怎么办，也就是说能不能选择那些想要合并的表格进行合并。

wjhelijun · 发表于 2013-11-29 17:28

LangQueS 发表于 2013-11-29 17:03
代码参考：

http://club.excelhome.net/forum.php?mod=redirect&goto=findpost&ptid=877365&pid=6005722 ...

而且你这个代码合并后表格的格式都改变了，你给的样本表格太简单了，稍微复杂点的表格就会变了

LangQueS · 发表于 2013-11-30 09:14

参考：

Sub 合并指定工作表() '第一行为标题行，当前表最后列增加“表名”字段
Dim x&, y&, i&, j&, k As Integer
x = Range("a65536").End(xlUp).Row + 1
For k = 1 To 2 '工作表范围为表1至表2
'合并表1
With Sheets(k)
y = .Range("a65536").End(xlUp).Row
z = [IV1].End(xlToLeft).Column '第1行最后列数
aa = Split(Cells(1, z).Address, "$")(1) '转列号为列标
For i = 2 To y
.Range("a" & i).Resize(1, z).Copy Range("a" & x)
Range(aa & x) = Sheets(k).Name
x = x + 1
Next i
End With
Next k
End Sub

复制代码

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2013-11-29 15:23 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[经验交流] 一个excel中多个表格的合并