我有一列包含大量超链接。我希望显示的文本与另一个单元格中的文本相同。例如,我的超链接在 D 列中,而我希望显示的文本是 C 列中的相应单元格。是否有我可以制作并运行的宏或其他东西来将显示的文本更改为 C 列中的匹配单元格?手动操作的方法太多了。
答案1
尝试这个简短的 VBA 宏:
Sub TheMissingLink()
Dim h As Hyperlink, r As Range
For Each h In ActiveSheet.Hyperlinks
If Not Intersect(h.Range, Range("D:D")) Is Nothing Then
h.TextToDisplay = h.Range.Offset(0, -1).Value
End If
Next h
End Sub
这假设超链接是已插入而不是公式种类。