-
如何用VBA快速批量提取多个工作表名称?
2020-07-31 15:33:16工作中,我们有时会需要将多个工作表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 SubStep3:单击Excel中的【插入】选项卡,单击【形状】按钮,随便选择一个文本框,然后输入文字,单击文本框,鼠标右键,选择【指定宏】选项,选择刚才编辑的宏,然后确定即可,当我们单击“提取工作表的名称”按钮时,在A列就会看到每个表的名称都提取出来了
不会VBA也可以快速提取
欢迎关注和转发
END
-
idea修改目录后返回_excel制作目录超链接,VBA批量提取修改工作表名称,制作"返回"键...
2021-01-15 10:12:17打开工作簿发现工作表数量太多了...① 工作表太多,有好几百张,一个一个手动输入工作表名称太麻烦,通过复制粘贴简单的VBA代码就可以自动批量提取工作表名称。如图1:有表1、表2、表3等12张工作表,我们先在“表1”...打开工作簿发现工作表数量太多了,都不知道每张表格是什么内容。所以需要建立一张“目录”工作表,放在工作表的第一张,轻松点击“目录”里的每张工作表名称,跳转到相应工作表,同时制作“返回”超链接,回到目录。
▼一、制作目录超链接。
① 工作表太多,有好几百张,一个一个手动输入工作表名称太麻烦,通过复制粘贴简单的VBA代码就可以自动批量提取工作表名称。
如图1:有表1、表2、表3等12张工作表,我们先在“表1”前面插入一张新的工作表,取名“目录”。
图1
② 第二步就是复制“提取工作表名称的VBA代码”,没有代码的小伙伴可以把图片里代码的内容手动输入在Excel表格里保存好,需要的时候打开表格,直接复制粘贴就可以了。图2:
图2:批量提取工作表名称VBA代码
③ 复制代码后,鼠标在“目录”这张表格的名称上点“右键”——“查看代码”,点击就会进入VBA编辑窗口。图3:
图3:VBA编辑窗口
④ 当有很多个工作簿都处于打开状态时,VBA编辑窗口里就会显示所有的工作簿,在“窗口”的左边找到自己需要建“目录”的工作簿,在该工作簿下找到“目录”这个文件,双击它,再在右边的“代码窗口”粘贴VBA代码,点上方“小绿三角”就运行成功了,关掉窗口。图4:
图4
⑤ 这时“目录”工作表的A列就已经有所有工作表的名称了。现在我们就可以用超链接函数HYPERLINK来批量制作目录超链接。
公式模板:=HYPERLINK("网络链接地址或工作簿的地址","单元格显示什么文字")。
注意:链接地址或工作簿地址和显示的文字如果不是直接引用单元格,而是文本内容手动输入,就需要加双引号。链接地址就是要跳转的地址链接,显示的文字就是类似批注,对这个链接的一个备注说明(可以让你注明这个链接是跳转到哪里的,以免忘记他的功能)。
在“目录”工作表的B2单元格输入公式=HYPERLINK("#"&A2&"!A1",A2),然后下拉公式,目录制作完成。公式解析:跳转到当前工作簿或其他工作簿的话,必须在工作簿或工作表名称前面加上“#”符号;A2是“表1”的名称,“!A1”表示A1单元格;后面这个A2表示单元格显示“表1”这两个字,让自己知道这是跳转到“表1”的链接。"#"&A2&"!A1"表示跳转到"表1”的A1单元格,必须要具体写到跳转到哪个单元格。如动图5:
图5
▼二、在“表1”到“表12”中一次性建立“返回”超链接。
比如我们想在D2单元格制作一个“返回目录”的超链接,点击就能跳转。按住Shift键,鼠标点击“表1”和“表12”,就会全选中这12张表格,然后在D2单元格输入公式=HYPERLINK("#"&"目录!A1","返回目录"),按回车,完成。公式解析:"#"&"目录!A1"——【“跳转到目录工作表的A1单元格”】;"返回目录"——【“单元格显示返回目录这四个字”】。如图6:
图6
做完超链接后,我们可以通过“视图”——“冻结窗口”——“冻结拆分窗格”来冻结行列,完成下拉滚动条也可以很轻松的点到“返回目录”超链接。
▼三、如果想修改一部分工作表的名称,一张一张修改就很麻烦,我们也可以通过复制粘贴VBA代码完成批量修改工作表名称。
① 复制“修改工作表名称代码”,没有代码的小伙伴手动把图片里的代码输入到Excel表格里保存好,方便下次复制粘贴用。如图7:
图7:批量修改工作表名称VBA代码
VBA代码注意:“目录”这两个字是可以改的,这个名字就是你制作超链接目录的那张工作表名称。CELLS(i,2)这个数字2也是可以改的,2表示B列,如果你的新的工作表名称在D列,就改成4。
② 选中“目录”这张工作表,A列是原工作表名称,B列是目录超链接。现在我在D列输入新的工作表名称,必须所有工作表名称都要写上,不改动的也要把原名称复制粘贴上,名称之间不能有空单元格;两列名称不能错位,这样代码才可以平行替换名称。如动图8:
图8:批量修改工作表名称
③ 修改完工作表名称后,原来的目录超链接就失效了,所以需要重新制作下目录超链接,其他表格的“返回目录”超链接不受影响。
因为这个表格用了VBA宏代码,所以保存的时候,会出现弹窗,点击“否”,选择后缀是xlsm的类型,点击保存。
喜欢的朋友点点关注、转发、收藏、点赞,谢谢!
-
excel一次滚动太多_excel制作目录超链接,VBA批量提取修改工作表名称,制作"返回"键...
2020-11-30 05:26:40打开工作簿发现工作表数量太多了...① 工作表太多,有好几百张,一个一个手动输入工作表名称太麻烦,通过复制粘贴简单的VBA代码就可以自动批量提取工作表名称。如图1:有表1、表2、表3等12张工作表,我们先在“表1”...打开工作簿发现工作表数量太多了,都不知道每张表格是什么内容。所以需要建立一张“目录”工作表,放在工作表的第一张,轻松点击“目录”里的每张工作表名称,跳转到相应工作表,同时制作“返回”超链接,回到目录。
▼一、制作目录超链接。
① 工作表太多,有好几百张,一个一个手动输入工作表名称太麻烦,通过复制粘贴简单的VBA代码就可以自动批量提取工作表名称。
如图1:有表1、表2、表3等12张工作表,我们先在“表1”前面插入一张新的工作表,取名“目录”。
图1
② 第二步就是复制“提取工作表名称的VBA代码”,没有代码的小伙伴可以把图片里代码的内容手动输入在Excel表格里保存好,需要的时候打开表格,直接复制粘贴就可以了。图2:
图2:批量提取工作表名称VBA代码
③ 复制代码后,鼠标在“目录”这张表格的名称上点“右键”——“查看代码”,点击就会进入VBA编辑窗口。图3:
图3:VBA编辑窗口
④ 当有很多个工作簿都处于打开状态时,VBA编辑窗口里就会显示所有的工作簿,在“窗口”的左边找到自己需要建“目录”的工作簿,在该工作簿下找到“目录”这个文件,双击它,再在右边的“代码窗口”粘贴VBA代码,点上方“小绿三角”就运行成功了,关掉窗口。图4:
图4
⑤ 这时“目录”工作表的A列就已经有所有工作表的名称了。现在我们就可以用超链接函数HYPERLINK来批量制作目录超链接。
公式模板:=HYPERLINK("网络链接地址或工作簿的地址","单元格显示什么文字")。
注意:链接地址或工作簿地址和显示的文字如果不是直接引用单元格,而是文本内容手动输入,就需要加双引号。链接地址就是要跳转的地址链接,显示的文字就是类似批注,对这个链接的一个备注说明(可以让你注明这个链接是跳转到哪里的,以免忘记他的功能)。
在“目录”工作表的B2单元格输入公式=HYPERLINK("#"&A2&"!A1",A2),然后下拉公式,目录制作完成。公式解析:跳转到当前工作簿或其他工作簿的话,必须在工作簿或工作表名称前面加上“#”符号;A2是“表1”的名称,“!A1”表示A1单元格;后面这个A2表示单元格显示“表1”这两个字,让自己知道这是跳转到“表1”的链接。"#"&A2&"!A1"表示跳转到"表1”的A1单元格,必须要具体写到跳转到哪个单元格。如动图5:
图5
▼二、在“表1”到“表12”中一次性建立“返回”超链接。
比如我们想在D2单元格制作一个“返回目录”的超链接,点击就能跳转。按住Shift键,鼠标点击“表1”和“表12”,就会全选中这12张表格,然后在D2单元格输入公式=HYPERLINK("#"&"目录!A1","返回目录"),按回车,完成。公式解析:"#"&"目录!A1"——【“跳转到目录工作表的A1单元格”】;"返回目录"——【“单元格显示返回目录这四个字”】。如图6:
图6
做完超链接后,我们可以通过“视图”——“冻结窗口”——“冻结拆分窗格”来冻结行列,完成下拉滚动条也可以很轻松的点到“返回目录”超链接。
▼三、如果想修改一部分工作表的名称,一张一张修改就很麻烦,我们也可以通过复制粘贴VBA代码完成批量修改工作表名称。
① 复制“修改工作表名称代码”,没有代码的小伙伴手动把图片里的代码输入到Excel表格里保存好,方便下次复制粘贴用。如图7:
图7:批量修改工作表名称VBA代码
VBA代码注意:“目录”这两个字是可以改的,这个名字就是你制作超链接目录的那张工作表名称。CELLS(i,2)这个数字2也是可以改的,2表示B列,如果你的新的工作表名称在D列,就改成4。
② 选中“目录”这张工作表,A列是原工作表名称,B列是目录超链接。现在我在D列输入新的工作表名称,必须所有工作表名称都要写上,不改动的也要把原名称复制粘贴上,名称之间不能有空单元格;两列名称不能错位,这样代码才可以平行替换名称。如动图8:
图8:批量修改工作表名称
③ 修改完工作表名称后,原来的目录超链接就失效了,所以需要重新制作下目录超链接,其他表格的“返回目录”超链接不受影响。
因为这个表格用了VBA宏代码,所以保存的时候,会出现弹窗,点击“否”,选择后缀是xlsm的类型,点击保存。
喜欢的朋友点点关注、转发、收藏、点赞,谢谢!
-
vba 指定列后插入列_如何用【VBA】快速批量提取多个工作表名称?
2020-12-14 16:28:52工作中,我们有时会需要将多个工作表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中的【插入】选项卡,单击【形状】按钮,随便选择一个文本框,然后输入文字,单击文本框,鼠标右键,选择【指定宏】选项,选择刚才编辑的宏,然后确定即可,Step4:当我们单击“提取工作表的名称”按钮时,在A列就会看到每个表的名称都提取出来了你学会了吗?
欢迎关注和转发
-
excel中VBA提取文件夹名称的方法
2016-08-09 15:15:54内容提要:文章介绍excel中使用VBA代码来提取文件夹名称的具体操作步骤。... 在网上看到有人用批处理... 比如需要将电脑E盘“论坛工作资料”文件夹下面的所有文件夹名称提取出来放在excel工作表的A列,可以使用下面的 -
vba 提取 json某个值_只需3分钟使用vba加函数快速创建excel工作表目录,简单到没朋友...
2020-12-14 10:27:17Hello,大家好,今天跟大家分享下如何制作excel的工作表目录,特别适合工作表比较多的同学,我们采用的是vba加函数的方式进行目录的设置,使用vba获取工作表名称,然后利用函数制作超链接,非常简单,下面就跟我来... -
【EXCEL公式法】快速批量提取多个工作表名称?
2020-08-05 10:05:00在上一篇文章我们介绍了利用VBA的方法快速提取多个工作表名称,那如果看不懂VBA代码呢?怎么办呢?有没有其它的方法呢?今天我们来学习如何用Excel 的公式来提取Excel工作表的名称? 具体方法如下: Step1:首先把... -
【来日复制粘贴】提取工作表和工作簿名称
2015-07-20 10:58:23在过Excel 函数与公式的时候,看到一个可能以后在写vba时候能够使用的长公式。特此记录。 效果: 具体公式: =CELL("filename",$A$1) =MID(B2,FIND("]",B2,1)+1,100) =REPLACE(REPLACE(B2,1,FIND("[",B2,1),""),... -
修改value_如何批量修改工作表名称?
2021-01-11 21:24:51点上方关注我们,每天早上5分钟,让Excel多点轻松大家好,今天和大家分享的VBA小代码是如何一键批量修改工作表名称。举个例子。如下图所示,一份工作簿包含了多张工作表,需要根据某种规则,批量修改每张工作表的... -
【求助】EXCEL VBA如何根据列表信息将大表中的诸多小表分割并提取数据
2019-07-10 16:01:50希望达成的目标是提取每一类产品(即每一个小表中)的,成交手一栏数值最大的月份所对应的结算参考价,最后需要将所有的“商品名称:x”和其所对应的参考价数值生成到一个新的工作页里 *本表每天会有更新,更新会... -
vba获取文件夹下所有文件名_批量提取文件名,快速建立EXCEL工作台文件路径
2020-10-23 07:40:17上回书说到,如何用EXCEL建立自己的...用EXCEL制作导航页和日志表管理日常工作zhuanlan.zhihu.com1. 无门槛通用bat法——用批处理脚本提取文件名>>>>提取当前文件夹下的文件、文件夹名称(不含子文件... -
批量修改表名_excel批量更改工作表表名
2021-01-14 14:19:43今天和大家分享的VBA小代码内容是……呃,对了,先说个事,之前给大家分享的一键提取工作表名称并建立超链接的小代码,不知道大家还记得吗?VBA常用小代码:一键生成带超链接的工作表目录您问我为啥突然问这话,绝壁... -
ndbcluster 批量修改表空间_Excel小技巧:使用这招快速保护你的工作表
2020-12-18 11:18:02有的表又不想让他们编辑,赶快使用这招保护你的工作表吧:第一步:批量提取工作表,可以做后续的工作表创建目录链接Excel制作目录:从多级文件夹中获取名称,并创建链接按ALT+F11进入vba编辑器,右键插入一个模块,... -
vba中dir用法_利用Dir函数遍历某文件夹下的所有文件 | VBA实例教程
2021-02-11 14:11:01今天介绍利用Excel VBA的Dir方法来遍历某文件夹下的所有excel文件。还是直接来看例子,假设在D盘...只要知道了工作表的名称,我们就可以用workbook的Open方法或者GetObject方法从工作簿中获得数据,而Dir函数正是起... -
根据csv表生成柱状图_EXCEL制作目录和根据目录生成多个工作表
2021-01-14 16:57:13提取客户名称,一般都是采用VBA。按快捷键Alt+F11,插入模块,将代码复制粘贴进去,点击运行按钮即可生成。Sub 目录()Dim i%For i = 2 To Sheets.Countk = k + 1Cells(k + 1, 1) = Sheets(i).N... -
的vba宏无法加载的解决办法_EXCEL 宏应用 之 总分表格数据填充实例
2020-12-31 15:05:20前言平时在工作的时候经常碰到这种形式的问题,在一个excel工作簿里,有很多张工作表。其中有一张是总表,其他的表为分表,总表的信息由分表构成。通常来讲,我们先获得分表的信息,然后在总表中提取分表我们需要的... -
中文版Excel.2007高级VBA编程宝典 1/2
2012-04-06 16:00:165.4.6 包含工作表函数的加载宏电子表格 5.4.7 单元块预算式电子表格应用程序 5.4.8 假设分析模型式电子表格应用程序 5.4.9 数据存储和访问电子表格应用程序 5.4.10 数据库前端电子表格应用程序 5.4.11 ... -
合并EXCEL文件,提取指定内容 Combine All Excel File in one floder.xlsm
2021-02-22 16:35:371,VBA自动合并文件夹下的EXCEL文件,保留同样多的工作表,2,并生成目录,生成链接,主表到分表,...4,文件名,工作表名称中不可以出现特殊字符(比如# & $ % / \等等) VBA 密码 123456, 需要修改的话,自行修改。 -
我整理的VBA 自定义函数大全 共138页
2008-11-21 16:14:0374.取消隐藏工作表(包括vba Project工程保护的) 75.删除单元格自定义名称 76.从文件路径中取得文件名 77.取得一个文件的扩展名 78.取得一个文件的路径 79.十进制转二进制 80.检查一个数组是否为空 81.字母栏名转... -
excel中161个VBA_自定义函数超级实用
2018-03-28 08:36:32函数作用:取消隐藏工作表(包括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百宝箱9.0无限制破解版.rar
2012-09-05 09:31:51【折分工作簿】:将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将... -
Excel百宝箱8.0
2011-06-07 21:32:17【折分工作簿】:将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指... -
excel 工具箱
2012-01-22 15:04:34【折分工作簿】:将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】:将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】:将指... -
-
mac 批量清空文件夹文件_【XSS 聚宝瓶】文件及文件夹批量改名工具
2020-11-23 04:07:05置顶公众号,否则不能及时收到新文章推荐给朋友,让朋友...本工具就是用VBA实现,先提取原文件或文件夹名,然后把想我名字先输入到工作表中,再运行就可以完成修改名称了。二、使用说明运行“文件(夹)批量改名”工作... -
Excel百宝箱 9.0 破解版 批量导入图片等200种功能
2013-05-11 22:46:24【折分工作簿】将指定工作簿的每个工作表拆分成单独的工作簿,新工作簿名称等于原工作表名称 【工作表折分】将当前工作表的数据按条件拆分成多个工作表,可以用任意列的数据做为拆分条件 【合并工作簿】将指文件夹中... -
中文版Excel.2007公式与函数应用宝典 1/2
2012-04-06 18:29:443.5 创建多工作表名称 3.6 使用范围和单元格名称 3.6.1 创建一个名称列表 3.6.2 在公式中使用名称 3.6.3 使用带名称的交叉运算符 3.6.4 使用带名称的范围运算符 3.6.5 引用多单元格命名范围中的单个单元格 ...