2021-08-27から1日間の記事一覧
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" E…