excel - 检查 VBA 数组中是否已存在数字

Question

我有一小段代码，用于检查计算出的数字“Birthday(i,0)”是否已存在于数组“Birthday”中，以及是否退出 For 计数器。是否有一种更简单的方法来测试“Birthday(i,0)”是否已经存在，而无需使用 For 计数器来检查数组“Birthday”的每个元素。

提前非常感谢。

代码如下:

 For i = 1 To MaxPeople

         Birthday(i, 0) = WorksheetFunction.RoundUp(Rnd() * 365, 0)

         For j = 1 To i - 1
             If Birthday(i, 0) = Birthday(j, 0) Then
                   NumberofPeople = i
                   Exit For
             End If

         Next j

         If NumberofPeople > 0 Then Exit For

  Next i

Answer 1

Dim rv

'find the position of a value in the first dimension of an array
rv = Application.Match(yourDate, Application.Index(Birthday, 0, 1), 0)
'if not found, rv will be an error value
If IsError(rv) Then
    Debug.Print "Not found"
Else
    Debug.Print "Found at pos " & rv
End If