如何复制每个分表中的一列数据到汇总表，并对数据进行汇总

zax010

kszcs 发表于 2014-11-26 18:44
zax010你好：
能帮忙看看怎么修改15楼的代码汇总吗
谢谢！

Sub zz()
    Dim f$, p$, wb As Workbook, a, b, a1, b1
    Application.ScreenUpdating = False
    Set wb = ThisWorkbook
    wb.Sheets("sheet1").Range("C4:D47,G4:H47").ClearContents
    a = wb.Sheets("sheet1").Range("C4:D47")
    b = wb.Sheets("sheet1").Range("G4:H47")
    p = ThisWorkbook.Path & "\"
    f = Dir(p & "*.xls")
    Do While Len(f)
        If f <> ThisWorkbook.Name Then
            With GetObject(p & f)
                a1 = .Sheets(1).Range("c4:d47")
                b1 = .Sheets(1).Range("g4:h47")
                .Close False
            End With
            For i = 1 To UBound(a)
                For j = 1 To UBound(a, 2)
                    a(i, j) = a(i, j) + a1(i, j)
                    b(i, j) = b(i, j) + b1(i, j)
                Next
            Next
        End If
        f = Dir
    Loop
    wb.Sheets("sheet1").Range("C4:D47") = a
    wb.Sheets("sheet1").Range("G4:H47") = b
    Application.ScreenUpdating = True
End Sub

zax010

kszcs 发表于 2014-11-26 18:44
zax010你好：
能帮忙看看怎么修改15楼的代码汇总吗
谢谢！

>>>>>>>>>>>>>>>>>>
各个工作簿对应单元格汇总.rar (43.23 KB, 下载次数: 27)

2014-11-26 22:03 上传

点击文件名下载附件

LMY123

arr = rs.getRows,ADO+字典