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