Excel如何将一个工作表中的多个sheet合并到一个sheet中

1、打开需要将所有单个的EXCLE表合到到一个表的工作簿，新建一个工作表在这个工作表中录入ALT+F11

2、你把下面的代码复制到里边去

3、上面有个运行，运行子程序就可以了。

代码如下

Sub 合并当前工作簿下的所有工作表()

= False

For j = 1 To

If Sheets(j).Name <> Then

X = Range("A65536").End(xlUp).Row + 1

Sheets(j). Cells(X, 1)

End If

Next

Range("B1").Select

= True

MsgBox "当前工作簿下的全部工作表已经合并完毕！", vbInformation, "提示"

End Sub