level 2
level 8
普通函数我觉得难，只能VBA了。
2017年03月16日 14点03分
2
厉害啊![[哈哈]](/static/emoticons/u54c8u54c8.png)
2017年04月16日 13点04分
如果 第三行 是 A B 就判断不出来了哦
2017年04月17日 02点04分
另外 按照楼主要求 还要删除呢。。。。。
2017年04月17日 02点04分
level 13
题主的意思应该是去掉重复组合。这样分开了无法保证在组合是一行吧
2017年04月16日 14点04分
2017年04月17日 02点04分
![[捂嘴笑]](/static/emoticons/u6342u5634u7b11.png)
![[滑稽]](/static/emoticons/u6ed1u7a3d.png)
@office8424 你才是大佬，excel吧头像是猫的都是大佬![[真棒]](/static/emoticons/u771fu68d2.png)
2017年04月17日 04点04分
2017年04月17日 04点04分
![[乖]](/static/emoticons/u4e56.png)
level 11
Dim R, I, X As Long
Dim A, B, C As String
R = [A65536].End(xlUp).Row
For I = R To 2 Step -1
A = Cells(I, 1) & Cells(I, 2)
For X = I - 1 To 1 Step -1
B = Cells(X, 1) & Cells(X, 2)
C = Cells(X, 2) & Cells(X, 1)
If A = B Or A = C Then
Rows(X).Delete Shift:=xlUp
I = I - 1
End If
Next
Next
试试这个 实验之前先做备份
2017年04月17日 03点04分
5
Dim A, B, C As String
R = [A65536].End(xlUp).Row
For I = R To 2 Step -1
A = Cells(I, 1) & Cells(I, 2)
For X = I - 1 To 1 Step -1
B = Cells(X, 1) & Cells(X, 2)
C = Cells(X, 2) & Cells(X, 1)
If A = B Or A = C Then
Rows(X).Delete Shift:=xlUp
I = I - 1
End If
Next
Next
试试这个 实验之前先做备份
level 2