Filter Function (Visual Basic)
Returns a zero-based array containing a subset of a String array based on specified filter criteria.
- Use a função
filter
e verifique o tamanho da matriz resultante com Ubound (). - Use
Redim preserve
para expandir sua matriz em 1 e adicionar seu valor de texto selecionado recentemente
Aqui está um pequeno exemplo geral
Sub IsInArray()
Dim arrCheck()
arrInput = Array("AAA","BBB","CCC","DDD","BBB","CCC","AAA","DDD","AAA")
arrCheck = Array("AAA","BBB","CCC")
For Each Item In arrInput
If UBound(Filter(arrCheck, Item)) = -1 Then
ReDim Preserve arrCheck(UBound(arrCheck) + 1)
arrCheck(UBound(arrCheck)) = Item
End If
Next
End Sub