VBA宏功能异常求助：Case ID匹配与数据追加逻辑错误排查

我看了你的代码和需求，问题主要出在嵌套循环的逻辑混乱以及**错误手动递增计数器j**上，导致匹配逻辑失效，新增Case ID的功能也没法正常工作。下面是修正后的代码，完全符合你的需求：

Sub readCaseIDs()
    Dim wsTarget As Worksheet ' Sheet1（目标表）
    Dim wsSource As Worksheet ' Sheet2（数据源表）
    Dim lastRowSource As Long ' Sheet2最后一行
    Dim lastRowTarget As Long ' Sheet1最后一行
    Dim i As Long ' Sheet2的循环变量
    Dim matchRow As Variant ' 存储匹配到的行号
    Dim issue2Header As String ' Sheet2第10列的标题
    
    ' 初始化工作表对象，让代码更易读
    Set wsTarget = ThisWorkbook.Sheets("Sheet1")
    Set wsSource = ThisWorkbook.Sheets("Sheet2")
    issue2Header = wsSource.Cells(1, 10).Value ' 提前获取第10列标题
    
    ' 获取Sheet2的最后一行（Case ID列）
    lastRowSource = wsSource.Cells(Rows.Count, "A").End(xlUp).Row
    
    ' 遍历Sheet2中所有行（从第2行开始，跳过表头）
    For i = 2 To lastRowSource
        ' 只处理Interior.ColorIndex=2的行
        If wsSource.Cells(i, 10).Interior.ColorIndex = 2 Then
            ' 用Match函数查找当前Case ID在Sheet1中是否存在
            matchRow = Application.Match(wsSource.Cells(i, 3).Value, wsTarget.Columns("A"), 0)
            
            If Not IsError(matchRow) Then
                ' Case ID存在，且Issue2（D列）为空时填充标题
                If wsTarget.Cells(matchRow, "D").Value = "" Then
                    wsTarget.Cells(matchRow, "D").Value = issue2Header
                End If
            Else
                ' Case ID不存在，追加到Sheet1末尾
                lastRowTarget = wsTarget.Cells(Rows.Count, "A").End(xlUp).Row + 1 ' 下一个空行
                wsTarget.Cells(lastRowTarget, "A").Value = wsSource.Cells(i, 3).Value ' 写入Case ID
                wsTarget.Cells(lastRowTarget, "D").Value = issue2Header ' 写入Issue2标题
            End If
        End If
    Next i
    
    ' 清理对象
    Set wsTarget = Nothing
    Set wsSource = Nothing
End Sub

核心改动说明 #

• 移除错误的嵌套循环：原代码用两层循环嵌套还手动递增j，导致循环逻辑完全混乱。现在改成遍历Sheet2的每一行，用Application.Match直接查找Case ID，效率更高逻辑更清晰。
• 增加空值判断：严格按照需求，只有当Issue2字段为空时才填充标题，原代码缺少这个关键判断。
• 简化追加逻辑：每次需要新增Case ID时，重新获取Sheet1的最后一行，确保不会因为新增行导致行号错误。
• 代码可读性优化：给工作表对象改名（wsTarget/wsSource），加上注释，后续维护更方便。
• 提前缓存标题：把Sheet2第10列的标题提前存到变量里，避免重复读取单元格，提升代码性能。

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