汇总代码出错，请修改，谢谢

saifouy

VB入门，总是汇总出错行，请帮忙修改下。
要求：
汇总固定格式，任意文件名的EXCEL中的固定那行。
固定格式如下


汇总对象是黄色那行。我半抄半学弄的代码如下：
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) - 3, 9) = arr
                .Close False
            End With
        End If
        MyName = Dir
    Loop
    Application.ScreenUpdating = True
    MsgBox "ok"
End Sub



发现每次都是从标题下面那里开始汇总，泪崩。不懂Resize的人请教如何修改。谢谢了！

chxw68

arr = .Sheets(1).[a1].CurrentRegion.Offset(1)
sh.[a65536].End(xlUp).Offset(1).Resize(UBound(arr) - 3, 9) = arr
将上面两句改成下面两句试试：
arr=.sheets(1).range("a4").resize(1,9)
sh.[a65536].End(xlUp).Offset(1,0).Resize(1, 9) = arr

saifouy

不明白RESIZE的用法。谁给科普下，我百度过，也不太懂。哈哈
谢谢楼上的哥哥！

chxw68

VBA中的帮助。楼主要习惯使用帮助。
Resize 属性
参阅应用于示例特性调整指定区域的大小。返回 Range 对象，该对象代表调整后的区域。

expression.Resize(RowSize, ColumnSize)
expression      必需。该表达式返回要调整大小的 Range 对象。

RowSize      Variant 类型，可选。新区域中的行数。如果省略该参数，则该区域中的行数保持不变。

ColumnSize      Variant类型，可选。新区域中的列数。如果省略该参数。则该区域中的列数保持不变。

示例
本示例调整 Sheet1 中选定区域的大小，使之增加一行和一列。

Worksheets("Sheet1").Activate
numRows = Selection.Rows.Count
numColumns = Selection.Columns.Count
Selection.Resize(numRows + 1, numColumns + 1).Select
               
本示例假定在 Sheet1 中有一个包含标题行的表。本示例选定该表，但不选定标题行。运行本示例之前，活动单元格必须处于该表中。

Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
    tbl.Columns.Count).Select

saifouy

谢谢大神~~~~~~~~~~~~~~~~~mobai