如何把不同工作表中的相同表格合并到同一工作表当中？

hh123999 · 发表于 2011-3-1 20:44

向您学习了。
楼主可以用这段代码创建一个宏，使用时执行宏就可以了，只是还缺做个按钮。

Sub CpyData()
Dim Sh As Worksheet, i%

i = 0
For Each Sh In Sheets
      If Sh.Name <> "汇总" Then
         i = i + 1: If i = 1 Then Sh.Rows(1).Copy [A1]
         Sh.UsedRange.Offset(1).Copy [B65536].End(3).Offset(1, -1)
      End If
Next
End Sub

hh123999 · 发表于 2011-3-1 20:46

应该可以的，你看上传附件的格式包括jpg

xiezijian · 发表于 2011-3-1 20:52

原帖由 hh123999 于 2011-3-1 20:46 发表
应该可以的，你看上传附件的格式包括jpg

上传不了原因就是图片的大小超出限制了。

hh123999 · 发表于 2011-3-1 21:01

哦，那是文件太大了吗？

hh123999 · 发表于 2011-3-1 21:03

我刚才做了个gif文件，才11k，够小了啊

gwxqqq · 发表于 2011-3-1 21:12

vba还是很有用处的

扩大知识领域 · 发表于 2011-3-1 21:16

select *,"一公司" as 公司名称 from [一公司$] union all
select *,"二公司" from [二公司$] union all
select *,"三公司" from [三公司$]

这些语句是什么意思？如何运用？

e路有你 · 发表于 2011-3-1 21:59

之前得的，刚才上传时大小也没超出限制，QQ截取的，不知道是什么原因

e路有你 · 发表于 2011-3-2 00:55

原帖由 hh123999 于 2011-3-1 20:44 发表
向您学习了。
楼主可以用这段代码创建一个宏，使用时执行宏就可以了，只是还缺做个按钮。

Sub CpyData()
Dim Sh As Worksheet, i%

i = 0
For Each Sh In Sheets
If Sh.Name "汇总" T ...

只是复制值，不要公式，又应该怎样写VB

lhdcxz · 发表于 2011-3-2 13:42

什么都不要改

[ 本帖最后由 lhdcxz 于 2011-3-2 13:44 编辑 ]

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

[求助] 如何把不同工作表中的相同表格合并到同一工作表当中？

回复 19楼 xiezijian 的帖子

回复 20楼 e路有你的帖子

回复 23楼 xiezijian 的帖子

回复 23楼 xiezijian 的帖子

回复 22楼 hh123999 的帖子

[求助] 如何把不同工作表中的相同表格合并到同一工作表当中？

回复 19楼 xiezijian 的帖子

回复 20楼 e路有你 的帖子

回复 23楼 xiezijian 的帖子

回复 23楼 xiezijian 的帖子

回复 22楼 hh123999 的帖子

回复 20楼 e路有你的帖子