Excel 比较两列并删除重复项而不移动

我有下面的数据表

COLA        COLB
ABC          10
ABC          10
ABC          15
XYZ          10
XYZ          15
XYZ          15

我想比较两列，如果它们重复，我想删除空白单元格，我不想移位。 比如说像这样,

   COLA        COLB
    ABC          10

    ABC          15
    XYZ          10
    XYZ          15

如何在excel中执行此操作

干杯

试试这个

Option Explicit
Dim i, j, count, lastrow As Integer
Dim number As Long

Sub delete_duplicates()
    lastrow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
    For i = 1 To lastrow
        number = Cells(i, 2)
        For j = 1 To lastrow
            If number = Cells(j, 2) Then
                count = count + 1
                If count > 1 Then
                    Cells(j, 2) = ""
                End If
            End If
        Next j
    count = 0
    Next i
End Sub

试试这个

Option Explicit
Dim i, j, count, lastrow As Integer
Dim number As Long

Sub delete_duplicates()
    lastrow = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
    For i = 1 To lastrow
        number = Cells(i, 2)
        For j = 1 To lastrow
            If number = Cells(j, 2) Then
                count = count + 1
                If count > 1 Then
                    Cells(j, 2) = ""
                End If
            End If
        Next j
    count = 0
    Next i
End Sub

无vba方法

步骤1：使用公式标识要删除的行

将此公式放在C2处并填写

=IF(COUNTIFS(A$2:A2,A2,B$2:B2,B2)=1,1,"REMOVE")

步骤2：仅用于“移除”的过滤器

步骤3选择整行，只需按DEL按钮，然后移除过滤器

无vba方法

步骤1：使用公式标识要删除的行

将此公式放在C2处并填写

=IF(COUNTIFS(A$2:A2,A2,B$2:B2,B2)=1,1,"REMOVE")

步骤2：仅用于“移除”的过滤器

步骤3选择整行，只需按DEL按钮，然后移除过滤器

---

谢谢，感谢您的帮助。选择另一个简单的答案。谢谢，谢谢你的帮助。选择另一个简单的答案。投票支持你。