Excel获取工作表名称的两种方法

1、打开Excel工作簿文档，按ALT+F11组合键进入VBA编辑器窗口

2、单击“插入”菜单中的“模块”命令

3、复制下面的代码，粘贴到模块框中Function gname(x As Integer)If x = 0 Thengname = ActiveSheet.NameElseIf x > 0 And x <= Sheets.Count Thengname = Sheets(x).NameElseIf x > Sheets.Count ThenMsgBox "超出范围"End IfApplication.VolatileEnd Function

4、然后关闭VBA编辑器，返回到Excel工作表界面，在A1单元格键入公式“=gname(ROW(A1))”，向下拖动复制，直到出现0错误为止。