【紧急求助！！！】变态的删除重复项！感谢！！！

w_cun

需求：

删除B列与C列内容相同的行！

相同的定义：

B&C与C&B认为是相同的行！

SC Example.zip (124.12 KB, 下载次数: 13)

2015-8-26 21:34 上传

点击文件名下载附件

yeminqiang

D列--条件格式--重复值（设置颜色），然后筛选颜色相同的，全部删除。
是这样吗？
SC Example.zip (118.42 KB, 下载次数: 11)

2015-8-26 21:51 上传

点击文件名下载附件

w_cun

yeminqiang 发表于 2015-8-26 21:51
D列--条件格式--重复值（设置颜色），然后筛选颜色相同的，全部删除。
是这样吗？

非常感谢您的回复！
我这里重复值的定义如：B1=abc123  C1=qwe456；B2=qwe456，C2=abc123；那么第一行与第二行认为是重复的。

w_cun

下面表格序号1,、序号2认为是重复项，需要删除一个，是否有函数能完成，或者VBA？请高手帮忙解答一下，谢谢！

序号        AA        BB
1        abc123        qwe456
2        qwe456        abc123
3        DD123        EE
4        AC        ZC
C:\Users\Administrator.ZTE-20150731GKN\Desktop\2015-08-27_094209.png

diabloyxfl

使用EXACT函数，然后f5定位删除！

diabloyxfl

这样行不行？

zjation

diabloyxfl 发表于 2015-9-9 23:13
这样行不行？

他是把B列和C列合起来成为一个单元来判断，不是单纯判断B和C。

zjation

for i = 1 to max
    for x = 1 to 2
        d(i,x)=cells(1+i,1+x)
        next x
next y

for i = 1 to max
        m = 0
        for a = 1 to max
                if cells(1+i,2) = d(a,1) and cellse(1+i,3) = d(a,2) then
                        m = m +1
                end if
                if cells(1+i,2) = d(a,2) and cellse(1+i,3) = d(a,1) then
                        m = m +1
                end if
        next a
        msgbox  "重复次数="&m-1
next i