合并当前目录下同结构工作簿的工作表

Sub 合并当前目录下所有工作簿的对应工作表()    '适用同结构工作簿
   Dim MyPath, MyName, AWbName
   Dim Wb As Workbook, WbN As String
   Dim G As Long
   Dim HangCount As Long
   Dim LieCount As Long
   Dim Wbs As Long
   Dim Hang As Long
   Dim Lie As Long
   


   Application.ScreenUpdating = False            '关闭屏幕更新,提高运行速度
   MyPath = ActiveWorkbook.Path                  '活动工作簿路径,不包括分隔符和文件名
   MyName = Dir(MyPath & "\" & "*.xls")         '活动工作簿所在文件夹所有工作簿名称(通配.不包括路径)
   AWbName = ActiveWorkbook.Name                '活动工作簿名称
   Num = 0
   Do While MyName <> ""                  '活动工作簿所在文件夹有工作簿文件时
    If MyName <> AWbName Then             '活动工作簿所在文件夹工作簿不是活动工作簿
      Set Wb = Workbooks.Open(MyPath & "\" & MyName)        '打开活动工作簿所在文件夹工作簿,并赋值给Wb
      WbN = WbN & Chr(13) & Wb.Name
     
     For G = 1 To ThisWorkbook.Sheets.Count        '逐个工作表统计
      HangCount = ThisWorkbook.Sheets(G).UsedRange.Rows.Count      '该工作表行数
      LieCount = ThisWorkbook.Sheets(G).UsedRange.Columns.Count   '该工作表列数
      For Hang = 1 To HangCount                                           '该工作表单元格行列循环
        For Lie = 1 To LieCount
         If IsNumeric(Wb.Sheets(G).Cells(Hang, Lie).Value) Then
             ThisWorkbook.Sheets(G).Cells(Hang, Lie).Value = ThisWorkbook.Sheets(G).Cells(Hang, Lie).Value + Wb.Sheets(G).Cells(Hang, Lie).Value
         End If                                                                                   '该工作表单元格为数值,则累加.