Excel技巧，批量更新元格文字超链接！

群友提问，我的每一个单元格文字超链接一个图片，现在这些图片的文件夹名字变了但是图片名字没变，请问超链接怎么改，有没有批量改变办法，一个个改太多了。

Sub 超链接批量替换文件地址()
Dim FindKeyWord As String
'这里填写要查找的超链接地址"
FindKeyWord = "D:\图片"
'这里填写要替换为什么地址
ReplaceText = "E:\图片"
For Each cell In Range("A1:A100")
If cell.Hyperlinks.Count > 0 Then
If InStr(1, cell.Hyperlinks(1).Address, FindKeyWord, vbBinaryCompare) > 0 Then
NewAddress = Replace(cell.Hyperlinks(1).Address, FindKeyWord, ReplaceText)
Name = cell.Hyperlinks(1).Name
cell.Hyperlinks.Delete
cell.Hyperlinks.Add anchor:=cell, Address:=NewAddress, TextToDisplay:=Name
End If
End If
Next cell
End Sub

学习资料见知识星球。

以上就是今天要分享的技巧，你学会了吗？若有什么问题，欢迎在下方留言。

快来试试吧，小琥 my21ke007。获取 1000个免费 Excel模板福利​​​​！

更多技巧， www.excelbook.cn

欢迎 加入 零售创新 知识星球，知识星球主要以数据分析、报告分享、数据工具讨论为主；