按住alt依次按f11,i,m粘贴下面的代码后按f5即可全部显示.subtest()foreachshinthisworkbook.sheetssh.visible=truenextendsub另外可以用视图管理器,在所有工作表显示时创建一个视图.下次只需切换到该视图就可以显示全部工作表.