Excel VBA Loop処理
解決したいこと
標記のコードのハイパーリンク化の処理をB列の最終行まで繰り返したいです
該当するソースコード
Sub HL()
'__________________________変数の宣言'__________________________
Dim ws1 As Worksheet
Dim i As Long
Set ws1 = Worksheets("ED_Sheet")
'__________________________ハイパーリンク化'__________________________
ws1.Activate
Range("B2").Hyperlinks.Add Anchor:=Range("B2"), Address:=Range("B2").Value
End Sub
0 likes