乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 如何在<em>excel</em>中<em>批量</em>将链接转换为文

如何在<em>excel</em>中<em>批量</em>将链接转换为文

作者:乔山办公网日期:

返回目录:excel表格制作


用宏吧。Alt+F11打开VB编辑器,粘贴如下代码:
Sub test()
Dim fso, fld, f1, maxRow As Long
maxRow = Sheets("Sheet1").[A65535].End(xlUp).Row
Set fso = CreateObject("Scripting.FileSystemObject")
Set fld = fso.GetFolder(ThisWorkbook.Path)
For Each fsfile In fld.Files
Filename = Left(fsfile.Name, Len(fsfile.Name) - 4)
For Each no In Range("a1:a" & maxRow)
If Filename Like no & "*" Then
Cells(no.Row, 1).Hyperlinks.Add Anchor:=Cells(no.Row, 1), Address:=fsfile, TextToDisplay:=Cells(no.Row, 1).Value
End If
Next no
Next
End Sub
关闭后回到Excel界面,Alt+F8运行test宏即可。e68a847a64339

楼主可建3列

A1为文zd本列:输入链接文本
B1为链接列:输入链接地址
C1为结果列:输入公式:=HYPERLINK(B1,A1)

C1列为最终结果。

若文本只要“链接”二字,那C1可输入:=hyperlink(B1,"链接")
可去掉A1文本列

楼主有问题可以hi我。
在网址前面添加 http:// 之后自动会添加超链接。

首先在右边插入一列,然后选中第一个网址的右边也就是B1,
然后在输入公式:="http://"&A1 然后回车即可添加好。

如果文字链接双击可以变回网址链接的话,可以先双击一个文字链接变为网址链接后,用格式刷把其他文字链接同样转为网址链接。如果不能,可以使用HYPERLINK函数

相关阅读

关键词不能为空

ppt怎么做_excel表格制作_office365_word文档_365办公网