VBA循环遍历列中的所有值

Question

我自学VBA并遇到障碍。这是一个 -

我需要循环遍历整个列（或者直到该列中的最后一个值，这是不可知的）工作簿B和我在工作簿A中编写的代码。我在网上搜索并获得了代码做类似的事情

 http://www.ozgrid.com/forum/showthread.php?t=110928

rbrhodes发布的

代码段如下 -

 ' Loop on each value (cell)
  For Each Cel In LookRange 
     ' Get value to find
    CelValue = Cel.Value 
     ' Look on sheet2
    With Sheet2 

但我的问题是我需要根据分隔符将工作簿A的X列中的值拆分为两个，然后浏览工作簿B的整个列Y.然后连接查找的单词（来自工作簿B）和然后检查工作簿A中的X1列。我想使用

Split(CelValue, "_")

但由于CelValue属于Variant且

，因此类型不匹配导致错误

CelValStr = CStr(CelValue)

没有工作！ 对于那里的所有专家，有谁可以帮我解决这个看似愚蠢的问题？

谢谢！