批量提取合并EXCEL表格数据 从特定行开始（去表头合并）

OFFICE excel功能着实强大
遇到一大批三调数据需要处理，近100个Excel表格需要合并，导入数据库。
终于在百度各大神的方法下找到了解决方法

1将所有要合并的表格汇总至一个新的文件夹中

2还是在这个文件夹中创建一个新的空excel表，用于将合并后的数据存入

3右击空表表格底部【sheet1】选择【查看代码】

将如下的内容复制进代码中

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 & "\" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Offset(6).Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub

特别注意，因为我需要合并的表格存在三级分类，所以去除了前6行
语句

Wb.Sheets(G).UsedRange.Offset(6).Copy .Cells(.Range(“B65536”).End(xlUp).Row + 1, 1)

中的6就是去除前6行的意思，如果不想去表头，可以写为

Wb.Sheets(G).UsedRange.Copy .Cells(.Range(“B65536”).End(xlUp).Row + 1, 1)

在此贴出借鉴的小伙伴的网页链接

• 从这个链接中知道使用Offset
  http://www.excelpx.com/thread-327488-1-1.html
• 这个链接中借鉴了语句
  https://zhidao.baidu.com/question/96195372.html