同时按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列。
光标A1右键,选择超级梁团链销渣瞎接,亏空COPY下面的网址,=A1,右键,选择超级链接,CTRL+V,将网址粘贴到在A1看到的相同位置即可。确定完成
用亩扮型vba
公式:activesheet.hyperlinks(i).address
i表示工作表中第i个超链接,计算方向为先列后行
自己试迅猜试缺缓看
B1格=HYPERLINK(A1,A1),然后下拉。
请问你的这个问题解决了 如果解决了 能告诉我怎么弄吗 谢谢928146154@qq.com