Ako ti odgovara bez makroa:
Napravi novi list i u njemu napiši formulu
=HYPERLINK("http:\\" & Sheet1!B1;Sheet1!A1)
kopiraj je za ceo opseg
pa onda ovaj stari list možeš da sakriješ Format/Sheet/Hide
Ako baš hoćeš pomoću makroa:
Code:
Sub Linkovi()
'
' Kreira linkove u trecoj koloni na osnovu sadrzaja prve i druge
' pa posle brise prvu i drugu kolonu
'
Dim cl As Range
For Each cl In Range("C1:C4").Cells ' Navedi svoj opseg
ActiveSheet.Hyperlinks.Add Anchor:=cl, _
Address:=cl.Offset(ColumnOffset:=-1).Text, _
TextToDisplay:=cl.Offset(ColumnOffset:=-2).Text
Next cl
' Brisanje
Columns("A:B").Select
Selection.Delete Shift:=xlToLeft
End Sub
Obrati pažnju da Undo posle makroa ne radi pa napravi rezervu. Koristeći navedena svojsteva Hiperlinkova (Address i TextToDisplay) naravno možeš da napraviš i obrnuto.
Nije to loše Rembrante, samo što ne bi dodao još malo boje?