VBA - Função retornar o alfabeto

Faça uma pergunta

Esta função se chama simplesmente Chr().

Código de chamada:

 Option Explicit

Sub CreationAlphabet ()
Dim Alpha () As String

     Alpha = Alphabet (97, 122) 'minúsculas
     Debug.Print Join (Alpha, ",")
     Alpha = Alphabet (65, 90) 'maiúscula
     Debug.Print Join (Alpha, ",")
End Sub 

Função:

Function Alphabet (First Ascii As Byte, Last Ascii As Byte) As String ()
Dim Temp () As String, i &

     ReDim Temp (0 para LastAscii - FirstAscii)
     For i = FirstAscii To LastAscii
         Temp (i - FirstAscii) = Chr(i)
    Next
     Alphabet = Temp
     Eraser Temp
End Function

Foto: © VBA.