ecel如何将一个工作簿中的多个工作表合并到一张工作表上.docx
文本预览下载声明
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
显示全部