VBA - 访问文本值错误

Question

我写了下面的代码：

Function Find_Index(Gender As String) 

    Dim Index As Long 

    Do While Gender = Worksheets("Source").Cells(Index, "A").Text 

     Index = Index + 1 

    Loop 

    Find_Index = Index 

End Function 

，我发现了以下错误：

“应用程序定义或对象定义的错误”

由于到代码中的以下行：

Do While Gender = Worksheets("Source").Cells(Index, "A").Text 

任何想法为什么？

Answer 1

您定义了Index，但在使用它之前从未将其设置为值。

添加Index = 1的Do While线