vba - If 或语句始终为真

Question

摘要:我有一个包含一堆不必要列的电子表格。因为将来可能会添加新列，所以我将删除 <> 的所有内容。必要的列。

问题:我有一个长If Or我使用下面的陈述，但它总是正确的。我尝试在 Or 之间的每个语句周围加上括号。 's 和许多其他括号变体，但没有一个是正确的。在括号的一种变体下，该陈述总是错误的，但这是我收到的唯一变化。

代码:

If (Cells(4, i).Value <> "BATCH_ID" Or Cells(4, i).Value <> "Indicative" Or Cells(4, i).Value <> "Company Code" Or Cells(4, i).Value <> "Policy Num" Or Cells(4, i).Value <> "Numeric Amount" Or Cells(4, i).Value <> "Legal Amount" Or Cells(4, i).Value <> "PAYMENT_AMT") Then

      ActiveCell.EntireColumn.Delete

End If

我在这里做错了什么？提前致谢!

Answer 1

其他人在使用 And 时提到了一个很棒的概念。超过 Or在这种情况下。我也会推荐使用 Select Case在有多个标准的情况下，因为它更容易阅读、理解和编辑。

Select Case Cells(4, i).Value

    Case Is = "BATCH_ID", "Indicative", "Company Code", "Policy Num", "Numeric Amount", "Legal Amount", "PAYMENT_AMT"

    Case Else: ActiveCell.EntireColumn.Delete

End Select