1

列を反復処理し、コードで使用する各ハイパーリンクを抽出します(テキストと比較します)。

抽出部分を実行する方法についての良い指針はありますか?

4

1 に答える 1

3

を使用し.Hyperlinks(1).Addressてハイパーリンクを取得できます

たとえば、これはA1からA5へのハイパーリンクを抽出します

Sub Sample()
    Dim i As Long

    For i = 1 To 5
        Debug.Print Range("A" & i).Hyperlinks(1).Address
    Next
End Sub
于 2012-07-02T07:53:54.517 に答える