为何这段VBA代码中的IF逻辑无法正常执行？求助排查

你的代码问题出在嵌套循环的逻辑错误上，导致要么无法正确写入内容，要么持续覆盖同一个单元格。让我拆解一下问题根源：

原代码的核心问题 #

你当前的逻辑是：遍历HR表的每一行（j循环），同时嵌套遍历Report表的每一行（i循环）——只要HR行符合条件，就把HR的第3列内容写入Report的第i行第1列。这会引发两个关键问题：

1. 每个符合条件的HR行，都会把内容重复写入Report的所有行，最终所有Report行都会被最后一个符合条件的HR内容覆盖；
2. 如果Report表的已用行数很少（比如只有表头1行），i循环只会执行到i=2，每次符合条件的HR行都会覆盖report.Cells(2,1)，所以你看到的就是持续覆盖第一个单元格。

修复后的代码 #

我们需要调整逻辑：用一个单独的变量跟踪Report表中要写入的目标行，遍历HR表时，每找到一个符合条件的行，就把内容写入当前目标行，然后目标行号递增，这样就能依次往下写入，不会覆盖旧内容。

Dim hr As Worksheet
Dim report As Worksheet

Sub populateMetaData()
    Dim j As Long
    Dim targetRow As Long ' 跟踪Report表的写入行号，用Long避免行数溢出
    
    Set report = ActiveWorkbook.Worksheets("Report")
    Set hr = ActiveWorkbook.Worksheets("HR_Report")
    
    targetRow = 2 ' 从第2行开始写入（跳过表头）
    ' 可选：清空Report表第1列的旧数据（除表头）
    report.Range("A2:A" & report.UsedRange.Rows.Count).ClearContents
    
    ' 只遍历HR表的行，无需嵌套遍历Report表
    For j = 2 To hr.UsedRange.Rows.Count
        If hr.Cells(j, 10) = "AWM TECH & OPS" Then
            report.Cells(targetRow, 1) = hr.Cells(j, 3)
            targetRow = targetRow + 1 ' 写完一行，目标行号+1，准备写下一行
        End If
    Next j
End Sub

额外优化说明 #

• 用Long代替Integer：Excel的行数可能超过Integer类型的最大值（32767），使用Long可以避免溢出错误；
• 清空旧数据：添加清空操作可以避免Report表中残留的旧数据和新写入内容混淆。

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