求大神帮忙写个vba实现数据汇总

mfkdrgw

求每个表的分类之和 再把数据引用到相对应的表格中 ，有可能我说的不是很明白，希望你们看下附件能懂

chxw68

看了附件也不明白！
求每个表的分类之和：按什么分类？
再把数据引用到相对应的表格中：哪个表格是相对应的表格？

mfkdrgw

chxw68 发表于 2018-9-23 10:40
看了附件也不明白！
求每个表的分类之和：按什么分类？
再把数据引用到相对应的表格中：哪个表格是相对应 ...

11111111111最终数据结果表111111111111111      这个表里有说明，也是数据求和后引用到对应的表

mfkdrgw

朱荣兴 发表于 2018-9-23 11:03
一大堆文件，看得一头雾水

好吧，其实就是一个最终的求和表，其他表都是数据啊，那把那些表的数据引用到一个表上面去

不知道为什么

mfkdrgw 发表于 2018-9-23 11:20
好吧，其实就是一个最终的求和表，其他表都是数据啊，那把那些表的数据引用到一个表上面去

多簿汇总，论坛代码很多，自行搜索。

当然针对你的附件和你的模糊说明，建议你自己手工完成蛮好的！

逆流奇葩

chxw68 发表于 2018-9-23 10:40
看了附件也不明白！
求每个表的分类之和：按什么分类？
再把数据引用到相对应的表格中：哪个表格是相对应 ...

Sub 赋值()
    Dim myPath$, myFile$, sht As Worksheet
    Dim i%
    myPath = ThisWorkbook.Path & "\实验\"     '给路径变量赋值
    myFile = Dir(myPath & "\*.xls")               '用dir函数提取一个文件名
    Application.ScreenUpdating = False           '关闭屏幕刷新
    Application.DisplayAlerts = False            '禁用所有事件
    Do While myFile <> ""                     '当文件名不为空循环
    Workbooks.Open myPath & myFile            '打开我的文件目录中的一个文件
    For Each sht In Sheets                    '对这个文件的每个工作表(这里假设每个文件的工作表数不定)
         For i = 1 To [A65536].End(xlUp).Row
         If sht.Name = "Sheet1" Then
            sht.Range("D4") = [操作表格.xls]Sheet1!.cells(i,1)
         End If
        Next i
    Next                                     '继续循环打开文件的每个工作表
    ActiveWorkbook.Close True                 '关闭打开的工作簿
    myFile = Dir                             '再用dir函数提取一个文件名
    Loop                                      '继续循环，重复上述过程
    MsgBox "己完成,请查看"
    Application.DisplayAlerts = True      '      启用所有事件
    Application.ScreenUpdating = True            '打开屏幕刷新
End Sub

大神帮忙看看这段代码 哪错了 跪谢啊

逆流奇葩

朱荣兴 发表于 2018-9-23 11:03
一大堆文件，看得一头雾水

Sub 赋值()
    Dim myPath$, myFile$, sht As Worksheet
    Dim i%
    myPath = ThisWorkbook.Path & "\实验\"     '给路径变量赋值
    myFile = Dir(myPath & "\*.xls")               '用dir函数提取一个文件名
    Application.ScreenUpdating = False           '关闭屏幕刷新
    Application.DisplayAlerts = False            '禁用所有事件
    Do While myFile <> ""                     '当文件名不为空循环
    Workbooks.Open myPath & myFile            '打开我的文件目录中的一个文件
    For Each sht In Sheets                    '对这个文件的每个工作表(这里假设每个文件的工作表数不定)
         For i = 1 To [A65536].End(xlUp).Row
         If sht.Name = "Sheet1" Then
            sht.Range("D4") = [操作表格.xls]Sheet1!.cells(i,1)
         End If
        Next i
    Next                                     '继续循环打开文件的每个工作表
    ActiveWorkbook.Close True                 '关闭打开的工作簿
    myFile = Dir                             '再用dir函数提取一个文件名
    Loop                                      '继续循环，重复上述过程
    MsgBox "己完成,请查看"
    Application.DisplayAlerts = True      '      启用所有事件
    Application.ScreenUpdating = True            '打开屏幕刷新
End Sub
能不能 帮忙看一下这段代码哪错了？