Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
列を反復処理し、コードで使用する各ハイパーリンクを抽出します(テキストと比較します)。
抽出部分を実行する方法についての良い指針はありますか?
を使用し.Hyperlinks(1).Addressてハイパーリンクを取得できます
.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