VBA实现基于Return列值匹配key并自动复制comp的循环需求

核心逻辑 #

放弃易出问题的Lookup方法，改用更稳定的Find定位匹配值，流程如下：

• 读取Return列最后一个非空单元格的内容，作为待匹配的key值
• 在key列中精准定位该值，获取对应行的comp值
• 将comp值写入Return列的下一个空行
• 重复上述步骤，直到找不到匹配的key值时停止

完整可运行VBA代码 #

Sub AutoFillReturn()
    Dim wsKeyComp As Worksheet ' 存放key和comp列的工作表
    Dim wsReturn As Worksheet ' 存放Return列的工作表
    Dim lastReturnRow As Long
    Dim targetKey As Variant
    Dim matchCell As Range
    Dim compResult As Variant
    
    ' 替换为你实际的工作表名称
    Set wsKeyComp = ThisWorkbook.Worksheets("KeyComp表")
    Set wsReturn = ThisWorkbook.Worksheets("Return表")
    
    Do
        ' 获取Return列最后一个非空行的内容（假设Return列在A列，按需修改）
        lastReturnRow = wsReturn.Cells(wsReturn.Rows.Count, "A").End(xlUp).Row
        targetKey = wsReturn.Cells(lastReturnRow, "A").Value
        
        ' 若当前值为空，直接退出循环
        If IsEmpty(targetKey) Then Exit Do
        
        ' 在key列精准匹配（假设key列在KeyComp表的A列，按需修改）
        Set matchCell = wsKeyComp.Range("A:A").Find(What:=targetKey, LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 找到匹配值则写入Return列下一行，否则终止循环
        If Not matchCell Is Nothing Then
            compResult = wsKeyComp.Cells(matchCell.Row, "B").Value ' comp列在B列，按需修改
            wsReturn.Cells(lastReturnRow + 1, "A").Value = compResult
        Else
            Exit Do
        End If
    Loop
End Sub

关键细节说明 #

• 工作表名称、列号需根据你的实际表格结构修改，代码中注释的位置要对应调整
• Find方法用xlWhole确保完全匹配key值，避免因部分匹配导致错误结果
• 循环逻辑会自动以Return列新写入的值作为下一次匹配的key，实现链式匹配

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