Excel获取工作表名称的两种方法,一起来学习一下吧
方法来自1
打开Excel表格。
按ALT+F11组合键进入VBA编辑器窗口。
单击【插入】菜单中的【模块】命令。
复制下面的代码,粘贴到模兼施扬块篇拒框中
Function gname(x As Inte360新知ger)
If x = 0 Then
gname = ActiveSheet.Name
ElseIf x > 0 And x <= Sheets.Count Then
gname = Sheets(x).Name
ElseIf x > Sheets.Count Then
MsgBox "超出范围"
End If
Application.Volatile
End Function
然后关闭VBA编辑器,返回到Excel工作表界面,在A1单元格键入公式【=gname(ROW(A1))】,向下拖动复制,直到距睡出现0错误为止。
方法2
打开Excel工作簿文档,按下ALT+F11组合键,打开VBA编辑器窗口
单击菜单栏上的【插入】-【模块】命令。
将下面的代码拷贝到模块文本框中
Sub vba获取工护渐作表名称()
For x = 1 To Sheets.Count
Cells(x, 1) = Sheets(x).Name
Next x
End Sub
按F5键或单击工具栏的“运行”按钮即可实现用vba获取工作表名称的效果。
点击【运行】。
关闭VBA编辑器窗口,返回Excel工作表界面,在A列我们就可以看到获取到的工作表名称。