如题所述
没有预制功能直接完成,但可用几句代码解决,临时用下后再删除。方法:
按ALT+F11组合键,打开VBE窗口,执行"插入"-"模块",复制下面代码进去。
回到工作表,先选中目标区域(也可同时选中多个区域),然后回到代码窗口按F5运行程序即完成。
Sub ReHyp()
For i = 1 To Selection.Areas.Count
For Each c In Selection.Areas(i)
c.Hyperlinks.Add c, c
Next
End Sub