1.建立一个新的工作表，建在第一个位置

2.打开vb窗口，alt+F11快捷打开，在我们新建的表右键打开查看代码

3.写入代码

自行修改地方：
For i = 4 To Worksheets.Count 4修改为自己要从哪个开始合并，从左往右从1开始数

Cells(i-3, 1) = Worksheets(i).Cells(1, 9) Cells(i-3, 1)是合并后位置，i减你上面数的开始数-1，我从4开始，所以我i-3；Cells(1, 9)就是你每个表要合并的那个单元格位置，几行几列，我是1行9列

Sub Data_()
Dim i As Single
For i = 4 To Worksheets.Count
Cells(i-3, 1) = Worksheets(i).Cells(1, 9)
Next
End Sub

4.运行代码

5.直接关闭或者切到Excel查看就行，已经成功汇总到对应区域