☰

在 Microsoft Excel 2013 中搜索两列并使用特定值设置第三列的值

tag-icon • tag-icon microsoft-excel vba microsoft-excel-2013
在 Microsoft Excel 2013 中搜索两列并使用特定值设置第三列的值

我想搜索特定文本，例如。firstname_lastname有John_Smith一列和另一列。因此，在知道哪一行具有我搜索的名字和姓氏后，我想将同一行中单元格的值设置为特定值。worksheetAWorksheetAfirstnamelastname

例如，如果这是我的工作表：

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 中实现这一点吗？

答案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

相关内容