VBA - Função RetornaNthElemento - Extrai uma Posição Dentro dum Dado Delimitado

Quando mexemos com listas de endereço (por exemplo), às vezes precisamos extrair parte do dado importante dentro de um campo que foi delimitado por um caractere como uma vírgula.

Isso pode ser muito chato se precisarmos construir a função na hora e estivermos com  muita pressa.

Mas o código abaixo pretende te ajudar com isso...

 

Function RetornaNthElemento (nRng As Range, nPos As Integer,nParticula as string ) 

    '        Author: André Bernardes
    '           Date: 26.06.21 - 05:01
    ' Description: Especifique o Nº da posição que precisa ser retornada. 

    Dim vResult() As String ' Vetor.

    Let vResult = Split(nRng, nParticula)

    Let RetornaNthElemento = vResult(nPos - 1)
End Function

 Compartilhe este artigo!  Deixe seu comentário