摘要：
Sub 合并相同格式的工作簿至同一工作簿() Dim i As Integer, arr() Dim dic As Object, wb As Object For j = 1 To 23 '只有23个班,故设为23 Set wb = GetObject(ThisWorkbook.Path & "\" & Trim(Str(j)) & "班\" & "sy.xls") With wb.Sheets("sheet1") i = .Range("A65536" 阅读全文
