kevin_cat的博客

Sub 合并当前工作簿下的所有工作表() Dim ws As Worksheet Dim sh As Worksheet, i% On Error Resume Next '如遇错误继续运行 Application.ScreenUpdating = False '关闭屏幕刷新 Application.DisplayAlerts = False '禁用警告提示 Worksheets("汇总").Delete '删除原汇总表 Set ws = Worksheets.Add(before:=Sheets(1)).

Sub 合并当前目录下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long Dim Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xlsx") AWbName .