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