第1个回答 2010-04-16
=INDEX($A$1:$A$6,SMALL(IF(ISERROR(MATCH($A$1:$A$6,$B$1:$B$4,0)),ROW($A$1:$A$6)),ROW(A1)))
然后下拉你看看呢 楼上公式也对的 他用的COUNTIF 我用的MATCH 好象都对楼主 你都做试验看看 主要看我有没写错嘿嘿~
楼上 貌似出现多个0的时候我们里面都有重复的0啊
第2个回答 2010-04-16
楼上的VB不好使,用我的吧,直接将重复单元格删除,不留空白
右击工作表标签,查看代码,把这段代码贴在VBA里,按F5运行就可以了
Public Sub abc()
Dim a As Long, b As Long, c As Long
a = 1
Do While Cells(a, 1) <> ""
b = 1
Do While Cells(b, 2) <> ""
If Cells(a, 1) = Cells(b, 2) Then
Cells(a, 1).Select
Selection.Delete Shift:=xlUp
End If
b = b + 1
Loop
a = a + 1
Loop
End Sub本回答被提问者采纳