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

hh123999

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

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

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

xiezijian

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

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

hh123999

哦，那是文件太大了吗？

hh123999

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

gwxqqq

vba还是很有用处的

扩大知识领域

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


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

e路有你

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

e路有你

原帖由 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

什么都不要改

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