查找不同项目

abuzer

A列是已经买的项目清单，B列的内容是完整的购物清单，请问如何实现在C列中显示还没购买的项目？由于不确定函数能不能解决，故在VBA板块提问。谢谢高手！

zax010

Sub zz()
    Dim d, a, b
    Set d = CreateObject("Scripting.Dictionary")
    a = Range("A1:A" & [a65536].End(3).Row)
    b = Range("B1:B" & [b65536].End(3).Row)
    For i = 1 To UBound(a)
        d(a(i, 1)) = ""
    Next
    For i = 1 To UBound(b)
        If Not d.exists(b(i, 1)) Then
            m = m + 1: b(m, 1) = b(i, 1)
        End If
    Next
    [c1].Resize(m) = b
End Sub

zax010

>>>>>>>>>>>>>>>>>>>>>>


Book1.rar (7.17 KB, 下载次数: 28)

2015-12-26 13:46 上传

点击文件名下载附件

abuzer

zax010 发表于 2015-12-26 13:46
>>>>>>>>>>>>>>>>>>>>>>

谢谢楼上高手回复。您的代码可以用，不过我又遇到了一个新的问题。我这个“A列是已经买的项目清单”实际上是从这个ThisWorkBook.Path提取到excel里的文件名。是带有文件类型的后缀的。
“B列的内容是完整的购物清单”就是简单清单，没有文件类型后缀的问题。
所以这样的话套用你的代码的话就无效了。需要想办法找到“.之前的文件的对比。。。

看看有没有办法解决这个矛盾呢？我自己也再看看。。。

谢谢楼上回复啊再次感谢！
补充解释一下：我的本意是，收集一些材料。材料是电子档，以不同类型的文件放在excel所在路径下。然后我需要知道还缺什么材料。所以我就把此路径下的文件名都导入到excel用的也是VBA，然后想再找一个办法来对比已有的材料和标准的材料清单。来算出还缺什么材料的名称清单，这样可以一目了然。但是当时忽略了一个文件后缀的问题。他对比的时候是需要完全一致的。而这在实际操作当中也是不现实的。比如“电影票1”，“电影票2”，都属于电影票，那么电影票就算已经有。而用现在的楼上您提供的代码，是精确匹配，这样是不认为电影票是已经有了的。

不知道我的解释能不能让人明白我的意思。。。

shaokui123

zax010 发表于 2015-12-26 13:45
Sub zz()
    Dim d, a, b
    Set d = CreateObject("Scripting.Dictionary")

高手，如果是不同工作表的列比较怎么改写？