检查单元格中是否有多个数据之一

Question

我想制作一个检查行的脚本，第二个第一列上的所有行都完成后，检查下一行，依此类推。

我想从Excel表格中删除一些单词，问题是单词太多。

我想做这样的事情： 对于每个包含文本的单元格，IF A1 = 汽车或船或火车...。 如果单元格包含指定的文本，则将其删除。

谁能举一些例子吗？

谢谢， 塞巴斯蒂安

Answer 1

尝试通过 VBA 使用查找/替换。它非常快。

Sub SearchAndDestroy()
    Dim SearchWordCell As Range

    For Each SearchWordCell In Range("A1:A50") 'Asuming that range A1:A50 is the list with the 50 words you want to search/replace

        Range("C10:R4510").Replace What:=SearchWordCell.Value, Replacement:="", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False  'Asuming that range C10:R4510 is the table where you want to find and delete the words.

    Next SearchWordCell

End Sub

只需根据需要修改即可。

Answer 2

将要删除的单词列表存储在某个范围内，并循环浏览该范围。

示例：

Sub DeleteFromWordList()
Dim InRange As Range, CritRange As Range
Dim InCell As Range, CritCell As Range

    Set InRange = Selection                  ' all selected source cells
    Set CritRange = Range("Words2Delete")    ' the named range of words to be excluded

    For Each InCell In InRange.Cells
        For Each CritCell In CritRange.Cells
            If InCell = CritCell Then
                InCell = ""                  ' blank it
                Exit For                     ' exit inner for
            End If
        Next CritCell
    Next InCell
End Sub

希望有帮助......祝你好运 MikeD