Skip to content

Instantly share code, notes, and snippets.

@DQNEO

DQNEO/sample.vba

Created March 4, 2021 07:07
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save DQNEO/08a7c859977e80d68123ccc08827b243 to your computer and use it in GitHub Desktop.
Save DQNEO/08a7c859977e80d68123ccc08827b243 to your computer and use it in GitHub Desktop.
Download ZIP
Extract Hyperlink URLs
Raw
sample.vba
Sub getHyperLinkURLs()
Range(Range("B1"), Range("B1").End(xlDown)).Select
Dim cell As Range
For Each cell In Selection
cell.Offset(0, 1).Value = cell.Hyperlinks(1).Address
Next
End
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment