可以先抓取整个数据做数组过滤，输出对应二维数组下元素。

666

life 可以先抓取整个数据做数组过滤，输出对应二维数组下元素。

很感谢您的回复，新手，能否讲的详细一些， 谢谢喇

和excel，vlookup功能类似，要做可以先学习紫猫老师的数组系列课程达到目的。

在追问一下，如果申诉在任意行，不在第4行，如何追踪位置呢？

具体的可以留个联系方式帮你看下

QQ:739342065 麻烦您了。

dim i = ""
dim arrayRet = ""
dim iRet = ""
dim iRet1 = ""
dim 源数据 = ""

源数据 = Excel.BindBook("武侠人名.xlsx")
iRet = Excel.GetRowsCount(源数据,"Sheet1")
i = 0
arrayRet = Excel.ReadRange(源数据,"Sheet1","A1:A" & iRet )
TracePrint(arrayRet)
For Each value In arrayRet
    TracePrint(value)
iRet1 = Len(value)
    TracePrint(iRet1)
For Each value1 In value
i = i+1
 
If value1 = "丘处机" 
        
        TracePrint(i)
        Else
    
        End If
Next
         
Next