【マクロ】特定の文字含まれていればフラグを立てる

E列で特定の文字を含むセルを探し、隣のF列にフラグを立てる

E列に週を含む文字があれば、F列に1を、

無ければ0を返す。

For i = 2 To ActiveSheet.Range("E2").End(xlDown).Row
If ActiveSheet.Cells(i, 5).Value Like "*週" Then
ActiveSheet.Cells(i, 6).Value = 1
Else
ActiveSheet.Cells(i, 6).Value = 0
End If
Next i