Question

如何用VBA excel进行 两列互相重复的数据删除

例如有两例数据
A B
RPS17 RAC1
RPL23 RPLP1
RPS8 RPL3L
RPLP1 RPL23
第2行和第4行的数据重复，怎样删除一行？

Answer 1

Sub test()
Dim i&, x&, y&
Dim Str1$, Str2$, Str3$
i = Range("A65536").End(xlUp).Row
For x = i To 2 Step -1
Str1 = Cells(x, 1) & "|" & Cells(x, 2)
Str2 = Cells(x, 2) & "|" & Cells(x, 1)
For y = x - 1 To 1 Step -1
Str3 = Cells(y, 1) & "|" & Cells(y, 2)
If Str3 = Str1 Or Str3 = Str2 Then
Rows(x).Delete
End If
Next y
Next x
End Sub

Answer 2

删除一行是什么意思啊？能说具体点吗？

Answer 3

fjmxwrs 回答正解