汇总的时候少了一列啊，请大家帮忙看看

saifouy

Sub Macro1()
    Dim MyPath$, MyName$, sh As Worksheet, arr
    Set sh = ActiveSheet
    MyPath = ThisWorkbook.Path & "\"
    MyName = Dir(MyPath & "*.xls")
    Application.ScreenUpdating = False
    [a1].CurrentRegion.Offset(2).ClearContents
    Do While MyName <> ""
        If MyName <> ThisWorkbook.Name Then
            With GetObject(MyPath & MyName)
                arr = .Sheets(1).[a1].CurrentRegion.Offset(1)
                sh.[a65536].End(xlUp).Offset(1).Resize(UBound(arr) - 1, 8) = arr
                .Close False
            End With
        End If
        MyName = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "ok"
End Sub

只汇总到H列，没有到I列。为毛啊为毛？？？
附件是样本表和统计表 征订汇总表.zip (16.69 KB, 下载次数: 3)

2014-4-8 15:29 上传

点击文件名下载附件

saifouy

好我知道了，我是猪头。。。。。。I是9.。。。。。。