前提: excel里sheet页特别多 鼠标放到sheet页上,右键"查看代码",弹出框,选中相应的sheet页或thisworkbook,将下述代码复制进去 sub listsht() dim i& for i=1 to sheets.count cells(i,1)=sheets(i).name next end sub 所有的sheet页名即显示 在选中的sheet页A列上,thisworkbook会显示在最后一个sheet页A列上! thisworkbook