Option Explicit Sub Macro1()'' Macro1 Macro Dim searchText As String ' 検索文字列 Dim replaceText As String ' 置換文字列 Dim startRow As Long ' 検索／置換文字列が記載されている先頭行 startRow = 4 Dim searchColumn As Long ' 検索文字列が記載…