VBA查找指定ID最后匹配行并校验相邻列是否为空的方法咨询

你之前用xlDown/xlUp未成功的原因是：这两个定位方法遇到空单元格就会提前终止，无法覆盖全量数据范围。本方案采用从下往上倒序遍历的逻辑，第一个匹配到的目标ID就是该ID的最后一次出现记录，彻底规避空单元格的干扰。

实现步骤 #

• 先获取ID列最后一个有数据的行号，确定遍历范围
• 从最后一行数据开始向上逐行匹配用户输入的ID
• 匹配到ID后直接校验同行的姓名列是否为空，为空则弹出提示
• 匹配完成后直接终止遍历，无需多余计算

完整VBA代码 #

Sub 校验ID对应姓名是否为空()
    Dim targetID As String
    Dim lastRow As Long
    Dim i As Long
    ' 配置参数：ID列、姓名列的列号，示例ID在A列填1，姓名在B列填2，根据实际修改
    Const ID_COLUMN As Long = 1
    Const NAME_COLUMN As Long = 2
    ' 配置参数：数据起始行，默认第1行是表头，数据从第2行开始
    Const DATA_START_ROW As Long = 2
    
    ' 弹出输入框获取用户输入的ID
    targetID = InputBox("请输入需要校验的ID：", "ID姓名校验")
    ' 用户点击取消或输入为空直接退出
    If targetID = vbNullString Then Exit Sub
    
    ' 获取ID列最后一个有数据的行号
    lastRow = Cells(Rows.Count, ID_COLUMN).End(xlUp).Row
    
    ' 从最后一行向上倒序遍历
    For i = lastRow To DATA_START_ROW Step -1
        If Cells(i, ID_COLUMN).Value = targetID Then
            ' 匹配到最后一次出现的ID，校验姓名列
            If Cells(i, NAME_COLUMN).Value = vbNullString Then
                MsgBox "ID【" & targetID & "】的最后一次出现记录缺少对应姓名！", vbExclamation
            Else
                MsgBox "ID【" & targetID & "】的最后一次记录姓名为：" & Cells(i, NAME_COLUMN).Value, vbInformation
            End If
            ' 找到目标后直接退出，无需继续遍历
            Exit Sub
        End If
    Next i
    
    ' 遍历完成未找到对应ID的提示
    MsgBox "未查询到ID【" & targetID & "】的相关记录", vbInformation
End Sub

使用说明 #

• 按Alt+F11打开Excel VBA编辑器，右键点击你的工作簿名称选择「插入」-「模块」，将上述代码粘贴到模块中
• 根据你的表格实际情况修改开头的三个常量参数：ID列号、姓名列号、数据起始行号
• 按F5即可运行，也可以在表格中插入按钮绑定该宏，方便日常使用

内容的提问来源于stack exchange，提问作者kraljevocs