excel表格
excel工具
在此中输入如下代码:
Sub 合并当前目录下所有工作簿的全部d(xlUp).Row + 1, 1)N = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").Application.ScreenUpdating = TrueMsgBox "共End Sub
暂未发布评论