=HYPERLINK("#"&CELL("address",E66),"输入需要的文字")
同时按Alt和F11进入宏界面，点菜单的插入，模块，粘贴如下代码：Sub test()dim i as integer
For i = 1 To range("A65000“).end(xlup).row
Cells(i, 2) = Cells(i, 1) & " " & Cells(i, 1).Hyperlinks(1).Address
Next i
End Sub
直接在此界面按F5，可以把A列所有的超链接的文字加网址放到B列。
sss是你E66的内容，要么公式最后的E66改成你要的字，要么把E66单元格改动，不过那样你的链接就变了
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024