Excel库存验证：删除Tracking Number重复匹配的整行方法求助

先解决格式问题（避免识别不准） #

你的条件格式失效大概率是Tracking Number存在格式差异（数字/文本）、空格或大小写问题，先统一处理：

• 选中报表（Sheet1）和扫描记录（Sheet2）的Tracking Number列，右键选择「设置单元格格式」→ 选「文本」
• 用=TRIM(单元格)清除单元格内的前后空格，下拉填充后复制为值；或用「查找替换」把所有空格替换为空

方法1：VLOOKUP标记+筛选删除（适合普通用户） #

1. 在报表Sheet1的最后一列插入新列，表头命名为「匹配标记」
2. 在新列第2行输入公式：

   =IF(ISNA(VLOOKUP(F2, Sheet2!A:A, 1, FALSE)), "保留", "删除")
   

   （注：F2是报表中Tracking Number的第一个数据单元格，Sheet2!A:A是扫描记录的Tracking Number列，根据实际位置调整）
3. 下拉填充公式到所有数据行
4. 选中整个报表数据区域，点击「数据」选项卡→「筛选」，在「匹配标记」列的筛选菜单中只勾选「删除」
5. 选中筛选出的所有行，右键→「删除整行」，最后取消筛选并删除「匹配标记」列即可

方法2：高级筛选（快速批量处理） #

1. 在扫描记录Sheet2的Tracking Number列上方，复制报表Sheet1中Tracking Number的表头（确保两个表头完全一致）
2. 回到Sheet1，点击「数据」选项卡→「高级」
3. 在弹窗中选择「将筛选结果复制到其他位置」：
   • 「列表区域」选择Sheet1的完整数据区域（包含表头）
   • 「条件区域」选择Sheet2的表头+所有扫描的Tracking Number
   • 「复制到」选择空白工作表的某个单元格
4. 点击确定后，复制出来的就是匹配的行，直接删除这些行；或者反过来，勾选「选择不重复的记录」，复制出来的是需要保留的行，替换原报表即可

方法3：宏一键执行（适合高频重复操作） #

如果每周都要处理，可以录个宏一键完成：

1. 按Alt+F11打开VBA编辑器，右键工作簿→「插入」→「模块」
2. 粘贴以下代码（根据实际工作表名和列位置调整）：

   Sub DeleteMatchedTrackings()
       Dim wsReport As Worksheet, wsScan As Worksheet
       Dim scanList As Range, trackCell As Range
       Dim deleteRows As Range
       
       '替换为你的工作表名称
       Set wsReport = ThisWorkbook.Sheets("报表")
       Set wsScan = ThisWorkbook.Sheets("扫描记录")
       '获取扫描记录的Tracking Number区域（假设在A列）
       Set scanList = wsScan.Range("A2:A" & wsScan.Cells(wsScan.Rows.Count, "A").End(xlUp).Row)
       
       '遍历报表的Tracking Number列（假设在F列）
       For Each trackCell In wsReport.Range("F2:F" & wsReport.Cells(wsReport.Rows.Count, "F").End(xlUp).Row)
           If Not IsError(Application.Match(trackCell.Value, scanList, 0)) Then
               If deleteRows Is Nothing Then
                   Set deleteRows = trackCell.EntireRow
               Else
                   Set deleteRows = Union(deleteRows, trackCell.EntireRow)
               End If
           End If
       Next trackCell
       
       '删除匹配行
       If Not deleteRows Is Nothing Then deleteRows.Delete
   End Sub
   

3. 保存文件为.xlsm格式（启用宏的工作簿），以后打开文件按Alt+F8，选择DeleteMatchedTrackings执行即可

内容的提问来源于stack exchange，提问作者James C.