方法来自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列我们就可以看到获取到的工作表名称。
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件至 951076433@qq.com 举报,一经查实,本站将立刻删除。如若转载,请注明出处:https://www.kaofuzi.com/347340.html