[已解决]两列数据对比

乐乐2006201506

Sub 数据对比 高级筛选法()
'
    Range("C1:C231").Select
    Range("C1:C231").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("A1:A227"), Unique:=False
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent4
        .TintAndShade = 0.399975585192419
        .PatternTintAndShade = 0
    End With
    ActiveSheet.ShowAllData
    Range("C1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$C$1:$C$231").AutoFilter Field:=1, Operator:= _
        xlFilterNoFill
End Sub

        这段代码是根据高级筛选法录制的，但导出，再导入其他表格时失去了相应效果，希望哪位老师能够重写或改写一下，实现两列数据互相核对后，分别将两列数据种不同的显示到另外一个（比如sheet1）工作表的A列和B列，非常感谢！

最佳答案

月排行榜 / 总排行榜

心正意诚身修

2016-4-13 16:12

=INDEX(Sheet1!C:C,SMALL(IF(ISERROR(MATCH(Sheet1!C$2:C$86,Sheet1!A$2:A$86,)),ROW(A$2:A$86),65536),ROW(A1:A1)))&""
c列和A列其實是一樣的。

跳转到最佳答案楼层

pengyx

发个03版的表上来

乐乐2006201506

03版的，麻烦了。

心正意诚身修

=INDEX(Sheet1!A:A,SMALL(IF(ISERROR(MATCH(Sheet1!A$2:A$86,Sheet1!C$2:C$86,)),ROW(A$2:A$86),65536),ROW(A1:A1)))&""

心正意诚身修

=INDEX(Sheet1!C:C,SMALL(IF(ISERROR(MATCH(Sheet1!C$2:C$86,Sheet1!A$2:A$86,)),ROW(A$2:A$86),65536),ROW(A1:A1)))&""
c列和A列其實是一樣的。

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, d2, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Set d2 = CreateObject("scripting.dictionary")
   
5. arr = Range("a1").CurrentRegion
   
6. brr = Range("c1").CurrentRegion
   
7. For i = 1 To UBound(arr)
   
8.     d(arr(i, 1)) = ""
   
9. Next
   
10. s2 = 1: s = 1
    
11. For i = 1 To UBound(brr)
    
12.     d2(brr(i, 1)) = ""
    
13.     If Not d.exists(brr(i, 1)) Then s2 = s2 + 1: Sheet2.Cells(s2, 3) = brr(i, 1)
    
14. Next
    
15. For i = 1 To UBound(arr)
    
16.     If Not d2.exists(arr(i, 1)) Then s = s + 1: Sheet2.Cells(s, 1) = arr(i, 1)
    
17. Next
    
18. End Sub

复制代码

乐乐2006201506

dsmch 发表于 2016-4-13 16:24

你这个如果是数据的话，完全可以实现我要的效果，但是当对比的是文字的时候怎么就失效了，谢谢了。

pengyx

试试

乐乐2006201506

乐乐2006201506 发表于 2016-4-13 16:35
你这个如果是数据的话，完全可以实现我要的效果，但是当对比的是文字的时候怎么就失效了，谢谢了。

最后发现你这个也很好，可以用，当时操作失误才导致不鞥实现效果的，实在是对不住，谢谢啦！

乐乐2006201506

pengyx 发表于 2016-4-13 16:43
试试

谢谢你，你的也可以实现，很好。