VBA＿利用VBA汇总不同格式工作表数据（对应项是相同的）

yjwdjfqb

VBA＿利用VBA汇总不同格式工作表数据（对应项是相同的）

请老师们帮忙，要求在附件中。。。。先谢谢大家了。。。。

wayy

给你个思路，代码也有好多贴了，自己可以搜一下。
将所有的工作表复制到你要汇总的工作簿当中，然后一个求和公式就可以解决了。
如果需要数值，将公式再转为数值就可以了。

雪日骄阳

顶！
再提供个思路：
看数据源的表都是一样的，只是所处的位置不一样，为此可以以都的有字符“一、医疗收入”为标志，每打开一张表后，查找这个标志，找到后用resize(17，6）扩展到所有要用的区域，将其赋给一数组，这样就可以数组间进行累加了。至于循环打开文件坛子中有很多成熟的代码，不再啰嗦。

yjwdjfqb

有没有那位高手写下代码呀

yjwdjfqb

有没有那位高手写下代码呀

studyexcel

为什么只汇总黄色区域的，这黄色区域看起来有点乱

兰色幻想

Sub 汇总()
  Dim f As String
  Dim wb As Workbook
  f = Dir(ThisWorkbook.Path & "/*.xls")
  Do
    If f <> "汇总.xls" Then
        Set wb = Workbooks.Open(ThisWorkbook.Path & "/" & f)
        wb.Sheets(1).Cells.Find("医疗收入").Resize(18, 6).Copy
        ThisWorkbook.Sheets("汇总表").Range("b5").PasteSpecial Operation:=xlAdd
    End If
    wb.Close False
  f = Dir
  Loop Until Len(f) = 0
End Sub

yjwdjfqb

回复 兰色幻想 的帖子

兰版，是不是，我操作不当，怎么也不行，恳请兰版上传个测试好的附件上来，非常的感谢！！！