【正文】
Chr(13) amp。 個(gè)工作薄下的全部工作表。 False End With End If MyName = Dir Loop Range(A1).Select = True MsgBox 共合并了 amp。 MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range(A65536).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) 4) For G = 1 To (G). .Cells(.Range(A65536).End(xlUp).Row + 1, 1)