エクセルシートのA列にホームページの名前、B列にそのページのアドレスが入力されております。
A列のページ名にハイパーリンクの情報を結び付けて、B列を削除したいです。
※A列の名前が青くなっていて、クリックするとそのページに飛んでいくことができて、B列は空白
そのVBAを教えて頂けると助かります。
ページによって最終行が異なるので、最初に最終行を出して、For i で繰り替えしたらいいのでしょうか?
HYPERLINKS.Addメソッドというのを使えばいいと思ったんですが、うまくいきませんでした。
Option Explicit
Sub Sample()
Dim i As Long
'1行目からA列の最終行まで繰り返す
For i = 1 To Range("A" & Rows.Count).End(xlUp).Row
With ActiveSheet.Hyperlinks
.Add Anchor:=
End With
Next i
End Sub
お礼
ありがとうございます。