[已解决]两列数据求 差别 在哪里

billyzhang0609

各位师兄

       已知A列数据  和  C列数据
       求两列的差别（C比A列多哪些单元格，少哪些单元格）后，筛选出来。

最佳答案

月排行榜 / 总排行榜

云影

2014-5-20 10:56

Sub test()
    Dim arr, ar1, er(), d As Object, x&, i&, k%, n%
    Set da = CreateObject("scripting.dictionary")
    Set dc = CreateObject("scripting.dictionary")
    Range("e:f").ClearContents
    i = Cells.Find("*", , , , , xlPrevious).Row
    arr = Range("a2:c" & i + 1).Value
    ReDim er(1 To i + 1, 1 To 2)
    For x = 1 To i
        da(arr(x, 1)) = ""
        dc(arr(x, 3)) = ""
    Next
    For x = 1 To i
        If Not da.exists(arr(x, 3)) Then
            k = k + 1
            er(k + 1, 1) = arr(x, 3)  '多的
        End If
        If Not dc.exists(arr(x, 1)) Then
            n = n + 1
            er(n + 1, 2) = arr(x, 1)  '少的
        End If
    Next
    er(1, 1) = "C比A列多": er(1, 2) = "C比A列少"
    Range("E2").Resize(x, 2) = er
End Sub

跳转到最佳答案楼层

as0810114

要单元格地址还是内容？

baksy

A列多
=INDEX(A$1:A$600,SMALL(IF(COUNTIF(C$2:C$600,A$2:A$600)=0,ROW(A$2:A$600)),ROW(A1)))
A列少
=INDEX(C$1:C$600,SMALL(IF(COUNTIF(A$2:A$600,C$2:C$600)=0,ROW(C$2:C$600)),ROW(A1)))

zjdh

Sub TEST()
    Cells.Interior.ColorIndex = 0
    For I = 2 To Range("C65536").End(3).Row
        Set W = Range("A:A").Find(Cells(I, 3), , LookIn:=xlValues, lookAT:=xlWhole)
        If W Is Nothing Then Cells(I, 3).Interior.ColorIndex = 6
    Next
    For I = 2 To Range("A65536").End(3).Row
        Set W = Range("C:C").Find(Cells(I, 1), , LookIn:=xlValues, lookAT:=xlWhole)
        If W Is Nothing Then Cells(I, 1).Interior.ColorIndex = 4
    Next
End Sub

zjdh

对比两列差异.rar (14.77 KB, 下载次数: 4)

2014-5-20 10:11 上传

点击文件名下载附件

蓝粆

{:02:}  做了个最简单的    A列的数在C列都有   C列的一部分在A列没有

zjdh

4楼5楼已修改

as0810114

刚学数组，写个玩玩
Sub test()
Dim arr, brr, crr(1 To 10000), i%, k
arr = Range("A2").CurrentRegion
brr = Range("C2").CurrentRegion
For i = 1 To UBound(brr)
If VBA.IsError(Application.Match(brr(i, 1), arr, 0)) Then
k = k + 1
crr(k) = brr(i, 1)
End If
Next
Range("E2").Resize(UBound(crr), 1) = Application.Transpose(crr)
End Sub

billyzhang0609

as0810114 发表于 2014-5-20 10:00
要单元格地址还是内容？

是内容，不过楼下 解答颇多，容我细细看来。

云影

Sub test()
    Dim arr, ar1, er(), d As Object, x&, i&, k%, n%
    Set da = CreateObject("scripting.dictionary")
    Set dc = CreateObject("scripting.dictionary")
    Range("e:f").ClearContents
    i = Cells.Find("*", , , , , xlPrevious).Row
    arr = Range("a2:c" & i + 1).Value
    ReDim er(1 To i + 1, 1 To 2)
    For x = 1 To i
        da(arr(x, 1)) = ""
        dc(arr(x, 3)) = ""
    Next
    For x = 1 To i
        If Not da.exists(arr(x, 3)) Then
            k = k + 1
            er(k + 1, 1) = arr(x, 3)  '多的
        End If
        If Not dc.exists(arr(x, 1)) Then
            n = n + 1
            er(n + 1, 2) = arr(x, 1)  '少的
        End If
    Next
    er(1, 1) = "C比A列多": er(1, 2) = "C比A列少"
    Range("E2").Resize(x, 2) = er
End Sub