単語が文字列でない場合replace

Question

列内の一部の値を置き換えるためのVBAの作成に失敗しています。

条件：

文字列に2つの単語があります。それらの2つの単語が列にない場合は、セルを変数に置き換えます。

例：

day 
day 
day 
free 
day 
Busy 
day 
Busy 

文字列：

Day 
Day 
Day 
Free 
Day 
Off 
Day 
Off 

Answer 1

：（日、無料）

文字列に含まれていない単語は、

結論 "オフ" に置き換えた場合

ただ彼を助けようよ

その列Aを考えるとは、

Sub DateSelectandClean() 
    Dim str, iRow, iCol 
    str = "day, free" 
    iRow = 1 
    iCol = 1 
    Do 
     If (Cells(iRow, iCol).Value <> "") Then 
      If (InStr(1, str, Cells(iRow, iCol).Value) = 0) Then 
       Cells(iRow, iCol).Value = "off" 
      End If 
      iRow = iRow + 1 
     Else 
      Exit Do 
     End If 
    Loop 
End Sub 

含まれています

day 
day 
day 
free 
day 
Busy 
day 
Busy 

出力は次のようになります。

day 
day 
day 
free 
day 
off 
day 
off