Saberexcel - site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), decompõe determinadas frases em células na vertical, contando o nùmero de carateres e os númerando, usamos a Propriedade Offset(DESLOC) para isso. Espero que o exemplo possa lhe ser útil.
Fique com Deus, Expedito Marcondes

Sub sb_decompor_e_numerar_letras()
Dim sbChave() As Variant
[C4:C200].ClearContents

Cells(3, 3).Activate
vTexto = ActiveCell.Value
vNumeroCaracteres = Len(vTexto)

ReDim sbChave(vNumeroCaracteres - 1)

For i = 0 To vNumeroCaracteres - 1
sbChave(i) = Mid(vTexto, i + 1, 1)
ActiveCell.Offset(1, 0).Value = "[" & i + 1 & "ª.Letra ]..............:           " & "   " & sbChave(i) & "   "
ActiveCell.Offset(1, 0).Select     'offset(funcao desloc) desloca dados nas células
Next i

Columns("C").AutoFit
[C3].Select
End Sub

Essas macros são auxiliares para auxiliar no teste.
Sub sb_visualizar_macros_vbe()
Dim Resposta As String

Resposta = MsgBox("Deseja visualizar as macros no módulo VBE?", vbYesNo, "Saberexcel - o site das macros")
If Resposta = 6 Then ' 6 é igual a vbyes
Application.Goto reference:="decompor_e_numerar_letras"
Else
Saber1.Shapes("sb").Visible = True
End If
End Sub

Sub sb_oc()
Saber1.Shapes("sb").Visible = False
End Sub




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




Baixe o exemplo de planiha contendo os macros acima
Excel planilha vba decompor e numerar letras numero caracteres (28.38 KB)