如何用字典功能实现多表合并呢？

lingdo2001 · 发表于 2014-8-8 21:41

“苹果”“梨”“桃子”一个一个表格内容加行不行？
关键是要判断加了之后的最后一行的位置，以及修改变量，是不是？？？

jsxjd · 发表于 2014-8-8 21:57

lingdo2001 发表于 2014-8-8 21:41
“苹果”“梨”“桃子”一个一个表格内容加行不行？
关键是要判断加了之后的最后一行的位置，以及修改变量 ...

Private Sub CommandButton1_Click()
For Each s In Sheets(Array("苹果", "梨", "桃子"))
If s.Name <> "合并" Then s.[A2].Resize(s.[A65536].End(xlUp).Row - 1, 3).Copy Range("A" & [A65536].End(xlUp).Row + 1)
Next
End Sub

复制代码

jsxjd · 发表于 2014-8-8 21:57

多表合并.rar (13.73 KB, 下载次数: 29)

lingdo2001 · 发表于 2014-8-8 22:23

如果表格中间有多余的空列，如附件
怎样可以呢？？？？

请多多指教。。。。

rjtang · 发表于 2014-8-10 12:53

谢谢各位,又学到一个合并案例.

张雄友 · 发表于 2014-8-10 13:06

jsxjd 发表于 2014-8-8 21:57

For Each s In Sheets(Array("苹果", "梨", "桃子")) 学习了。

9527-007 · 发表于 2018-7-28 12:10

张雄友发表于 2014-8-8 18:54
0.05秒够不够快。

这个如果不粘贴公式的话需要怎么改

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

[求助] 如何用字典功能实现多表合并呢？