Excel 2013：用VLOOKUP/MATCH/INDEX标记X而非返回匹配值的方法

一、公式法（无需VBA，直接用函数） #

适合手动填充，操作简单，适配Sheet1的打印需求：

1. COUNTIF判断标记 #

假设要检查Sheet1中A列内容是否在Sheet2的A列存在，在Sheet1的B2单元格输入公式：

=IF(COUNTIF(Sheet2!A:A, A2)>0, "X", "")

下拉填充到所有目标行，匹配项会显示X，未匹配则为空。

2. MATCH+ISNUMBER判断标记 #

习惯用MATCH函数的话，可使用以下公式：

=IF(ISNUMBER(MATCH(A2, Sheet2!A:A, 0)), "X", "")

逻辑一致：MATCH找到匹配项会返回行号（数字格式），ISNUMBER验证后返回X或空值。

3. 勾选标记替代X #

需要更直观的符号时，把公式里的"X"换成"☑"即可：

=IF(COUNTIF(Sheet2!A:A, A2)>0, "☑", "")

二、VBA宏法（批量一键标记） #

适合数据量大或需要一键更新标记的场景：

1. 按Alt+F11打开VBA编辑器
2. 右键当前工作簿 → 插入 → 模块
3. 粘贴以下代码（可根据实际列调整）：

Sub MarkMatchingItems()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long
    
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    '获取两表数据最后一行（假设匹配列为A列）
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    
    '遍历Sheet1数据行（从第2行开始，跳过表头）
    For i = 2 To lastRow1
        If Application.CountIf(ws2.Range("A2:A" & lastRow2), ws1.Cells(i, "A").Value) > 0 Then
            ws1.Cells(i, "B").Value = "X" '标记到B列，可修改为其他列
            '要勾选标记就改成：ws1.Cells(i, "B").Value = "☑"
        Else
            ws1.Cells(i, "B").ClearContents
        End If
    Next i
End Sub

4. 按F5运行宏，或给Sheet1添加表单按钮绑定该宏，方便外勤人员一键操作。

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