Sub macro()
Dim i As Long
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
If Dir("○○" & Range("A" & i).Value & ".pdf") <> "" Then
With ActiveSheet.Hyperlinks
.Add anchor:=Range("A" & i), _
Address:="○○" & Range("A" & i).Value & ".pdf"
End With
End If
Next
End Sub
