如何让单元格的值为下一个工作表的表名

zhanglong2018

如图，想让A2=下一个工作表名“一休”，A3=下下个工作表表名“二需”，如此类推，请教各位应该如何写公式？

hxj119

考虑INDIRECT函数

leepoison

=SHEETSNAME(,1)

zhanglong2018

leepoison 发表于 2024-10-13 09:27
=SHEETSNAME(,1)

不想要sheet2还有办法吗？保留公式删除一行为什么全部删掉了？

zhanglong2018

hxj119 发表于 2024-10-13 00:37
考虑INDIRECT函数

大侠，我不会用啊

leepoison

=INDEX(SHEETSNAME(),,ROW())

你是那块小饼干

=SHEETSNAME(,1)  WPS最新版本

高冷cool

1. Sub CreateSheetsFromNames1()
   
2.     Set a = ActiveSheet
   
3.     x = a.Range("A" & a.Rows.Count).End(xlUp).Row'a列
   
4.     For i = 2 To x
   
5.         Set name_range = a.Cells(i, 1) '假设人名在Sheet1的A列，可根据实际情况修改
   
6.         If Not IsEmpty(name_range.Value) Then '确保单元格不为空
   
7.             Set NewSheet = Sheets.Add
   
8.             NewSheet.Name = name_range.Value
   
9.         End If
   
10.     Next
    
11. End Sub

复制代码

前提是没有重复的