分享

excel提取工作表名称2宏函数

 c857084163 2023-03-24 发布于浙江

【2】excel提取工作表名称函数 

10/Excel | 给工作表建目录:函数法+非函数法

https://www.toutiao.com/a6660406492832727559/

9/Excel技巧<第17篇>:从"提取工作表的名称"看思路

https://blog.csdn.net/weixin_30374009/article/details/98299950

https://blog.csdn.net/xg_an/article/details/877383?utm_medium=distribute.pc_relevant.none-task-blog-baidujs-4&spm=1001.2101.3001.4242

8)Excel 通过什么函数获取工作表名称

https://zhidao.baidu.com/question/1579027058010224940.html

提取工作表名,可以用宏表函数get.workbook来实现。

  1、点击公式菜单—定义名称命令。在新建名称中输入一个名称,此处为工作表名,在引用位置输入公式:=GET.WORKBOOK(1),点击确定。

  2、在A1单元格输入公式:=INDEX(工作表名,ROW()),将提取到工作表的表名。

7)EXCEL中如何用公式提取工作表标签名称

https://jingyan.baidu.com/article/86fae3461455c53c48121a4e.html

完整的提取公式为:

=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,99),

这里的99是泛指,假设工作表名没有这么多字符,如果要按实选取,还要再判定下字符长度,公式会变得很长,在这里没这必要。在设计公式时,只要达到目的,能简化的尽量简化。

http://club./thread-1409407-1-1.html

=REPLACE(CELL("filename"),1,FIND("]",CELL("filename")),)

=MID(CELL("filename"),FIND("]",CELL("filename"))+1,255)

用find找到“["的位置再加1,然后用mid来提取“[”后的字符串,255是提取字符串的个数,一般来说要不了这么大,不过再大一点也无所谓,保证全部兜底。

  BBS:如果每张表中都设=MID(CELL("filename"),FIND("]",CELL("filename"))+1,255)这个公式取表名,你会发现所有表都是同一个被激活的表名,用=MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,255)这个好象不会,只显示公式所在表的名字。cell一般最好带上单元格定位,这样不容易出错.

6)【干货!快速提取Excel工作簿内所有工作表名称,支持无限自动更新】复制这条信

息€80xvE€MQf7ox€后打开今日头条极速版

怎么快速提取一个excel文件中的所有工作表名

https://zhidao.baidu.com/question/1888119942888706708.html

5)当要在工作表的一个单元格中插入当前工作簿名称时,可用这个函数。

 这时使用 CELL() 函数, 显示如下.

C:\Users\ADMINI~1\AppData\Local\Temp\Rar$DIa7084.23385\[文件名函数.xls]sheet1

  =CELL("filename")

问题是它带有驱动器盘符和文件的全部路径,要使用文本函数挑选出工作表或工作簿名称

 A)选择路径

  C:\Users\ADMINI~1\AppData\Local\Temp\Rar$DIa7084.23385\

   =MID(CELL("filename"),1,FIND("[",CELL("filename"))-1)

 B)选择工作簿名称/文件名函数.xls

=MID(CELL("filename"),FIND("[",CELL("filename"))+1,FIND("]",CELL("filename"))-FIND("[",CELL("filename"))-1)

 C)选择工作表名称/sheet1

  =MID(CELL("filename"),FIND("]",CELL("filename"))+1,255)

4E)Excel中提取工作表名称,作为标题的办法

  https://jingyan.baidu.com/article/08b6a59189ceb714a9092241.html

  首先,命名工作表名称,在单元格内录入此公式    

    《=MID(CELL("filename",A1),FIND("]",CELL("filename"))+1,255)》 &&在单元格中键入(或直接copy),不用改动,Ok!

 《=MID(CELL("filename",A1),FIND("]",CELL("filename"))+1,255)》

    前提是文件必须先保存过。

2E)当CELL()函数只有一个参数时,它引用的是活动工作表的表名,当切换工作表时,在新的工作表中无任何“动作”时,活动工作表仍然是原来的工作表,所以仍然是原来的表名,只有给它一个第二参数(任意单元格地址),就变成引用当前工作表的表名了:

http://club./thread-1141132-1-1.html

·02/=RIGHT(CELL("filename",A1),LEN(CELL("filename"))-FIND("]",CELL("filename"))) &&在单元格中键入(或直接copy),不用改动,Ok!

01.=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))

=MID(CELL("filename",A1),FIND("]",CELL("filename"))+1,100)

看看这个附件,也许楼主就能明白了;Book1.rar 

01.=REPLACE(GET.DOCUMENT(1),1,FIND("]",GET.DOCUMENT(1)),)&T(NOW())

1E)提取工作表名称

http://club./thread-1291460-1-1.html

01.=MID(CELL("filename"),FIND("]",CELL("filename"))+1,9)

BBS1:

Sub Excel各页名()

Dim XStr, YStr, ZStr

XStr = " -"

ZStr = ""

For i = 1 To Worksheets.Count

If Worksheets(i).Name = "目录" Then

Exit For

End If

Next

If i > Worksheets.Count Then

Sheets.add

ActiveSheet.Name = "目录"

End If

Sheets("目录").Move before:=Sheets(1)

Sheets("目录").Select

Range("A:B").Clear

Range("B:B").NumberFormatLocal = "@"

Worksheets(1).Cells(1, 1).Value = "序号"

Worksheets(1).Cells(1, 2).Value = "名称"

For i = 2 To Worksheets.Count

Worksheets(1).Cells(i, 1).Value = i - 1

Worksheets(1).Cells(i, 2).Value = Worksheets(i).Name

For j = 1 To Len(Worksheets(i).Name)

YStr = Mid(Worksheets(i).Name, j, 1)

If InStr(XStr, YStr) <> 0 Then

ZStr = "'"

Exit For

End If

Next

ActiveSheet.Hyperlinks.add Anchor:=Worksheets(1).Cells(i, 2), Address:="", SubAddress:=ZStr & Worksheets(i).Name & ZStr & "!A1", TextToDisplay:=Worksheets(i).Name

Next

Range("A:A").HorizontalAlignment = xlCenter

Rows("1:1").HorizontalAlignment = xlCenter

Cells.Select

     Selection.Columns.AutoFit

      Range("A1").Select

End Sub

 BBS2:

 3E)Excel批量提取全部工作表名称公式

  https://wenku.baidu.com/view/616277e17d1cfad6195f312b3169a4517723e5f3.html

 4E)Excel里提取工作表名称作为标题的办法

  https://jingyan.baidu.com/article/08b6a59189ceb714a9092241.html

  首先,命名工作表名称,在单元格内录入此公式    

  =MID(CELL("filename",A1),FIND("]",CELL("filename"))+1,255) &&Ok!

  https://zhidao.baidu.com/question/348268118.html

  需要多个函数合用:前提是文件必须先保存过。

=MID(CELL("filename"), FIND("]",CELL("filename"))+1,255) &&少了A1,不行? 

解析:在返回的详细的工作表信息,这个字符串中截取出工作表名称。

5E)excel怎么去提取工作表名称?什么函数可以实现

https://zhidao.baidu.com/question/348268118.html

 用宏表函数get.workbook来实现。

 1、点击公式菜单——定义名称命令。在新建名称中输入一个名称,此处为工作表名,在引用位置输入公式:=GET.WORKBOOK(1),点击确定。

6E)31.创建工作表目录的公式

https://www.toutiao.com/a6563437109825241604/

把所有的工作表名称列出来,然后自动添加超链接,管理工作表就非常方便了。

使用方法:

第1步:在定义名称中输入公式:

 =MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,99)&T(NOW())

22个常用Excel函数大全,直接套用,提升工作效率!

第2步、在工作表中输入公式并拖动,工作表列表和超链接已自动添加

=IFERROR(HYPERLINK("#'"&INDEX(Shname,ROW(A1))&"'!A1",INDEX(Shname,ROW(A1))),"")

【1】

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多