如果单词不是字符串替换

Question

我没有创建VBA来替换列中的某些值。

标准：

我在一个字符串中有2个单词。如果这两个单词不在列中，则用变量替换单元格。

示例：

day
day
day
free
day
Busy
day
Busy

字符串:(白天，免费）

如果一个单词不包含在String中，则替换为＆＃34; off＆＃34;

结论：

Day
Day
Day
Free
Day
Off
Day
Off

Answer 1

让我们帮助他哈哈

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

鉴于A栏包含：

day  
day  
day  
free  
day  
Busy  
day  
Busy  

输出将是：

day  
day  
day  
free  
day  
off  
day  
off