单元格AB列存在交换数据删除重复项问题

nbmitxihc

如图，需要删除A列和B列中交换数据相同的行，比如第2行和第6行，保留任一行即可，再比如第3行和第8行，再比如第4行和第11行等等，AB列的数据很多，求老师指导，用宏或者公式解决，谢谢 1221.rar (6.55 KB, 下载次数: 10)

2018-9-28 18:37 上传

点击文件名下载附件

liulang0808

1. Sub °′Å￥1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Application.ScreenUpdating = False
   
4.     arr = [a1].CurrentRegion
   
5.     Set Rng = Nothing
   
6.     For j = 2 To UBound(arr)
   
7.         If d.exists(arr(j, 1) & "#" & arr(j, 2)) Or d.exists(arr(j, 2) & "#" & arr(j, 1)) Then
   
8.             If Rng Is Nothing Then
   
9.                 Set Rng = Cells(j, 1)
   
10.             Else
    
11.                 Set Rng = Union(Rng, Cells(j, 1))
    
12.             End If
    
13.         Else
    
14.             d(arr(j, 1) & "#" & arr(j, 2)) = j
    
15.         End If
    
16.     Next j
    
17.     If Not Rng Is Nothing Then Rng.EntireRow.Delete
    
18.     Application.ScreenUpdating = True
    
19. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

nbmitxihc

liulang0808 发表于 2018-9-28 19:06
附件内容供参考。。。。。。

试了一下，很好用，非常感谢老师的帮忙，没想到字典可以解决，一直在想公式判断，可是没能实现