Transfer hyperlinks and apply to adjacent text in bulk automatically

[zgoldflo]

Case: I have two columns one with normal text the other with a hyperlink. I want all adjacent links to be applied to the adjacent texts. What I have been doing until now is simply (CTRL+C) copying the link and (CTRL+K) to paste the link on the adjacent text one by one manually (extremely time consuming). Each text row has a corresponding individual unique hyperlink.

Question: Is there a way to automatically (either through formula or otherwise) to bulk copy hyperlinks and bulk paste them to respective adjacent text?

Example: (Top 4 links have been copied and pasted; it's the balance of 300+ lines of data that need that link to be applied to adjacent text)

Property class	See property report
Single family	https://www.propertyshark.com/mason/Property-Report/?propkey=25333703
Single family	https://www.propertyshark.com/mason/Property-Report/?propkey=25333715
Single family	https://www.propertyshark.com/mason/Property-Report/?propkey=25333694
Single family	https://www.propertyshark.com/mason/Property-Report/?propkey=25333709
Vacant commercial	416 NW 3rd Ave #1-4, Hallandale - Owner Information, Sales, Taxes
Vacant residential	Broward County Residential & Commercial Real Estate Data - PropertyShark
Vacant commercial	Broward County Residential & Commercial Real Estate Data - PropertyShark
Single family	https://www.propertyshark.com/mason/Property-Report/?propkey=25333525
Multi-family – less than 10 units	408 NW 4th Ave #1-4, Hallandale - Owner Information, Sales, Taxes
Single family	https://www.propertyshark.com/mason/Property-Report/?propkey=25333725

P.S. Currently data is in Google sheets but could easily transfer to excel to make changes. Would save hours maybe even days of work.

 

[LazyBug]

Hello!

If I understand your goals correcty (try on a copy of your data):

Sub zgf()
Dim r As Range, c As Range
    With ActiveSheet
        Set r = Application.InputBox("Select one-column range for hyperlinks adding from righter column", , , , , , , 8)
        Application.ScreenUpdating = 0
        For Each c In r
            If Not (IsEmpty(c)) Then
                If c.Hyperlinks.Count = 0 Then .Hyperlinks.Add Anchor:=c, Address:=c.Offset(, 1).Value
            End If
        Next c
    End With
End Sub