清除特定范圍內包含6個字符串中的任何一個的單元格的內容

Question

我試圖清除指定范圍內任何單元格的內容，如果它們包含6個字符串中的任何一個。 這是我到目前為止所擁有的，但是它似乎不起作用，如果我僅對一個字符串執行，它就可以。

 For Each cell In rng1 If cell.Value = "time" And "$ActiveCalibrationPage" And "$CalibrationLog" And "$EVENT_COMMENTS" And "$PAUSE_COMMENTS" And "$SNAPSHOT" Then cell.ClearContents End If Next cell 

有人可以為此指出正確的方向嗎

Answer 1

使用Replace更有效的方法

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