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

yjwdjfqb

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


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

yjwdjfqb

回复 yjwdjfqb 的帖子

这个是附件

爱疯

没明白题意。
比如，“数据汇总”工作簿的F8单元格，应该是多少？是怎么求来的？

兰色幻想

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

回复 兰色幻想 的帖子

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