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

Question

Я хочу , чтобы найти конкретный текст , который является firstname_lastname например John_Smith в worksheetA WorksheetA имеет столбец firstname и другой столбец lastname Поэтому, узнав, какая строка имеет имя и фамилию, которые я искал, я хочу установить значение ячейки в той же строке с определенным значением.

Например, если это мой рабочий лист:

Firstname     Lastname     Found
Matt          Damon        No
Smith         Andrew       No
John          Smith        No
Tom           Mark         No

и мое поисковое слово John_Smith результат будет

Firstname     Lastname     Found
Matt          Damon        No
Smith         Andrew       No
John          Smith        Yes
Tom           Mark         No

Любой совет, пожалуйста, как это можно сделать в VBA Excel?

Answer 1

Этот код должен работать:

Public Sub searchfullname()
    fullname = InputBox("Input first and last name separated by _")
    namesarray = Split(fullname, "_")
    i = 2
    dataintable = True
    result = "No"
    m = ActiveSheet.Cells(i, 1)
    If m = "" Then dataintable = False
    While dataintable = True
        result = "No"
        If m = namesarray(0) Then
            n = ActiveSheet.Cells(i, 2)
            If n = namesarray(1) Then
                result = "Yes"
            End If
        End If
        ActiveSheet.Cells(i, 3) = result
        i = i + 1
        m = ActiveSheet.Cells(i, 1)
        If m = "" Then dataintable = False
    Wend
End Sub