精华内容
下载资源
问答
  • 工作中,我们有时会需要将多个工作表Sheet的名称提取出来,制作成一个目录 如果一个一个去复制粘贴,效率肯定是很低的,如果Sheet数量很多,会严重影响我们的工作进度,那该如何处理呢?我们可以用VBA的方法快速处理...

    工作中,我们有时会需要将多个工作表Sheet的名称提取出来,制作成一个目录
    如果一个一个去复制粘贴,效率肯定是很低的,如果Sheet数量很多,会严重影响我们的工作进度,那该如何处理呢?

    我们可以用VBA的方法快速处理

    步骤:

    Step1: 首先调出【开发工具】选项卡,单击【文件】选项卡-【选项】-【自定义功能区】,在主选项卡中,把【开发工具】前面的“√”选上,然后确定即可

    在这里插入图片描述
    Step2:单击 【开发工具】选项卡,在“代码”选项组中选择“Visual Basic”,弹出【模块代码】编辑框,选择Microsoft Excel 对象,然后单击【插入】选项卡,选择【模块】,然后把写好的宏放在右边的编辑框里,然后把代码编辑框关掉

    在这里插入图片描述
    VBA代码如下:

    Sub 提取工作表名称()
    Dim i!
    Cells(1, 1).Value = “表名”
    For i = 1 To Sheets.Count
    Cells(i + 1, 1).Value = Sheets(i).Name
    Next i
    End Sub

    Step3:单击Excel中的【插入】选项卡,单击【形状】按钮,随便选择一个文本框,然后输入文字,单击文本框,鼠标右键,选择【指定宏】选项,选择刚才编辑的宏,然后确定即可,当我们单击“提取工作表的名称”按钮时,在A列就会看到每个表的名称都提取出来了

    在这里插入图片描述
    不会VBA也可以快速提取
    欢迎关注和转发
    在这里插入图片描述

    END

    展开全文
  • 打开工作簿发现工作表数量太多了...① 工作表太多,有好几百张,一个一个手动输入工作表名称太麻烦,通过复制粘贴简单的VBA代码就可以自动批量提取工作表名称。如图1:有表1、表2、表3等12张工作表,我们先在“表1”...

    打开工作簿发现工作表数量太多了,都不知道每张表格是什么内容。所以需要建立一张“目录”工作表,放在工作表的第一张,轻松点击“目录”里的每张工作表名称,跳转到相应工作表,同时制作“返回”超链接,回到目录。

    一、制作目录超链接。

    工作表太多,有好几百张,一个一个手动输入工作表名称太麻烦,通过复制粘贴简单的VBA代码就可以自动批量提取工作表名称。

    如图1:有表1、表2、表3等12张工作表,我们先在“表1”前面插入一张新的工作表,取名“目录”。

    ca6ff393a9052c0654ec6a446571a033.png

    图1

    第二步就是复制“提取工作表名称的VBA代码”,没有代码的小伙伴可以把图片里代码的内容手动输入在Excel表格里保存好,需要的时候打开表格,直接复制粘贴就可以了。图2:

    a06df7c4539cc2805c02f5474d43ac0b.png

    图2:批量提取工作表名称VBA代码

    复制代码后,鼠标在“目录”这张表格的名称上点“右键”——“查看代码”,点击就会进入VBA编辑窗口。图3:

    3c4e86fa2d2e649881048ff21225fd66.png

    图3:VBA编辑窗口

    当有很多个工作簿都处于打开状态时,VBA编辑窗口里就会显示所有的工作簿,在“窗口”的左边找到自己需要建“目录”的工作簿,在该工作簿下找到“目录”这个文件,双击它,再在右边的“代码窗口”粘贴VBA代码,点上方“小绿三角”就运行成功了,关掉窗口。图4:

    3ea284216da8744c1e9a6f788a1a578f.png

    图4

    这时“目录”工作表的A列就已经有所有工作表的名称了。现在我们就可以用超链接函数HYPERLINK来批量制作目录超链接。

    公式模板:=HYPERLINK("网络链接地址或工作簿的地址","单元格显示什么文字")。

    注意:链接地址或工作簿地址和显示的文字如果不是直接引用单元格,而是文本内容手动输入,就需要加双引号。链接地址就是要跳转的地址链接,显示的文字就是类似批注,对这个链接的一个备注说明(可以让你注明这个链接是跳转到哪里的,以免忘记他的功能)。

    在“目录”工作表的B2单元格输入公式=HYPERLINK("#"&A2&"!A1",A2),然后下拉公式,目录制作完成。公式解析:跳转到当前工作簿或其他工作簿的话,必须在工作簿或工作表名称前面加上“#”符号;A2是“表1”的名称,“!A1”表示A1单元格;后面这个A2表示单元格显示“表1”这两个字,让自己知道这是跳转到“表1”的链接。"#"&A2&"!A1"表示跳转到"表1”的A1单元格,必须要具体写到跳转到哪个单元格。如动图5:

    8695feac727927e3e96fa03ac923c44e.gif

    图5

    二、在“表1”到“表12”中一次性建立“返回”超链接。

    比如我们想在D2单元格制作一个“返回目录”的超链接,点击就能跳转。按住Shift键,鼠标点击“表1”和“表12”,就会全选中这12张表格,然后在D2单元格输入公式=HYPERLINK("#"&"目录!A1","返回目录"),按回车,完成。公式解析:"#"&"目录!A1"——【“跳转到目录工作表的A1单元格”】;"返回目录"——【“单元格显示返回目录这四个字”】。如图6:

    6cb777ab2fa24f3fa6d87837531952c6.gif

    图6

    做完超链接后,我们可以通过“视图”——“冻结窗口”——“冻结拆分窗格”来冻结行列,完成下拉滚动条也可以很轻松的点到“返回目录”超链接。

    三、如果想修改一部分工作表的名称,一张一张修改就很麻烦,我们也可以通过复制粘贴VBA代码完成批量修改工作表名称。

    复制“修改工作表名称代码”,没有代码的小伙伴手动把图片里的代码输入到Excel表格里保存好,方便下次复制粘贴用。如图7:

    b596115286a3d52075ba67681058df2b.png

    图7:批量修改工作表名称VBA代码

    VBA代码注意:“目录”这两个字是可以改的,这个名字就是你制作超链接目录的那张工作表名称。CELLS(i,2)这个数字2也是可以改的,2表示B列,如果你的新的工作表名称在D列,就改成4。

    选中“目录”这张工作表,A列是原工作表名称,B列是目录超链接。现在我在D列输入新的工作表名称,必须所有工作表名称都要写上,不改动的也要把原名称复制粘贴上,名称之间不能有空单元格;两列名称不能错位,这样代码才可以平行替换名称。如动图8:

    53d74d3f59e43b2fa8fd94a849fc9238.gif

    图8:批量修改工作表名称

    修改完工作表名称后,原来的目录超链接就失效了,所以需要重新制作下目录超链接,其他表格的“返回目录”超链接不受影响。

    因为这个表格用了VBA宏代码,所以保存的时候,会出现弹窗,点击“否”,选择后缀是xlsm的类型,点击保存。

    喜欢的朋友点点关注、转发、收藏、点赞,谢谢!

    展开全文
  • 打开工作簿发现工作表数量太多了...① 工作表太多,有好几百张,一个一个手动输入工作表名称太麻烦,通过复制粘贴简单的VBA代码就可以自动批量提取工作表名称。如图1:有表1、表2、表3等12张工作表,我们先在“表1”...

    打开工作簿发现工作表数量太多了,都不知道每张表格是什么内容。所以需要建立一张“目录”工作表,放在工作表的第一张,轻松点击“目录”里的每张工作表名称,跳转到相应工作表,同时制作“返回”超链接,回到目录。

    一、制作目录超链接。

    工作表太多,有好几百张,一个一个手动输入工作表名称太麻烦,通过复制粘贴简单的VBA代码就可以自动批量提取工作表名称。

    如图1:有表1、表2、表3等12张工作表,我们先在“表1”前面插入一张新的工作表,取名“目录”。

    ad674b1059c6fad3ddb75feec40e036e.png

    图1

    第二步就是复制“提取工作表名称的VBA代码”,没有代码的小伙伴可以把图片里代码的内容手动输入在Excel表格里保存好,需要的时候打开表格,直接复制粘贴就可以了。图2:

    56bbde68b4cc4c62f1cef9d6975110e3.png

    图2:批量提取工作表名称VBA代码

    复制代码后,鼠标在“目录”这张表格的名称上点“右键”——“查看代码”,点击就会进入VBA编辑窗口。图3:

    2faa54b7991e47aec2678f3897481c97.png

    图3:VBA编辑窗口

    当有很多个工作簿都处于打开状态时,VBA编辑窗口里就会显示所有的工作簿,在“窗口”的左边找到自己需要建“目录”的工作簿,在该工作簿下找到“目录”这个文件,双击它,再在右边的“代码窗口”粘贴VBA代码,点上方“小绿三角”就运行成功了,关掉窗口。图4:

    368165723cc8ea9357f9e9a250bc782e.png

    图4

    这时“目录”工作表的A列就已经有所有工作表的名称了。现在我们就可以用超链接函数HYPERLINK来批量制作目录超链接。

    公式模板:=HYPERLINK("网络链接地址或工作簿的地址","单元格显示什么文字")。

    注意:链接地址或工作簿地址和显示的文字如果不是直接引用单元格,而是文本内容手动输入,就需要加双引号。链接地址就是要跳转的地址链接,显示的文字就是类似批注,对这个链接的一个备注说明(可以让你注明这个链接是跳转到哪里的,以免忘记他的功能)。

    在“目录”工作表的B2单元格输入公式=HYPERLINK("#"&A2&"!A1",A2),然后下拉公式,目录制作完成。公式解析:跳转到当前工作簿或其他工作簿的话,必须在工作簿或工作表名称前面加上“#”符号;A2是“表1”的名称,“!A1”表示A1单元格;后面这个A2表示单元格显示“表1”这两个字,让自己知道这是跳转到“表1”的链接。"#"&A2&"!A1"表示跳转到"表1”的A1单元格,必须要具体写到跳转到哪个单元格。如动图5:

    8d33964b5c8380f964940bbf69b67d79.gif

    图5

    二、在“表1”到“表12”中一次性建立“返回”超链接。

    比如我们想在D2单元格制作一个“返回目录”的超链接,点击就能跳转。按住Shift键,鼠标点击“表1”和“表12”,就会全选中这12张表格,然后在D2单元格输入公式=HYPERLINK("#"&"目录!A1","返回目录"),按回车,完成。公式解析:"#"&"目录!A1"——【“跳转到目录工作表的A1单元格”】;"返回目录"——【“单元格显示返回目录这四个字”】。如图6:

    50a9df14c30b53fbfdecba0f37792f3e.gif

    图6

    做完超链接后,我们可以通过“视图”——“冻结窗口”——“冻结拆分窗格”来冻结行列,完成下拉滚动条也可以很轻松的点到“返回目录”超链接。

    三、如果想修改一部分工作表的名称,一张一张修改就很麻烦,我们也可以通过复制粘贴VBA代码完成批量修改工作表名称。

    复制“修改工作表名称代码”,没有代码的小伙伴手动把图片里的代码输入到Excel表格里保存好,方便下次复制粘贴用。如图7:

    97fa7225630a6919dfeeff170a433834.png

    图7:批量修改工作表名称VBA代码

    VBA代码注意:“目录”这两个字是可以改的,这个名字就是你制作超链接目录的那张工作表名称。CELLS(i,2)这个数字2也是可以改的,2表示B列,如果你的新的工作表名称在D列,就改成4。

    选中“目录”这张工作表,A列是原工作表名称,B列是目录超链接。现在我在D列输入新的工作表名称,必须所有工作表名称都要写上,不改动的也要把原名称复制粘贴上,名称之间不能有空单元格;两列名称不能错位,这样代码才可以平行替换名称。如动图8:

    aba97b70218c5ffcfc4d85312963726f.gif

    图8:批量修改工作表名称

    修改完工作表名称后,原来的目录超链接就失效了,所以需要重新制作下目录超链接,其他表格的“返回目录”超链接不受影响。

    因为这个表格用了VBA宏代码,所以保存的时候,会出现弹窗,点击“否”,选择后缀是xlsm的类型,点击保存。

    喜欢的朋友点点关注、转发、收藏、点赞,谢谢!

    展开全文
  • 工作中,我们有时会需要将多个工作表Sheet的名称提取出来,制作成一个目录,如果一个一个去复制粘贴,效率肯定是很低的,如果Sheet数量很多,会严重影响我们的工作进度,那该如何处理呢?使用VBA快速处理方法如下:...
          工作中,我们有时会需要将多个工作表Sheet的名称提取出来,制作成一个目录,如果一个一个去复制粘贴,效率肯定是很低的,如果Sheet数量很多,会严重影响我们的工作进度,那该如何处理呢?

    使用VBA快速处理

    方法如下:

    Step1:调出【开发工具】选项卡,单击【文件】选项卡-【选项】-【自定义功能区】,在主选项卡中,把【开发工具】前面的“√”选上,然后确定即可

    cb31ec1e481dc90d805e8adf3d6d4a84.gif

    Step2:单击 【开发工具】选项卡,在“代码”选项组中选择“Visual Basic”,弹出【模块代码】编辑框,选择Microsoft Excel 对象,然后单击【插入】选项卡,选择【模块】,然后把写好的宏放在右边的编辑框里,然后把代码编辑框关掉

    a9906d3578be8c8d3e313185c4273b54.gif

    *VBA代码如下:

    Sub 提取工作表名称()

    Dim i!

    Cells(1, 1).Value = "表名"

    For i = 1 To Sheets.Count

    Cells(i + 1, 1).Value = Sheets(i).Name

    Next i

    End Sub

    Step3:单击Excel中的【插入】选项卡,单击【形状】按钮,随便选择一个文本框,然后输入文字,单击文本框,鼠标右键,选择【指定宏】选项,选择刚才编辑的宏,然后确定即可,Step4:当我们单击“提取工作表的名称”按钮时,在A列就会看到每个表的名称都提取出来了

    4c2f702ec8bb10c8f0480a7674d9c852.gif

    你学会了吗?

    欢迎关注和转发

    展开全文
  • excel中VBA提取文件夹名称的方法

    千次阅读 2016-08-09 15:15:54
    内容提要:文章介绍excel中使用VBA代码来提取文件夹名称的具体操作步骤。...  在网上看到有人用批处理... 比如需要将电脑E盘“论坛工作资料”文件夹下面的所有文件夹名称提取出来放在excel工作表的A列,可以使用下面的
  • Hello,大家好,今天跟大家分享下如何制作excel的工作表目录,特别适合工作表比较多的同学,我们采用的是vba加函数的方式进行目录的设置,使用vba获取工作表名称,然后利用函数制作超链接,非常简单,下面就跟我来...
  • 在上一篇文章我们介绍了利用VBA的方法快速提取多个工作表名称,那如果看不懂VBA代码呢?怎么办呢?有没有其它的方法呢?今天我们来学习如何用Excel 的公式来提取Excel工作表的名称? 具体方法如下: Step1:首先把...
  • 在过Excel 函数与公式的时候,看到一个可能以后在写vba时候能够使用的长公式。特此记录。 效果: 具体公式: =CELL("filename",$A$1) =MID(B2,FIND("]",B2,1)+1,100) =REPLACE(REPLACE(B2,1,FIND("[",B2,1),""),...
  • 点上方关注我们,每天早上5分钟,让Excel多点轻松大家好,今天和大家分享的VBA小代码是如何一键批量修改工作表名称。举个例子。如下图所示,一份工作簿包含了多张工作表,需要根据某种规则,批量修改每张工作表的...
  • 希望达成的目标是提取每一类产品(即每一个小中)的,成交手一栏数值最大的月份所对应的结算参考价,最后需要将所有的“商品名称:x”和其所对应的参考价数值生成到一个新的工作页里 *本每天会有更新,更新会...
  • 上回书说到,如何用EXCEL建立自己的...用EXCEL制作导航页和日志管理日常工作​zhuanlan.zhihu.com1. 无门槛通用bat法——用批处理脚本提取文件名>>>>提取当前文件夹下的文件、文件夹名称(不含子文件...
  • 今天和大家分享的VBA小代码内容是……呃,对了,先说个事,之前给大家分享的一键提取工作表名称并建立超链接的小代码,不知道大家还记得吗?VBA常用小代码:一键生成带超链接的工作表目录您问我为啥突然问这话,绝壁...
  • 有的表又不想让他们编辑,赶快使用这招保护你的工作表吧:第一步:批量提取工作表,可以做后续的工作表创建目录链接Excel制作目录:从多级文件夹中获取名称,并创建链接按ALT+F11进入vba编辑器,右键插入一个模块,...
  • 今天介绍利用Excel VBA的Dir方法来遍历某文件夹下的所有excel文件。还是直接来看例子,假设在D盘...只要知道了工作表名称,我们就可以用workbook的Open方法或者GetObject方法从工作簿中获得数据,而Dir函数正是起...
  • 提取客户名称,一般都是采用VBA。按快捷键Alt+F11,插入模块,将代码复制粘贴进去,点击运行按钮即可生成。Sub 目录()Dim i%For i = 2 To Sheets.Countk = k + 1Cells(k + 1, 1) = Sheets(i).N...
  • 前言平时在工作的时候经常碰到这种形式的问题,在一个excel工作簿里,有很多张工作表。其中有一张是总表,其他的表为分表,总表的信息由分表构成。通常来讲,我们先获得分表的信息,然后在总表中提取分表我们需要的...
  • 中文版Excel.2007高级VBA编程宝典 1/2

    热门讨论 2012-04-06 16:00:16
     5.4.6 包含工作表函数的加载宏电子表格  5.4.7 单元块预算式电子表格应用程序  5.4.8 假设分析模型式电子表格应用程序  5.4.9 数据存储和访问电子表格应用程序  5.4.10 数据库前端电子表格应用程序  5.4.11 ...
  • 1,VBA自动合并文件夹下的EXCEL文件,保留同样多的工作表,2,并生成目录,生成链接,主表到分表,...4,文件名,工作表名称中不可以出现特殊字符(比如# & $ % / \等等) VBA 密码 123456, 需要修改的话,自行修改。
  • 74.取消隐藏工作表(包括vba Project工程保护的) 75.删除单元格自定义名称 76.从文件路径中取得文件名 77.取得一个文件的扩展名 78.取得一个文件的路径 79.十进制转二进制 80.检查一个数组是否为空 81.字母栏名转...
  • 函数作用:取消隐藏工作表(包括vba Project工程保护的)88 '75.函数作用:删除单元格自定义名称.....................88 '76.函数作用:从文件路径中取得文件名...................89 '77.函数作用:取得一个文件的扩展...
  • Excel百宝箱9.0无限制破解版

    热门讨论 2012-02-03 19:05:29
    【折分工作簿】:将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指...
  • Excel百宝箱

    2012-10-27 17:09:21
    【折分工作簿】:将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指...
  • 【折分工作簿】:将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将...
  • Excel百宝箱8.0

    2011-06-07 21:32:17
    【折分工作簿】:将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指...
  • excel 工具箱

    2012-01-22 15:04:34
    【折分工作簿】:将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指...
  • 置顶公众号,否则不能及时收到新文章推荐给朋友,让朋友...本工具就是用VBA实现,先提取原文件或文件夹名,然后把想我名字先输入到工作表中,再运行就可以完成修改名称了。二、使用说明运行“文件(夹)批量改名”工作...
  • 【折分工作簿】将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】将指文件夹中...
  •  3.5 创建多工作表名称  3.6 使用范围和单元格名称 3.6.1 创建一个名称列表 3.6.2 在公式中使用名称 3.6.3 使用带名称的交叉运算符 3.6.4 使用带名称的范围运算符 3.6.5 引用多单元格命名范围中的单个单元格 ...

空空如也

空空如也

1 2 3
收藏数 44
精华内容 17
关键字:

vba提取工作表名称