excel如何将一个工作簿中的多个工作表合并到一张工作表上

来源：锐游网

打开你的工作簿新建一个工作表在这个工作表的标签上右键查看代码你把下面的代码复制到里边去，然后上面有个运行运行子程序就可以了，代码如下，如果出现问题你可以尝试工具宏宏安全性里把那个降低为中或者低再试试

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

Range(\"B1\").Select

= True

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

End Sub

因篇幅问题不能全部显示，请点此查看更多更全内容

查看全文