excel vba代碼來過濾包含列表中的任何一個字的列

Question

我是vba代碼的新手，並且一直在進行一些研究，並且不確定如何處理此項目。我有一個包含10列的電子表格。我需要過濾三列。過濾器將是一個六個單詞的列表。例如，三列在每個單元格中都有一組水果。我想只顯示含有蘋果，桔子，葡萄，梨，獼猴桃或香蕉的細胞的rowd。如果單元格不包含任何這些水果，那麼我不希望看到那一行，我已經找到了一些代碼片段來用兩個單詞進行過濾，但不超過這一點。有沒有人有什麼建議？我將不勝感激。

Answer 1

我已經完成了我的VBA編碼份額，並儘可能避免使用它。爲此，我會添加一個公式列，然後使用內置的過濾工具。我不確定每個細胞是否有一個單一的果實，或一個水果的名單，所以我想出了兩個公式。 如果每個單元僅包含一個水果，你可以嘗試這樣的一個公式：

=OR(A2="apple", A2="oranges", A2="grapes", A2="pears", A2="kiwi", A2="bananas") 

這將爲「葡萄」返回true，而不是「一串葡萄」。

如果水果可以在單元格值的任何地方，你需要更多的東西是這樣的：

=OR(ISNUMBER(SEARCH("apple", A2)), ISNUMBER(SEARCH("oranges", A2)), ISNUMBER(SEARCH("grapes", A2)), ISNUMBER(SEARCH("pears", A2)), ISNUMBER(SEARCH("kiwi", A2)), ISNUMBER(SEARCH("bananas", A2))) 

這將爲「蘋果」和「蘋果的啄」返回true。

這可以擴展到任意數量的單元/字符串組合。 一旦你有了額外的公式欄，只需打開過濾器並完成。