【エクセル】VBAでハイパーリンクそうさ

質問

VBAでハイパーリンクのマクロを組んでいます。

A列にホームページ名が50行（シートによってまちまち）くらい並んでいて、
B列に、それに対応するURLが記入されています。B列は空白のところがちらほ
らあります。

A列に、A列の表示（ホームぺジ名）のまま、B列のURLでハイパーリンクを張りたい
です。リンクは貼れたんですが、ホームページ名がどうやれば表示できるかわかり
ません。教えてくださいお願いします。

ダメダメですが、一応自分で書けたところまでを載せておきます。

Sub ハイパーリンク()
Dim i As Integer
Dim j As Integer
j = 50

For i = 1 To j
Sheets("Sheet1").Select
Cells(i , 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cells(i , 2), TextToDisplay:=""
Next i

End Sub

としました。

回答No.1

mshr1962 · ベストアンサー

訂正は一箇所　TextToDisplay:= に元のテキストを設定するだけ
Sub ハイパーリンク()
Dim i As Integer
Dim j As Integer
j = 50

For i = 1 To j
Sheets("Sheet1").Select
Cells(i , 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
Cells(i , 2), TextToDisplay:=Cells(i , 1).Value
Next i

End Sub