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.

brazilsalesforceeffectiveness@gmail.com