ハイパーリンクの表示で質問の続きです。

質問

これで大丈夫かな？
Sub test()
Dim i As Long
For i = 1 To Range("A65536").End(xlUp).Row
Cells(i, 1).Hyperlinks(1).TextToDisplay = Cells(i, 1).Hyperlinks(1).Address
Cells(i, 2).Value = Cells(i, 1).Hyperlinks(1).Address
Next i
End Sub
-------------------
有難うございました。完璧ですが、

ハイパーリンクのないセルのところでエラーになります。
ハイパーリンクのないセルは無視（エラーを無視）して次のセルの作業を指示したいのですが、・・・お願いします。

しばらくVBAを離れていまして思い出せません。すみません。

回答No.1

popesyu · ベストアンサー

細かいところまでこだわりたいのなら
On Error GoTo Err
でエラー発生時に分岐させて処理を行うか
単純に
On Error Resume Next
で無視して続行でもかまわないかと思います。

お礼

出来ました。有難うございます。