Excel 清除特定范围内包含6个字符串中任意一个字符串的单元格内容

我试图清除指定范围内任何单元格的内容，如果它们包含6个文本字符串中的任何一个。这是我到目前为止所做的，但是它似乎不起作用，如果我只为一个字符串做它，它就起作用了

rng1中每个单元格的

如果cell.Value=“time”和“$ActiveCalibrationPage”和“$CalibrationLog”以及“$EVENT\u COMMENTS”和“$PAUSE\u COMMENTS”和“$SNAPSHOT”，则
cell.ClearContents
如果结束
下一个单元格

使用

替换

A1:100的样本范围

Sub OrAnd()
Dim vArr
Dim vArrE
Dim rng1 As Range
Set rng1 = [a1:a100]
vArr = Array("time", "$ActiveCalibrationPage", "$CalibrationLog", "$EVENT_COMMENTS", "$PAUSE_COMMENTS", "$SNAPSHOT")
For Each vArrE In vArr
    rng1.Replace vArrE, vbNullString, xlWhole
Next
End Sub

用
或