エクセルのハイパーリンクだけを抜き取りたい。

文字とハイパーリンクが入り乱れており、ハイパーリンクだけを抜き取り、どこかのセルに一列に並べたいのですが、どのようにしてやるのかよくわかりません。程度の低い質問で申し訳ございませんが、どうかよろしくお願いいたします。

No.1 回答者： watabe007 回答日時： 2010/02/15 22:43

アクティブシートのハイパーリンクをＡ列に整列

Sub Test()
　　Dim h As Hyperlink

　　For Each h In ActiveSheet.Hyperlinks
　　　　With Cells(Rows.Count, "A").End(xlUp)
　　　　　　h.Range.Cut .Offset(1)
　　　　End With
　　Next
End Sub

No.2 回答者： xls88 回答日時： 2010/02/15 22:47

VBAは大丈夫ですか？

下記コードで、A列のハイパーリンクをB列に書き出します。

Dim myLink As Hyperlink

For Each myLink In Range("A1:A30").Hyperlinks
myLink.Range.Offset(, 1).Value = myLink.Address
Next myLink