Sub SearchAndUpdate()

    Dim searchRange As Range

    Dim searchValue As Variant

    Dim cell As Range

    

    ' 検索範囲を指定（C15からO15の範囲）

    Set searchRange = Range("C15:O15")

    

    ' 検索する値を取得

    searchValue = Range("C17").Value

    

    ' 検索範囲をループして値を比較し、一致するセルがあれば更新する

    For Each cell In searchRange

        If cell.Value = searchValue Then

            Range("Q15").Value = searchValue

            Exit For ' 一致するセルが見つかったらループを終了

        End If

    Next cell

End Sub