Excel 去重实战：Python 脚本与 VBA 方案对比

3. 代码关键点解析

• Workbook 对象：负责加载和保存文件，是操作的核心入口。
• LastRow 属性：精准定位数据末尾，避免处理多余的空行。
• 集合 (set)：利用哈希结构高效记录已出现的值，判断速度极快。
• 逆序遍历：这是去重的关键技巧。从后往前删，可以避免删除当前行后导致后续行号偏移的问题，无需动态调整索引。
• 资源释放：调用 Dispose() 确保内存及时回收，防止长时间运行占用过多资源。

方案二：VBA 脚本原生操作

VBA（Visual Basic for Applications）是 Excel 自带的脚本语言，无需安装任何第三方工具，适合在现有工作表中直接快速清理数据。

1. 准备工作

• 打开 Excel 文件，进入【文件】→【选项】→【自定义功能区】，勾选'开发工具'。
• 按 Alt + F11 打开 VBA 编辑器，点击【插入】→【模块】，即可粘贴代码。

2. 完整 VBA 代码

该脚本会删除当前工作表中基于第一列（A 列）的所有重复行，仅保留第一条匹配项：

Sub VBA_RemoveDuplicates_SpecCol() 
    Dim ws As Worksheet 
    Dim lastRow As Long 
    Dim dict As Object 
    Dim targetCol As String 
    Dim cellVal As String 
    Dim i As Long 
    
    ' 指定判重列（如 "A" 列）
    targetCol = "A"
    Set ws = ActiveSheet
    Set dict = CreateObject("Scripting.Dictionary")
    lastRow = ws.UsedRange.Rows.Count
    
    If lastRow < 2 Then
        MsgBox "数据不足！", vbInfo
        Exit Sub
    End If
    
    ' 倒序遍历，仅按指定列判重
    For i = lastRow To 2 Step -1
        cellVal = IIf(IsEmpty(ws.Cells(i, targetCol).Value), "", ws.Cells(i, targetCol).Value)
        If dict.Exists(cellVal) Then
            ws.Rows(i).Delete
        Else
            dict.Add cellVal, i
        End If
    Next i
    
    Set dict = Nothing
    Set ws = Nothing
    MsgBox "按" & targetCol & "列去重完成！", vbInfo
End Sub 

3. 代码关键点解析

• 字典对象 (Dictionary)：利用 VBA 的 Scripting.Dictionary 对象存储已见过的值，效率高于数组循环。
• 目标列设置：targetCol = "A" 定义了判重依据，修改此处即可切换列。
• 空值处理：使用 IIf(IsEmpty(...)) 将空单元格统一转为空字符串，避免因类型差异导致的误判。
• 倒序循环：同样采用从下往上遍历的策略，防止删除行后索引错乱。
• 运行方式：在编辑器中按 F5 或点击'运行'按钮，执行完毕后会有弹窗提示。

无论是 Python 的批量自动化，还是 VBA 的轻量化原生操作，掌握这两种方法基本能覆盖绝大多数 Excel 去重需求。手动逐行删除既耗时又易出错，用脚本替代不仅能提升效率，还能保证数据处理的准确性。