excel - 查找匹配的最后一行并检查下一列是否为空

Question

我有一个包含 ID 和名称的电子表格。我想要一个程序(当用户输入特定 ID 时)将在同一列中找到该代码的最新实例，然后检查下一列是否为空。例如:

ID       | Name
SD123456 | John
DF989899 | Alice 
SD123456 | Jason
KA452331 | Wilson
SD123456 | 
DF456790 | Jack

如您所见，ID 'SD123456' 缺少名称，因此我想知道是否可以搜索 ID 'SD123456' 并获取该 ID 的最后一行并检查下一行是否丢失。我试过使用 xlDown 和 xlUp 但无济于事。
编辑:总而言之，我的整个 VBA 目的是搜索 ID，然后检查该最新 ID 是否有名称，如果没有，则提醒用户该 ID 缺少名称。

Answer 1

你可以试试这个，简单明了:

Dim lastrow As Long, i As Long
Dim ID As String

lastrow = Sheet1.UsedRange.Rows.Count
ID = "DF989899"

For i = 2 To lastrow
    If InStr(Sheet1.Cells(i, 1).Value, ID) And IsEmpty(Sheet1.Cells(i, 2).Value) Then
      MsgBox "Missing Value for ID: " & Sheet1.Cells(i, 1).Value
    End If
Next