VBA Excel 删除重复行

作者:编程家 分类: vba 时间:2025-09-16

VBA Excel 删除重复行

在处理 Excel 数据时，经常会遇到需要删除重复行的情况。重复行不仅占据了不必要的空间，还可能引起数据分析的误差。为了解决这个问题，我们可以利用 VBA（Visual Basic for Applications）编程语言来编写一段代码，实现自动删除重复行的功能。

案例代码：

下面是一个简单的案例代码，用于演示如何使用 VBA Excel 删除重复行。

vba
Sub DeleteDuplicateRows()
    Dim lastRow As Long
    Dim i As Long
    Dim j As Long
    
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = lastRow To 2 Step -1
        For j = i - 1 To 1 Step -1
            If Cells(i, 1).Value = Cells(j, 1).Value Then
                Rows(i).Delete
                Exit For
            End If
        Next j
    Next i
End Sub

以上代码的逻辑很简单，首先获取数据的最后一行（`lastRow`），然后从最后一行开始向上遍历。对于每一行，再从当前行往上遍历，并与上方的行进行比较。如果发现有相同的值，就删除当前行。这样就可以确保只保留唯一的值。

使用方法：

1. 打开 Excel 文件，按下 `ALT + F11` 快捷键，打开 VBA 编辑器；

2. 在 VBA 编辑器中，选择需要删除重复行的工作表；

3. 点击菜单栏的「插入」，选择「模块」，在模块中粘贴上述代码；

4. 按下 `F5` 键或点击运行按钮，运行代码；

5. 执行完毕后，重复行将会被删除。

注意事项：

在使用以上代码时，需要注意以下几点：

- 代码中的 `Cells(1, 1)` 表示第一列第一行的单元格，如果你需要删除的是其他列的重复行，需要相应地修改代码中的行号和列号；

- 请务必在运行代码之前备份你的 Excel 文件，以防出现意外情况。

：

使用 VBA Excel 删除重复行可以帮助我们快速清理数据，提高数据分析的准确性。通过编写简单的代码，我们可以实现自动化的去重操作，避免了手动删除重复行的繁琐工作。希望以上的示例代码和使用方法能够对你有所帮助！


本站代码收录于网上如果侵犯了您的权益请联系删除。 星云探索 备案:鲁ICP备15006040号-14