如何讲其他表格的内容汇总到总表中(累计追加)

qcw911 · 发表于 2010-3-18 23:13

sheet1    aaaaaaaaaaaa
               bbbbbbbbbb
               cccccccccc
               dddddddddd

sheet2    aaaaaaaaaaaa
               bbbbbbbbbb
sheet3       cccccccccc

sheet4    dddddddddd

lb_bn · 发表于 2010-3-18 23:23

建议上传附件。
一般可以用for each
或用sql.

qcw911 · 发表于 2010-3-18 23:29

附件穿上
谢谢

lb_bn · 发表于 2010-3-18 23:40

Sub bbb()
With Sheets("汇总")
      If .[b65536].End(3).Row > 5 Then
         ActiveSheet.UsedRange.Copy .[b65536].End(3)(2, 1)
      Else
         ActiveSheet.UsedRange.Copy .[b6]
      End If
End With
End Sub

qcw911 · 发表于 2010-3-18 23:48

如果首页追加个按钮
其他页一起导入呢
怎么办呢

lb_bn · 发表于 2010-3-18 23:55

Sub bbb()
With Sheets("汇总")
for each sh in thisworkbook.sheets

      If .[b65536].End(3).Row > 5 Then
         sh.UsedRange.Copy .[b65536].End(3)(2, 1)
      Else
         sh.UsedRange.Copy .[b6]
      End If

next
End With
End Sub

qcw911 · 发表于 2010-3-19 18:38

还是出现问题
我把我原件上传上
a里面的数据一天一次追加到all里面之前的数据不能删除
b里面的数据一天一次追加到all里面之前数据也不能删除

复制后应该是值得粘贴，不能有颜色还有格式什么的
all里面a1行里面自动追加序号

lb_bn · 发表于 2010-3-19 19:35

。。。。。
楼主这个表数据不多，就手动操作也不会花多少时间的。

qcw911 · 发表于 2010-3-19 19:46

呵呵，我公司是有很多人，相当于a，b
，c，d。。。。。。我把表格设置成共有，每次都粘贴，想省去这一步

execl · 发表于 2010-3-19 20:09

关注。。。。。。。

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

[分享] 如何讲其他表格的内容汇总到总表中(累计追加)

最新热点 /1