Проверка ячеек на наличие нескольких данных

Question

Я хочу создать скрипт, который проверяет строки, когда во втором все строки в первом столбце завершены, проверяют следующий и т. Д.

Я хочу удалить некоторые слова из таблицы Excel, проблема в том, что слов много.

Я бы хотел сделать что-то вроде этого: IF A1 = car OR boat OR train ... для каждой ячейки, в которой есть текст. если ячейка содержит указанный текст, удалить его.

Кто-нибудь может привести несколько примеров?

спасибо, Себастьян

Answer 1

Попробуйте использовать Find / Replace через 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