Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA, retornam as letras do alfabeto na coluna(A), e insere na coluna (B) os números correspondentes a  as letras, auxiliados pela propriedade offset (desloc)

Sub Letras_numeros()

Dim vLetras(25) As String

Set x = Range("A1")

Range("A:B").ClearContents

x.Select

For n = 0 To 25
    vLetras(n) = Chr(n + 65)
   
    MsgBox "Letra [ " & vLetras(n) & "] Numero [" & n + 1 & "]"
    ActiveCell.Offset(1, 0).Select
   
    ActiveCell.Offset(1, 0).Value = vLetras(n)
    ActiveCell.Offset(1, 1).Value = n + 1
   
Next n

x.Select
x.Offset(1, 0).Value = "LETRAS"
x.Offset(1, 1).Value = "NUMEROS"

End Sub




Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel



 


    Baixe o exemplo de planilha contendo a macro acima
Excel planilha vba loop contador insere letras do alfabeto e numeros variaveis (12.98 kB)