遇到这种代码逻辑导致结果重复的问题确实闹心，我帮你排查出了几个关键错误，这就是为什么你会得到所有行都返回Sheet2首行值的原因：

• headersRange范围错误：你原本把Sheet2的A2:B5设为headersRange，这会让循环遍历到数字列（B2-B5）的单元格，导致lookupValue变成数字而非表头文本，后续VLOOKUP自然找不到正确结果。应该只选表头所在的A2:A5区域。
• VLOOKUP查找范围和列数写错：原代码里用headersRange.Offset(0,1)把查找范围移到了B2:C5，完全偏离了你的数据结构（表头在A列，数字在B列）。正确的查找范围应该是Sheet2的A2:B5，返回第2列（B列的数字）。
• 循环逻辑导致结果被覆盖：你现在的内层循环会遍历所有表头，不管当前行哪个单元格是TRUE，都会执行VLOOKUP并赋值，最后留下的是最后一次循环的结果，完全没对应到当前行TRUE所在列的表头。

下面是修正后的代码，我标注了关键修改点，同时优化了逻辑效率：

Sub UpdateOutput()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim headersRange As Range ' 仅存储Sheet2的表头列
    Dim dataRow As Range
    Dim lookupValue As String
    Dim lookupResult As Variant
    Dim lr As Long
    Dim i As Long
    Dim cell As Range
    
    Set ws1 = ThisWorkbook.Worksheets("QMform")
    Set ws2 = ThisWorkbook.Worksheets("NameList")
    ' 修改1：只选取Sheet2的表头区域（A2:A5），排除数字列
    Set headersRange = ws2.Range("A2:A5")
    ' 修改2：指定ws1的行数，避免依赖ActiveSheet导致的错误
    lr = ws1.Cells(ws1.Rows.Count, 1).End(xlUp).Row
    
    For i = 2 To lr
        Set dataRow = ws1.Range("A" & i & ":D" & i)
        ' 判断整行是否全为FALSE
        If Application.WorksheetFunction.CountIf(dataRow, "TRUE") = 0 Then
            ws1.Range("E" & i).Value = 0
        Else
            ' 修改3：遍历当前行的每个单元格，找到第一个TRUE的单元格
            For Each cell In dataRow
                If cell.Value = "TRUE" Then
                    ' 获取该列的表头（假设Sheet1的表头在第1行，若不是请修改数字1）
                    lookupValue = ws1.Cells(1, cell.Column).Value
                    ' 修改4：正确的VLOOKUP范围是Sheet2的A2:B5，返回第2列的数字
                    lookupResult = Application.VLookup(lookupValue, ws2.Range("A2:B5"), 2, False)
                    If Not IsError(lookupResult) Then
                        ws1.Range("E" & i).Value = lookupResult
                        ' 找到结果后立即退出循环，避免后续覆盖
                        Exit For
                    End If
                End If
            Next cell
        End If
    Next i
End Sub

修正后的逻辑说明： #

1. 先遍历当前行的每个单元格，精准定位到第一个值为TRUE的单元格；
2. 获取该单元格所在列的表头文本（假设你的Sheet1表头在第1行，如果实际表头在其他行，把代码里的1改成对应的行号即可）；
3. 用表头文本去Sheet2的A2:B5区域做VLOOKUP，返回对应的B列数字；
4. 找到有效结果后立即退出内层循环，彻底避免后续循环覆盖正确值；
5. 同时优化了获取数据行数的代码，明确指定是Sheet1的行数，避免因ActiveSheet切换导致的错误。

备注：内容来源于stack exchange，提问作者Rax