竖排汇总工作表

Sub HuiZong()Dim myfile, mypath, wbApplication.ScreenUpdating = Falsemypath = ThisWorkbook.Pathmyfile = Dir(mypath & "\*.xls*")Do While myfile <> ""If myfile <> ThisWorkbook.Name ThenSet wb = GetObject(mypath & "\" & myfile)With wb.Sheets(1).UsedRange.Offset(1, 0).Copy Sheet1.Range("A" & Sheet1.UsedRange.Rows.Count + 1)End Withwb.Close FalseEnd Ifmyfile = DirLoopApplication.ScreenUpdating = TrueEnd Sub