ヘッダーが含まれていない場合の列の削除

Question

次のコードは、1つの単語を使用する場合に機能しますが、2つの単語を検索したいと思います。したがって、行3にある列ヘッダーに "Homer"または "Marge"が含まれていない場合は、その列全体を削除します。

Sub DontDelete() 

Dim currentColumn As Integer 

'Delete if the cell doesn't contain "Homer" OR "Marge" 
If InStr(3, _ 
    ActiveSheet.UsedRange.Cells(3, currentColumn).Value, _ 
     "Homer", vbBinaryCompare) = 0 Then 

ActiveSheet.Columns(currentColumn).Delete 

End If 

End Sub 

OR "Marge"をこのステートメントに組み込むにはどうすればよいですか？

Answer 1

あなたは、私がこの...最近滑り:)が出ているはずですしましAnd

If InStr(3, ActiveSheet.UsedRange.Cells(3, currentColumn).Value, _ 
     "Homer", vbBinaryCompare) = 0 And InStr(3, ActiveSheet.UsedRange.Cells(3, currentColumn).Value, _ 
     "Marge", vbBinaryCompare) = 0 Then 
ActiveSheet.Columns(currentColumn).Delete 
End If