VBA Intermediário - Função Converte um Range num Array - Range to Array - Function ConRngArray

VBA Intermediário - Função Converte um Range num Array - Range to Array  - Function ConRngArray


O que segue abaixo é o exemplo de uma função que permite converter o intervalo contido num Range num Array.


Function ConRngArray (ByVal nRng As Range) As String()
        '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardess@gmail.com
    '        Date: 20/07/2016 - 07:03
    ' Application: Field Force Dashboard Analysis®
    '     Purpose: Função Converte um Range num Array - Range to Array

Dim nVector01 As Variant
Dim nVector02() As String
Dim i As Long

Let nVector01 = nRng.Value

ReDim nVector02(1 To UBound(nVector01))

For i = 1 To UBound(nVector01)
    Let nVector02(i) = nVector01(i, 1)
Next

Let ConRngArray = nVector02()
End Function n


Se gostou, compartilhe este post com outros! Deixe seus comentários e sugestões.










Nenhum comentário:

Postar um comentário

diHITT - Notícias