如何在两个Excel工作簿指定列中查找重复项并完成数据处理？

阿华AIGC实验室

2026-5-8

嘿，我完全懂你现在的困扰——手动扒两个Excel工作簿里的重复项，还要只盯着某一列匹配、不用管行的位置，这活儿要是手动干真的能熬死人！根据你的需求，我整理了两种实用方法，一种是纯Excel函数操作（不用碰代码，适合怕麻烦的情况），另一种是简单的VBA脚本（自动化搞定，效率拉满），你可以根据自己的数据量和习惯选：

方法一：纯Excel函数实现（无需编程）

这种方法全程用Excel自带函数，不用写代码，适合数据量不算特别大的情况：

步骤1：标记工作簿2里的重复项
在工作簿2新增一列（比如L列），在L2单元格输入公式：
```
=COUNTIF([工作簿1.xlsx]Sheet1!$K:$K, $K2)
```
下拉填充到所有行。这个公式会统计工作簿1的K列里，和当前行K列值相同的数量——结果大于0的就是重复项。
步骤2：检查输入错误
筛选工作簿2的L列，只显示值大于0的行，手动核对这些行的K列值，确认是不是输入错误（比如多打了一个数字之类的）。
步骤3：把工作簿2的I列内容同步到工作簿1
在工作簿1新增一列（比如L列），在L2单元格输入更稳妥的INDEX+MATCH组合公式：
```
=IFERROR(INDEX([工作簿2.xlsx]Sheet1!$I:$I, MATCH($K2, [工作簿2.xlsx]Sheet1!$K:$K, 0)), "")
```
下拉填充后，你会看到工作簿1中匹配到的行，对应的L列会显示工作簿2的I列内容。接下来把L列的结果复制粘贴为值，然后选择性替换工作簿1中I列的空值（或者直接覆盖，根据你的需求来）。
步骤4：删除工作簿2的重复行
回到工作簿2，筛选L列大于0的行，选中这些行右键选择“删除行”就搞定了。

方法二：VBA脚本自动化（高效处理大量数据）

如果你数据量很大（比如几千上万行），纯函数会有点卡，那这个VBA脚本绝对能帮你省超多时间——你只要复制粘贴运行就行，不用自己写：

步骤1：准备工作
先打开两个目标工作簿，假设工作簿1叫Book1.xlsx，工作簿2叫Book2.xlsx，对应的工作表都是Sheet1（如果你的工作表名称不一样，后面改脚本里的名称就行）。一定要先备份两个工作簿，避免操作失误丢数据！
步骤2：打开VBA编辑器
按快捷键Alt + F11打开VBA编辑器，然后右键点击工作簿1的名称（在左侧“工程”面板里），选择「插入」→「模块」。

步骤3：粘贴脚本
把下面的代码粘贴到新建的模块里，注意修改脚本里的工作簿和工作表名称（如果和你的实际情况不符）：

Sub MatchAndUpdate()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim matchRow As Variant
    Dim i As Long
    
    ' 替换成你的工作簿和工作表名称
    Set wb1 = ThisWorkbook ' 当前打开的工作簿1
    Set ws1 = wb1.Sheets("Sheet1")
    Set wb2 = Workbooks("Book2.xlsx")
    Set ws2 = wb2.Sheets("Sheet1")
    
    ' 获取两表K列的最后一行
    lastRow1 = ws1.Cells(ws1.Rows.Count, "K").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "K").End(xlUp).Row
    
    ' 从下往上遍历，避免删除行导致索引混乱
    For i = lastRow2 To 2 Step -1
        ' 在工作簿1的K列查找匹配值
        matchRow = Application.Match(ws2.Cells(i, "K").Value, ws1.Range("K2:K" & lastRow1), 0)
        
        If Not IsError(matchRow) Then
            ' 如果工作簿1的I列是空的，复制工作簿2的I列内容过去
            If ws1.Cells(matchRow + 1, "I").Value = "" Then
                ws1.Cells(matchRow + 1, "I").Value = ws2.Cells(i, "I").Value
            End If
            ' 删除工作簿2的当前行
            ws2.Rows(i).Delete
        End If
    Next i
    
    MsgBox "所有操作完成！"
End Sub