excel做批量超链接

发布网友 发布时间：2022-04-22 00:03

我来回答

共4个回答

热心网友 时间：2024-01-16 18:04

Excel小技巧

热心网友 时间：2024-01-16 18:05

这种情况，最好先产生文件列表，再由文件列表提取文件名，根据这个提取出来的文件名，进行链接。
一、产生文件列表
开始-->程序-->附件-->命令提示符，输入“dir H:\*.* /s /b>H:\f.txt”回车后，打开H盘根目录下的f.txt记事本文件，全选，复制，在Excel中，找一个空白区域（如新的工作表，Sheet2），粘贴。
注意：这样产生的文件列表，是一个包含全路径的文件列表，其中还有文件夹，文件名中也包含有扩展名
二、根据文件列表，提取文件名
在Sheet2工作表，B1输入
=TRIM(RIGHT(SUBSTITUTE(A1,"\",REPT(" ",200)),200))
向下复制公式
这样，B列就是所有的文件夹和文件名
注意：这样产生的文件名中包含有扩展名，不知道你原来的Excel中的文件名中是否包含有扩展名，如果有，到这一步就可以了。如果没有，还要进一步进行处理，以保证与你Excel中的文件名保持一致。
由于去除扩展名，并把文件夹名排除在外，依具体情况而有所不同，这里就当作你原来的Excle中的文件名包含文件名来处理了。
三、根据原有文件名查找并产生链接
假如你原来Excel中的文件名在A列，则在B1输入下面的公式
=HYPERLINK(SUBSTITUTE(INDEX(Sheet2!$A$1:$A$500,MATCH(A1,Sheet2!$B$1:$B$500,0)),"H:\",""),A1)
其中，HYPERLINK，为链接函数，包含两个参数，第一个参数为链接地址，第二个参数为显示的内容，即最后的A1。
SUBSTITUTE，文本替换函数，这里用了3个参数，第一个参数是原字符串，第二个参数是替换的原文本（H:\），第三个参数为替换后的文本（""）。这样做的目的是为了保持相对链接，以便于在你将所有文件复制到别的文件夹后，保持链接依然有效。
Index，索引函数，这里包含两个参数，第一个参数是连续的单列单元格区域（Sheet2!$A$1:$A$500），第二个参数是该区域的第几个数据。
Match，查询函数，这里包含3个参数。第一个参数，是查询的内容（A1），第二个参数是查询的区域（Sheet2!$B$1:$B$500），第三个参数是查询方式，0代表无排序查询。

热心网友 时间：2024-01-16 18:05

1、按Alt+F11，打开VBA编辑器。

2、双击“工程”窗口中的工作表名称，在右侧的代码窗口中输入：
Sub Remove_Hyperlinks()
Cells.Hyperlinks.Delete
End Sub

3、将光标定位到语句中，单击“运行子过程”-“用户窗体”按钮，可以快速取消Excel表格中所有超链接了。

热心网友 时间：2024-01-16 18:06

给个信箱，发给批量超链接样例