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 o Aplicativo Microsoft Excel VBA com Saberexcel

Essas macros do Aplicativo Microsoft Excel VBA, inserem uma autonumeração em diferentes posições na folha de planilha, esses exemplos tem a finalidade didática. Espero que lhe sejam úteis em seu aprendizado. Fiquem com Deus, E_Marcondes

Public i As Integer
'insere uma autonumeração transversal descendente
Sub transversal()
For i = 1 To 10
Cells(i i ) = i
Next
End Sub

'insere contagem na linha 10 até coluna 10
Sub Linha_10()
For i = 1 To 10
Cells(10, i) = i
Next
End Sub

'insere contagem na linha 10 até coluna 10
Sub Linha1_1()
For i = 1 To 10
Cells(1, i ) = i
Next
End Sub

'insere contagem na coluna 1 a1:A10
Sub Coluna_1()
For i = 1 To 10
Cells(i , 1) = i
Next
End Sub

'insere contagem na linha 10 até coluna 10
Sub Coluna_10()
For i = 1 To 10
Cells(i , 10) = i
Next
End Sub


Aprenda tudo sobre o Aplicativo Microsoft Excel VBA com Saberexcel



Baixe o exemplo de planilha contendo os loops acima

Compre com segurança garantia e baixos preços. Lojas SubMarino