- 帖子
- 45
- 主題
- 1
- 精華
- 0
- 積分
- 51
- 點名
- 0
- 作業系統
- windows 7
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 註冊時間
- 2013-4-16
- 最後登錄
- 2013-12-30
|
2#
發表於 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
|
|
