[問題] Web 超連結導入 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » [問題] Web 超連結導入

返回列表下一主題上一主題發帖

[問題] Web 超連結導入

中學生 Rank: 2

帖子: 45
主題: 1
精華: 0
積分: 51
點名: 0
作業系統: windows 7
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2013-4-16
最後登錄: 2013-12-30

1^# 跳轉到 »

發表於 2013-10-20 14:48 | 顯示全部帖子

回復 1# alumi

Sub ExtractHL()
Dim HL As Hyperlink
For Each HL In ActiveSheet.Hyperlinks
HL.Range.Offset(0, 1).Value = HL.Address
Next
End Sub

複製代碼

靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。

返回列表下一主題上一主題