请教:如何在excel中循环比较两列文本，求其交集

我的意思是，假设：如果有两列姓名进行比较，要找出第一列中是否包含有第二列的姓名，那么第二列的每一个姓名都要与第一列的全部姓名进行比较，要实现的话应该使用什么办法来实现。设：在C1写函数，然后自动应用到下面的所有行，函数要能够使B1要与A列的全部进行比较，应用到Ｃ２的要满足，用B2继续与A列的全部进行比较，依次类推……比较后，如果相同，返回A的数值，不同则返回空值。这样最终在C列返回的姓名就是ＡＢ两列的交集。关键是循环。我不知道哪个函数是循环函数，如何循环的。在Ｃ１种输入＝ＩＦ（Ｂ１＝Ａ１，Ａ１），这样仅可比较Ａ１和Ｂ１两个单元格，但是却无法循环比较完整个一列。我在循环比较这一步上卡住了思维。 哪个函数是循环函数？不知道ｅｘｃｅｌ中有没有ｆｏｒ循环。

Function comp(index As Long) As StringDim str As StringDim i As Longstr = Range("A" & index).ValueFor i = 1 To Rows.CountIf StrComp(str, Range("B" & i).Value, vbTextCompare) = 0 Thencomp = strExit FunctionEnd IfNextEnd FunctionSub run()Dim i As LongFor i = 1 To Rows.CountRange("C" & i).Value = comp(i)NextEnd Sub

呵呵，又是ｂｅｅｋｉｎｇ来帮忙，谢谢了 我对ｅｘｃｅｌ中的函数不熟，对编程也早忘得一干二净了，呵呵，见笑了。如果能对ｖｂ再熟悉些的话，的确应该有办法解决的。先再去试试看。