Очень просто. Скопировали всё в, допустим, блокнот/ворд, из оного опять всё скопировали в эксель - каждая ссылка будет в своей ячейке. ЗЫ Вам бы научиться обращаться за помощью, а не за так сделать говорить.
Формула массива (ФМ) вводится Ctrl+Shift+Enter Memento mori
Option Explicit
Sub tt()
Dim a, lRow As Long, lR As Long, i As Long, str As String
lRow = Cells(Rows.Count, 1).End(xlUp).Row
Application.ScreenUpdating = False
For lR = lRow To 2 Step -1
a = Split(Cells(lR, 1), Chr(10))
i = UBound(a) + 1
If i > 1 Then
str = Cells(lR, 2).Value
Cells(lR, 1).Resize(i - 1, 1).EntireRow.Insert Shift:=xlDown
Cells(lR, 1).Resize(i, 1).Value = Application.Transpose(a)
Cells(lR, 2).Resize(i, 1).Value = str
End If
Next lR
Application.ScreenUpdating = True
End Sub