excel如何将一个工作簿中的多个工作表合并到一张工作表上
打开你的工作簿新建一个工作表在这个工作表的标签上右键查看代码你把下面的代码复制到里边去,然后上面有个运行运行子程序就可以了,代码如下,如果出现问题你可以尝试工具宏宏安全性里把那个降低为中或者低再试试
Sub合并当前工作簿下的所有工作表()
Application.ScreenUpda来自ting=False
Forj=1ToSheets.Count
IfSheets(j).Name***.NameThen
X=Range("A65536").End(止零xlUp).Row+1
Sheets(j).UsedRange.CopyCells(X,1)
钟才打获EndIf
Next
Range("360问答B1").Select
Application.ScreenUpdating哥题=True
MsgBo离露鲁需异液班劳更念x"当前工作簿下的全部工作表轮诗硫卫已经合并完毕!",vbInformation,"提示"
EndSub