如果标题不包含，则删除列

如果使用了一个单词，下面的代码是有效的，但是我希望它能够查找两个单词。 因此，如果第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 

我怎样才能在这个陈述中joinOR "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