Excel达人进来一下,这个自动提取表名如何做?

  • H
    HeavenQin
    这个excel文件里包含有很多表单,想自动提取表单名放到汇总表里,并且列表显示,咋实现?



    可以的话,麻烦帮忙直接在文件上实现一下结算汇总表_.XLS(81 KB)
  • w
    what_is_j
    直接等于,然后往下拉不就ok了么
  • m
    maxrim
    vba 啊
  • H
    HeavenQin
    回复2#what_is_j
    表名不是规则顺序递增的 iOS fly ~
  • r
    ronaldinhox
    vba ,3,4行程序搞定
  • s
    suozixie
    wps iOS fly ~
  • H
    HeavenQin
    回复6#ronaldinhox
    那麻烦写写?我不懂代码的 iOS fly ~
  • H
    HeavenQin
    再来顶顶
  • m
    malihome
    回复8#HeavenQin

    伸手党牛逼
  • H
    HeavenQin
    这……这是真不懂啊
  • l
    lovewsk
    学习了,之前也一直不会这个。
    excel页面名称引用
    谢谢
    vba一直不会
  • a
    alzeng
    Dim sh As Sheet, Arr, k%
    k = 0
    For Each sh In Sheets
    Arr(k) = sh.Name
    K = K + 1
    Next
    然后将数组的值拿出来。
  • H
    HeavenQin
    谢谢谢谢
  • J
    JP.黄
    我的wps没有vba,看了下用公式好像也能实现

    先提取名称(文件名+扩展名+sheet名)
    再选取需要展示的文字内容
    后续新增直接下拉就行。
    P.s.你的sheet “DD201124000266”序号少了一个2
  • H
    HeavenQin
    你的附件下载不来啊?
  • x
    xhxdbxz
    表名不规律,需要宏表函数+index()生成表单列表,再用indirect()调用数据
  • J
    JP.黄
    刚看了,我的WPS没会员,不能保存自定义的公式内容。教程给你你自己弄吧
    1.打开Excel,找到菜单“公式>>定义名称”。
    2.设置名称为【sheetname】,引用位置为【=GET.WORKBOOK(1)】。
    3.确定后,选择B4输入函数【=MID(INDEX(sheetname,ROW(B2)),13,20)】。
    4.回车。其他的下拉即可。
    Dingtalk_20201212151722.jpg
  • H
    HeavenQin
    回复18#JP.黄
    你excel什么版本,我2003 iOS fly ~
  • J
    JP.黄
    回复19#HeavenQin
    我是wps,vba要开会员。我没有Excel
    正打算开车Office 365订阅 iOS fly ~
  • x
    xhxdbxz
    回复1#HeavenQin


    结算汇总表.XLS(80.5 KB)

    简单解释一下:
    1.如果打开的时候提示开启宏, 点开启,因为读取工作表名称需要用宏表函数(可以从:公式-名称 中查看)
    2.C列公式写的比较啰嗦,主要是各表“产值”对应的行不确定,不得不进行查找,如果确定的话,可以简化。
  • H
    HeavenQin
    是的,“产值”对应的会变的,因为每一个表里的行不一定相同的
  • x
    xhxdbxz
    回复22#HeavenQin

    公式的逻辑是在G列查找“产值”,其下一行就是要找的数据。
  • H
    HeavenQin
    运行起来这样
  • x
    xhxdbxz
    启用宏没有??或者 ,把附件传上来
  • H
    HeavenQin
    我点确认了使用宏了 我就是下载你的附件下来想试试用的,结果就出这样子,一头雾水
  • x
    xhxdbxz

    我这边的效果
  • H
    HeavenQin
    回复27#xhxdbxz
    谢谢兄弟,花了点时间自己慢慢琢磨,终于搞清楚了,能用上了,谢谢兄弟iOS fly ~
  • x
    xhxdbxz
    回复28#HeavenQin

    不客气,恭喜
  • H
    HeavenQin
    回复29#xhxdbxz
    从白痴到放弃,用了三天时间iOS fly ~