Я хочу сравнить два столбца подряд, как показано на рисунке

Я искал весь интернет (насколько мне известно), но не нашел то, что я ищу

Надеюсь, кто-нибудь может мне помочь

1 ответ1

1

Вот функция VBA, которую вы можете использовать:

Public Function ListMissingWords(WordsToSearch As String, TextToSearch As String) As String
    Dim AllWords As Variant
    Dim i As Integer
    Dim TempResult As String

    On Error GoTo ErrLabel

    AllWords = Split(WordsToSearch, ",")
    For i = LBound(AllWords) To UBound(AllWords)
        If Not InStr(LCase(TextToSearch), LCase(AllWords(i))) > 0 Then
            TempResult = TempResult & AllWords(i) & ","
        End If
    Next i
    If TempResult <> "" Then
        TempResult = Left(TempResult, Len(TempResult) - 1)
    End If
    ListMissingWords = TempResult

    Exit Function
ErrLabel:
    Err.Clear
End Function

Чтобы вставить это:

  • нажмите Alt+F11 в Excel
  • щелкните правой кнопкой мыши на названии вашей книги и выберите "вставить" - "модуль"
  • вставить код

Теперь вы можете использовать эту функцию в своей книге:

Вам нужно сохранить файл в виде книги Excel с поддержкой макросов (.xlsm).

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .