提取excel表中文字超链接的地址

人生只如初

1844人浏览 · 2014-12-06 21:36:33

人生只如初 · 2014-12-06 21:36:33 发布

提取excel表中文字超链接的地址

ctrl+f11 开启vb

运行如下代码

f2，f23为地址

Sub GetHyperlink()

Dim LinkTest As Hyperlink
For Each LinkTest In ActiveSheet.Hyperlinks
LinkTest.Range.Offset(F2, F23).Value = LinkTest.Address
Next
End Sub

乐奇 Rokid 开放社区

更多推荐

智能眼镜市场全景解析：从技术演进到产业格局

本文系统梳理智能眼镜市场，涵盖产品形态、技术演进、市场规模、产业链结构及竞争格局。指出智能眼镜正从音频交互向AR显示与空间计算演进，受AI大模型、供应链成熟与生态延伸驱动，呈现分层发展态势。虽面临场景刚需不足、续航重量矛盾与隐私挑战，但B端应用先行、AI原生设计与标准完善将推动行业迈向规模化渗透，未来需关注核心技术突破与真实使用数据。