跪求大神帮忙！同一个文件夹下的多个相同的分表数据汇总到总表里

xiao11428 · 发表于 2016-10-12 00:15

跪求大神帮忙！在同一文件夹内，有8个工作簿，每个工作簿内有10张不同名的工作表．同名的工作表结构一样，就是要把8个工作簿同名的工作表分别汇总到汇总表同名的工作表中！

xiao11428 · 发表于 2016-10-12 00:19

公司里还有很多同类的报表，都是相同的表格让其他分公司填了以后汇总，能不能实现代码通用，跪求大神帮帮忙，谢谢！

duquancai · 发表于 2016-10-12 00:33

xiao11428 发表于 2016-10-12 00:19
公司里还有很多同类的报表，都是相同的表格让其他分公司填了以后汇总，能不能实现代码通用，跪求大神帮帮忙 ...

工作表，太多了！！！自己写吧！呵呵

lsc900707 · 发表于 2016-10-12 05:46

本帖最后由 lsc900707 于 2016-10-12 07:19 编辑

这么大的公司，居然没有自己的财务软件，还要找义工？
工作表里还有大量的合并单元格>>>>>>>>>>>>>

小花鹿 · 发表于 2016-10-12 09:02

汇总是相加还是罗列，能不能通用要看表结构的特点，看具体情况.....................................................

小花鹿 · 发表于 2016-10-12 09:26

分表数据中有错误值.......................................................................................................

xiao11428 · 发表于 2016-10-12 10:58

大神汇总只要相加就好了，不用管错误的地方，意思就是把分表里的数据移动汇总到总表的相应位置就行

xiao11428 · 发表于 2016-10-12 11:07

大神我原来都是一个表一个表打开然后把其他公司填的内容手动汇总到总表里，我也想公司有财务软件，但是并没有。我只是想用一个科学的方法来减轻自己的工作量仅此而起，希望大神能帮帮忙谢谢

小花鹿 · 发表于 2016-10-12 11:53

xiao11428 发表于 2016-10-12 11:07
大神我原来都是一个表一个表打开然后把其他公司填的内容手动汇总到总表里，我也想公司有财务软件，但是并没 ...

只写了个资产负债表的，其它的自己改吧：
Sub test()
Dim ar, i&, j&, br(1 To 49, 1 To 2)
Dim thisname, thispath, myxls, myname
thisname = ThisWorkbook.Name
thispath = ThisWorkbook.Path & "\"
myname = Dir(thispath & "*.xls")
Do While myname <> ""
If myname <> thisname Then
      Set myxls = Workbooks.Open(thispath & myname)
      ar = myxls.Sheets("资产负债表（DJT）").[h7:i55]
      For i = 1 To 2
         For j = 1 To 49
            If IsNumeric(ar(j, i)) Then
                  br(j, i) = br(j, i) + ar(j, i)
            End If
         Next j
      Next i
      myxls.Close
End If
myname = Dir
Loop
Sheet1.[h7:i55] = br
End Sub

xiao11428 · 发表于 2016-10-12 14:51

非常感谢，第一个表已经成功了，请问大神后面的需要修改什么地方

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

[求助] 跪求大神帮忙！同一个文件夹下的多个相同的分表数据汇总到总表里