[已解决]怎么把一个工作薄中很多个工作表的内容表现一个工作表上

cyt381828864

回复 天马 的帖子

不好意思，现在才回复你，我下载了文件，但是打不开，不管我把宏的安全性设置多低都运行不了，是怎么了？

pubuflash

11.zip (37.29 KB, 下载次数: 79)

2011-5-11 11:45 上传

点击文件名下载附件 这个应该满足你的要求，
我在实际工作中解决过比这还难的，包括跨工作簿复制汇总，自动打开指定工作簿复制后，程序自动关闭。

cyt381828864

回复 pubuflash 的帖子

只能用宏的办法吗，可是我一点都不懂宏，虽然做出来了，但我看不懂，如果我后面不止四张表，有很多几十张表的话，我把你设定的宏复制过去还起作用么

天马

cyt381828864 发表于 2011-5-11 10:41
回复 天马 的帖子

不好意思，现在才回复你，我下载了文件，但是打不开，不管我把宏的安全性设置多低都运行 ...

1、宏的安全性设置为中。
2、宏安全性－－－可靠发信商－－勾选两项（信任所有的加载项和模板  信任对于VBA的访问）
见下图

cyt381828864

回复 天马 的帖子

哦，谢谢啊，嘿嘿，想请教一个很白的问题，用技巧那些都不行是不是，主要是我一点都不懂宏，我的表的数量大，我把你的宏复制进去是全部表都会显示在一张表里吗？

gulianzui

我也有上百种表格,想汇入一个表里,就是复制粘贴,怎么弄

pubuflash

回复 天马 的帖子

vba多工作表追加复制.zip (43.68 KB, 下载次数: 93)

2011-5-12 10:36 上传

点击文件名下载附件
   不管你有多少个表，只要不超过256个，且表格格式完全一样，应该没问题吧。
注意，不能更改汇总表的名字，如果你懂vba，当然可以在以下程序语句中将Set wk = Worksheets("汇总表")中汇总表字样改成你所需的名字
我在程序中还给你加了颜色，即每一个表的开始行和最后一行，均用红色显示
    你也将以下程序代码复制到你已有工作簿中，方法：工具——宏——visual Basic 编辑器——光标移至窗口左上角随便点一个工作表名字——右键
——快捷菜单中选插入——模块——然后将以下代码复制到模块中。
第二步：设置按钮，指定宏。
    如果你不能设置的话，建议你将你原有的表添加到我给你的表后，直接用。
Sub 多表汇总()
On Error Resume Next
Set wk = Worksheets("汇总表")
wk.Range("m12").ClearContents      ‘提示复制了多少行数据
p = 0
wk.Range("a" & 2 & ":k" & 65000).Interior.ColorIndex = 0      
For Each sh In Worksheets
  shname = sh.Name
  j = wk.Range("a65536").End(xlUp).Row
  If shname <> "汇总表" Then
      n = sh.Range("a65536").End(xlUp).Row
      sh.Range("a2:k" & n).Copy wk.Range("a" & j + 1)
      wk.Range("a" & j + 1 & ":k" & j + 1).Interior.ColorIndex = 3
      p = p + n - 1
  End If
Next
wk.Range("m12") = "本次共追加复制了" & p & "行数据"
End Sub

天马

cyt381828864 发表于 2011-5-12 09:04
回复 天马 的帖子

哦，谢谢啊，嘿嘿，想请教一个很白的问题，用技巧那些都不行是不是，主要是我一点都不懂 ...

假如你的那件工作表也跟你上传的附件一样，在一个工作簿里，应该可以的。但需新建一个名为“汇总”的工作表
如下图中一样。

天马

还要说的是，需增加一个按钮“汇总”来指定宏的操作。如这个也不会，就只有一个老实的办法，把你那个工作表移动复制到这个工作簿中了。代码中没有新增工作表“汇总”这个代码。

cyt381828864

回复 天马 的帖子

哦，谢谢你了，看来我得努力学习VBA了，就是那个汇总按钮，按你上面的宏复制到我的工作表中就可以了，是吧，我试一下