用字典法来进行包含匹配

gufengaoyue

jacksc 发表于 2014-5-29 12:53
老师：这样不行的，我只是做示范数据时，恰好前面相同。B列数据在C列出现的位置是随机的，有的开始，有的 ...

用蓝老师的方法。。。循环keys

jacksc

蓝桥玄霜 发表于 2014-5-29 11:20
请见附件。

蓝老师：如果 sheet1 的 C列变更为 sheet2 的B列，代码该如何变化？谢谢！

jacksc

zax010 发表于 2014-5-29 11:44
不用字典就可实现：
Sub 匹配1()
    t = Timer

老师：经测试还是不行哟。还有，实际表格中，sheet1 的C列 在sheet2表页的 B列，请再看看，谢谢！

jacksc

gufengaoyue 发表于 2014-5-29 12:55
用蓝老师的方法。。。循环keys

老师：蓝老师的代码针对附件本身是可以的，但实际上 sheet1 的C列 在sheet2表页的 B列，不知如何对应变化？谢谢！

gufengaoyue

jacksc 发表于 2014-5-29 13:38
老师：蓝老师的代码针对附件本身是可以的，但实际上 sheet1 的C列 在sheet2表页的 B列，不知如何对应变化 ...

你给什么样的数据，就是什么样的方法。。。

jacksc

gufengaoyue 发表于 2014-5-29 14:02
你给什么样的数据，就是什么样的方法。。。

老师：附件中 sheet2表页的 B列是有数据的，我在描述时没讲仔细，不好意思，请抽空看看，谢谢！

zax010

不用字典，只是速度慢，试了蓝版的代码，速度差不多：
Sub zz()
    t = Timer
    lr = Range("C65536").End(xlUp).Row
    arr = Range("B2:C" & lr)
    ReDim brr(1 To UBound(arr), 1 To 1)
    For j = 1 To UBound(brr)
        For i = 1 To UBound(arr)
            If InStr(arr(i, 2), arr(j, 1)) Then brr(j, 1) = arr(i, 2)
        Next
    Next
    Range("A2").Resize(UBound(brr), 1) = brr
    MsgBox "匹配完成；共用时" & Format(Timer - t, "0.00秒。")
End Sub

jacksc

zax010 发表于 2014-5-29 14:30
不用字典，只是速度慢，试了蓝版的代码，速度差不多：
Sub zz()
    t = Timer

老师：我附件中的描述不准确，sheet1表页的 C列应该是 sheet2表页的B列，请再看看，谢谢！

bluexuemei

jacksc 发表于 2014-5-29 12:50
老师：我这里测试您的代码不出结果呢，请再看看。

我用的是你的Sheet1的数据，没有一个包含匹配的，结果为空

jacksc

bluexuemei 发表于 2014-5-29 14:54
我用的是你的Sheet1的数据，没有一个包含匹配的，结果为空

老师：有的，都可包含匹配的，蓝老师的代码就可以的。另：我附件中的描述不准确，sheet1表页的 C列应该是 sheet2表页的B列，请再看看，谢谢！