删除表格中的重复单元格

Posted 2023-04-13

【中文标题】删除表格中的重复单元格

【英文标题】：Remove Duplicate cells in a table

【发布时间】：2016-10-02 03:35:40

【问题描述】：

我搜索了一种方法来，只为整个表格留下一个唯一元素。 问题在于它不是元素列表（在一列中），而是分布在整个表格中。 我发现的任何内容都会删除列中的重复项，或者使用转置表删除行中的重复项。我发现没有任何东西可以同时删除不同列和行中的任何重复项。 我看到excel中重复项的条件格式，选择整个表格，导致每个多个元素都被格式化。事实是，我无法删除所有格式正确的单元格，因为每种情况都需要一个元素。 我怎样才能做到这一点？我猜是“普通”的 excel 和任何电子表格软件都不够用，我需要将 VBA 用于 excel 还是其他？ 我还考虑过使用 MS Word 之类的东西来删除重复项，但是元素上有空格，有时它们有精确的“形容词”会破坏结果，这就是为什么我需要可以删除整个单元格的东西。

【参考方案1】：

假设我们从如下表开始：

这个简短的宏循环遍历表格中的所有单元格并清除包含多次出现的值的单元格：

Sub DupKiller()
    Dim rng As Range, r As Range

    Set rng = Range("A1:J21")

    For Each r In rng
        If Application.WorksheetFunction.CountIf(rng, r) > 1 Then r.Clear
    Next r
End Sub

该例程适用于文本和数字。