如何创建仅含三表共有员工ID的列？VBA宏执行异常排查

原代码的核心问题 #

• 固定单元格对比错误：始终对比Table2!A2和Table3!E2，而非在整个列中查找当前员工ID是否存在，完全不符合“同时存在于三张表”的需求。
• Select/ActiveCell导致的引用混乱：依赖Select和ActiveCell操作单元格，加上「使用相对引用」选项的影响，循环时单元格跳转逻辑彻底混乱，出现删隔位或每3位员工的问题。
• 循环逻辑漏洞：清空单元格后直接跳转到下下个单元格，跳过了本该检查的行，导致部分ID未被验证。

修正后的代码 #

Sub CompareTest()
    Dim wsTable1 As Worksheet, wsTable2 As Worksheet, wsTable3 As Worksheet, wsCompare As Worksheet
    Dim lastRow As Long, i As Long
    Dim idToCheck As Variant
    Dim matchTable2 As Variant, matchTable3 As Variant
    
    ' 定义工作表对象，彻底避免Select操作
    Set wsTable1 = ThisWorkbook.Sheets("Table1")
    Set wsTable2 = ThisWorkbook.Sheets("Table2")
    Set wsTable3 = ThisWorkbook.Sheets("Table3")
    Set wsCompare = ThisWorkbook.Sheets("Compare")
    
    ' 清空Compare表A列，保留表头
    wsCompare.Columns("A:A").ClearContents
    wsCompare.Range("A1").Value = "Employee ID"
    
    ' 获取Table1中员工ID的最后一行
    lastRow = wsTable1.Cells(wsTable1.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历Table1的所有员工ID（跳过表头）
    For i = 2 To lastRow
        idToCheck = wsTable1.Cells(i, "A").Value
        ' 检查ID是否存在于Table2的A列
        matchTable2 = Application.Match(idToCheck, wsTable2.Columns("A"), 0)
        ' 检查ID是否存在于Table3的E列
        matchTable3 = Application.Match(idToCheck, wsTable3.Columns("E"), 0)
        
        ' 仅保留同时存在于两个表的ID
        If Not IsError(matchTable2) And Not IsError(matchTable3) Then
            wsCompare.Cells(wsCompare.Rows.Count, "A").End(xlUp).Offset(1, 0).Value = idToCheck
        End If
    Next i
End Sub

修正说明 #

• 取消Select/ActiveCell操作：直接用工作表对象和单元格引用，彻底规避相对引用带来的跳转错误。
• 正确的存在性检查：用Application.Match在整列中查找ID，返回错误值则表示不存在，逻辑准确匹配需求。
• 严谨的循环逻辑：遍历Table1每一行ID，仅保留同时存在于另外两张表的ID，不会跳行漏检。

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