如何在 VBA-Excel 中删除重复行和逆序重复行

Question

-更新 -

我想知道如何根据两列中的值删除重复行，其中重复项也可能以相反的顺序出现。我想删除整行，而不仅仅是列中的重复单元格。我搜索了论坛但找不到确切的答案。

如果数据看起来像：

AA
AB
BA
CA
AC

我想保留：

AA
AB
CA

到目前为止，我只看到了删除单向重复项的代码（例如删除所有重复行 Excel vba），这不会从上面的示例中删除任何行。

我需要计算两个命名点之间的距离，所以我保留哪一行并不重要。也许我还应该指定每个单元格中的格式为例如A1和A2（字母+数字），因此A1+A2和A2+A1将是重复的。不确定这是否重要。

有谁知道或可以提示我正确的方向吗？

谢谢李萨夫

Answer 1

由于您已经有了基于单列的解决方案，我们将找到一种应用该解决方案的方法。对于A列和B列中的数据，在C1中输入：

=IF(A1<B1,A1 & CHAR(1) & B1,B1 & CHAR(1) & A1)

并抄下来。然后将您的解决方案应用于C列：

笔记：

我们使用 CHAR(1) 来防止意外匹配。

编辑#1

这是一个不使用C列的纯 VBA 解决方案：

Sub RowKiller()
   Dim N As Long, C() As String, i As Long
   Dim aa As String, bb As String, cc As String
   Dim s As String
   s = Chr(1)
   N = Cells(Rows.Count, "A").End(xlUp).Row
   ReDim C(1 To N)

   For i = 1 To N
      aa = Cells(i, 1).Value
      bb = Cells(i, 2).Value
      If aa < bb Then
         C(i) = aa & s & bb
      Else
         C(i) = bb & s & aa
      End If
   Next i

   For i = N To 2 Step -1
      cc = C(i)
      For j = i - 1 To 1 Step -1
         If cc = C(j) Then Rows(i).Delete
      Next j
   Next i
End Sub