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

systone

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

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

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

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

jsfngf

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

yc2007

是不是这样
汇总.rar (22.17 KB, 下载次数: 241)

2009-6-12 10:20 上传

点击文件名下载附件

systone

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

有两个问题：

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

systone

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


有两个问题：

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

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

yc2007

你其它表中引用一下

systone

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

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

风之助

在总工作簿中统计分工作簿中表名首字母为数字的所有工作表.
090612.rar (46.5 KB, 下载次数: 405)

2009-6-12 19:36 上传

点击文件名下载附件

systone

原帖由 风之助 于 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

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