文档详情

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

发布:2024-03-09约小于1千字共1页下载文档
文本预览下载声明

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

打开你的工作簿

打开你的工作簿

新建一个工作表

在这个工作表的标签上右键

查看代码 你把下

面的代码复制到里边去,然后上面有个运行

运行子程序就可以了,代码如下,如果出

现问题你可以尝试工具 宏 宏安全性里把那个降低为中或者低再试试

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

=False

Forj=1To

IfSheets(j).Name Then

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

Sheets(j).Cells(X,1)

EndIf

Next

Range(B1).Select

=True

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

EndSub

显示全部
相似文档