Sub ReplaceFolderNames()Dim ws As WorksheetDim lastRow As Long, i As LongDim folderPath As String, searchName As String, replaceName As StringDim folder As Object, fso As Object Set ws = ThisWorkbook.Sheets(1) ' 1番目のシートを使用lastRow …