如何将分表内容汇总到总表中？（用宏，已解决）

systone · 发表于 2009-6-12 08:59

如何将分表当中第50行按“表的顺序”复制粘帖到总表中？
用复制然后选择性粘帖可以解决这个问题，但每天有近50张表，如果都用上述方法，时间花费比较多。
我也录制了宏，但是不能同时在分表中进入下一表且在总表中进入下一行？要使两个同时完成，有什么办法？

上传了新表，原来那个可能会形成误解！

谢谢风之助，答案附件在8楼。
后面帖子是VBA的相关说明。

[ 本帖最后由 systone 于 2009-6-15 10:06 编辑 ]

jsfngf · 发表于 2009-6-12 09:08

用引用应该可以啊，这样的表不应该设计成这样，把简单的问题复杂化了

yc2007 · 发表于 2009-6-12 10:20

是不是这样

汇总.rar (22.17 KB, 下载次数: 241)

systone · 发表于 2009-6-12 15:38

原帖由 yc2007 于 2009-6-12 10:20 发表
是不是这样
529097

有两个问题：

1 =csheetname(ROW(12:12))：表达的是什么？我想可能是SHEET1 SHEET2吗？
2 分表的数据要汇总到另一个工作簿：总表中，而不是在同一个工作簿内？这个应该怎么弄

systone · 发表于 2009-6-12 15:40

原帖由 systone 于 2009-6-12 15:38 发表

有两个问题：

1 =csheetname(ROW(12:12))：表达的是什么？我想可能是SHEET1 SHEET2吗？
2 分表的数据要汇总到另一个工作簿：总表中，而不是在同一个工作簿内？这个应该怎么弄

我重新上传了新复件，你再看看

yc2007 · 发表于 2009-6-12 16:22

你其它表中引用一下

systone · 发表于 2009-6-12 17:46

原帖由 yc2007 于 2009-6-12 16:22 发表
你其它表中引用一下

我知道再建一个新表，会将内容引用到总表中的。但我总表是独立的，如何设置？

风之助 · 发表于 2009-6-12 19:36

在总工作簿中统计分工作簿中表名首字母为数字的所有工作表.

090612.rar (46.5 KB, 下载次数: 405)

systone · 发表于 2009-6-13 09:37

原帖由 风之助 于 2009-6-12 19:36 发表
在总工作簿中统计分工作簿中表名首字母为数字的所有工作表.
529488

Sub HuiZong()

Application.ScreenUpdating = False

Dim wbkT As Workbook, wstT As Worksheet, rngT As Range

bf = False
For Each wbkT In Workbooks
      If wbkT.Name = "分表.xls" Then
         bf = True
         Exit For
      End If
Next
If Not bf Then
      Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "分表.xls"
End If

ThisWorkbook.Worksheets("临时样地调查总表").Activate
iRow = 3
For Each wstT In Workbooks("分表.xls").Worksheets
      If IsNumeric(Left(wstT.Name, 1)) Then
         wstT.Range("A50:Z50").Copy
         ActiveSheet.Range("A" & iRow).PasteSpecial Paste:=xlPasteValues
         iRow = iRow + 1
      End If
Next

Application.ScreenUpdating = True
End Sub

谢谢风之助，我要好好学习一下！
相类似问题，好好解决了！

systone · 发表于 2009-6-15 10:03

Sub HuiZong()

Application.ScreenUpdating = False

Dim wbkT As Workbook, wstT As Worksheet, rngT As Range  '定义变量

bf = False '设置变量值，这个参数他没定定义，这个变量用来表示分表是否打开，false表示没有打开
For Each wbkT In Workbooks             '循环excel中打开的表
      If wbkT.Name = "分表.xls" Then       '判断打开的表中是否有名字叫分表的
         bf = True                      '如果有，设置变量bf为true
         Exit For '退出循环
      End If
Next
If Not bf Then                      '如果bf为false,就是说在前面的循环中没有找到，也就是分表没有打开，则执行下面的语句
      Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "分表.xls"  '打开分表，分表的路径要和总表的路径一样
End If

ThisWorkbook.Worksheets("临时样地调查总表").Activate '使总表处于活动状态，就是说当前焦点是在总表
iRow = 3 '设置变量值，
For Each wstT In Workbooks("分表.xls").Worksheets '循环分表中的每个sheet
      If IsNumeric(Left(wstT.Name, 1)) Then    '如果sheet的名字是数字，则执行下面的语句
         wstT.Range("A50:Z50").Copy  'copy分表中的A50到Z50
         ActiveSheet.Range("A" & iRow).PasteSpecial Paste:=xlPasteValues '粘贴到总表中，从A3开始
         iRow = iRow + 1  '变量+1,下次粘贴从A4开始
      End If
Next

Application.ScreenUpdating = True
End Sub

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

[求助] 如何将分表内容汇总到总表中？（用宏，已解决）

回复

我姐帮忙作的翻译，我想对于初学者很有帮助。