材料/工具
excel表格
excel工具
方法
将多个excel表放在同一个文在此中输入如下代码:
Sub 合并当前目录下所有工作簿的全部d(xlUp).Row + 1, 1)N = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").
Application.ScreenUpdating = True
MsgBox "共
End Sub
excel表格
excel工具
在此中输入如下代码:
Sub 合并当前目录下所有工作簿的全部d(xlUp).Row + 1, 1)N = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").
Application.ScreenUpdating = True
MsgBox "共
End Sub