Excel VBA求助：跨工作表搜索值并粘贴对应结果的代码问题排查

核心逻辑说明 #

你的需求可以通过两层遍历+单元格格式判断实现，先遍历TRS表的product ID，再到AP表匹配对应值，匹配成功后向下查找高亮单元格取值即可。

可直接使用的代码 #

Sub 匹配高亮值到TRS()
    Dim wsTRS As Worksheet, wsAP As Worksheet
    Dim trsLastRow As Long, apLastRow As Long
    Dim i As Long, j As Long
    Dim prodID As String
    Dim highlightColor As Long ' 此处修改为你AP表高亮对应的颜色索引，常用黄色为6
    
    ' 绑定工作表对象
    Set wsTRS = ThisWorkbook.Worksheets("TRS")
    Set wsAP = ThisWorkbook.Worksheets("AP")
    highlightColor = 6 ' 若使用其他高亮颜色，修改为对应色号即可
    
    ' 获取两个表的有效数据最后行行号，避免无效遍历
    trsLastRow = wsTRS.Cells(wsTRS.Rows.Count, "A").End(xlUp).Row ' 假设product ID在TRS表A列，可修改为实际列号
    apLastRow = wsAP.Cells(wsAP.Rows.Count, "A").End(xlUp).Row ' 假设AP表product ID存放在A列，可修改为实际列号
    
    ' 遍历TRS表所有product ID
    For i = 2 To trsLastRow ' 假设第一行为表头，从第二行开始遍历，可根据实际调整
        prodID = wsTRS.Cells(i, "A").Value ' 取当前行的product ID
        If prodID <> "" Then
            ' 到AP表匹配对应值
            For j = 1 To apLastRow
                If wsAP.Cells(j, "A").Value = prodID Then
                    ' 匹配成功后向下查找第一个高亮单元格
                    Dim k As Long
                    For k = j + 1 To apLastRow
                        If wsAP.Cells(k, "A").Interior.ColorIndex = highlightColor Then
                            ' 将高亮值写入TRS表对应行offshore列，假设offshore是TRS表C列，可修改为实际列号
                            wsTRS.Cells(i, "C").Value = wsAP.Cells(k, "A").Value
                            Exit For ' 找到值后退出循环，避免重复匹配
                        End If
                    Next k
                    Exit For ' 匹配到product ID后退出AP表遍历
                End If
            Next j
        End If
    Next i
    
    ' 释放对象
    Set wsTRS = Nothing
    Set wsAP = Nothing
    MsgBox "匹配完成"
End Sub

常见代码错误点 #

• 未提前绑定工作表对象，直接使用ActiveSheet导致操作的工作表和预期不符
• 匹配到product ID后，高亮单元格的遍历范围、颜色判断参数写错，无法正确取值
• 列号设置和实际表格不匹配，TRS表的product ID列、offshore列、AP表的product ID列索引有误
• 未设置遍历终止行，要么漏扫数据要么遍历大量空行导致运行报错

使用注意事项 #

• 代码中的列号、高亮颜色索引、表头行数请根据你实际的表格情况修改对应参数
• 运行前建议先备份原表格，避免误操作覆盖原有数据

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