
1、电脑打开Excel表格。
2、按Alt+F11进入VBA。
3、进入VBA后,点击插入模块。
4、点击插入模块后,输入代码
sub m
for each sh in sheets
k=k+1
cells(k,1)=shname
next
end sub
然后点击运行。
5、点击运行后,所有sheet名称就都提取出来了。
已解决
Function si() '所在单元格的y值celly
ApplicationVolatile
si = ApplicationThisCellWorksheetName
End Function
name就是工作表名称,index就是序号
这个是当前工作表,不是活动工作表我今天找到不少,全都是活动工作表我这个给的返回值不会变,活动工作表就是,你正在访问哪个工作表,就返回哪个值,会变,也会出错
方法:插入>名称>定义shtname>在引用位置输入公式>
=SUBSTITUTE(GETDOCUMENT(1),"["&GETDOCUMENT(88)&"]",)&T(NOW())
>确定
在某单元格输入=shtname,就能返回该工作表名称。
提取工作表名,可以用宏表函数getworkbook来实现。
1、点击公式菜单——定义名称命令。在新建名称中输入一个名称,此处为工作表名,在引用位置输入公式:=GETWORKBOOK(1),点击确定。
2、在A1单元格输入公式:=INDEX(工作表名,ROW()),将提取到工作表的表名。
以上就是关于如何获取excel所有sheet名称全部的内容,包括:如何获取excel所有sheet名称、VBA如何获取当前工作表名称(并非当前活动工作表名称)、如何用EXCEL函数提取工作表名等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)