Question

VB如何实现从EXCEL一列中查找另一列中所对应的所有值？

各位大侠，已知以下A,B,C三列，如何用EXCEL或VB编程得出D,E列的结果呢？跪求答案，感激不尽哈~

Answer 1

 Sub xx()
Dim d1, d2
Set d1 = CreateObject("scripting.dictionary")
Set d2 = CreateObject("scripting.dictionary")
n = [a1].End(4).Row
For i = 2 To n
    For j = 2 To i - 1
        If Cells(i, 1) = Cells(j, 1) Then
            Cells(i, 4) = Cells(j, 4)
            Cells(i, 5) = Cells(j, 5)
            GoTo xxx
        End If
    Next
    For j = 2 To n
        If Cells(j, 1) = Cells(i, 1) Then
            d1(Cells(j, 2).Text) = ""
            d2(Cells(j, 3).Text) = ""
        End If
    Next
    Cells(i, 4) = Join(d1.keys, "&")
    Cells(i, 5) = Join(d2.keys, "&")
    d1.RemoveAll
    d2.RemoveAll
xxx:
Next
End Sub

追问

呵呵，谢谢回复哦，学习啦~

追答

......

Answer 2

这个用VBA宏代码，可能好办一些，要用VB的话，不会啊。

追问

呵呵，我也是菜鸟，不会写VB哦

追答

VBA我会，VB就不会了，呵呵，没办法。

追问

我说错啦，是VBA哦，大侠可以帮忙么？谢啦~~

追答

可以，就按图上这个格式写，对吧
还有，你确定是用&，来连接A和F？

追问

嗯嗯，都可以哈，太感谢啦

追答

写好了，留下个邮箱或QQ

追问

youandme0505，QQ邮箱，谢啦~

追答

发送，查收吧。