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