Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções
Este Macro do Aplicativo Microsoft Excel VBA(Visual Basic Application),
DECOMPOR NOMES SOBRENOMES COM QUEBRA DE LINHAS NA MESMA CÉLULA
//====================’ clique aqui para ocultar
Esse macro decompoe nome e sobrenome na coluna D, a partir da Linha(5).
Observe que existe a complexidade de estar alguns nomes e sobrenomes com quebra de Linha na mesma célula, usaremos a função MID para extração, Instrução For Each, Função Len(), para
extração dos dados.. Fiquem com Deus, Bons Estudos.
Sub sbx_decompor_celulas()
Dim vCelula As Range
Dim vCellRecebe As Long
Dim vCaracter As Long
Dim vNomeSobrenome As String
vCellRecebe = 0
For Each vCelula In Range(“A1”, Range(“A65000”).End(xlUp)) ‘ dinamicamente com digitação
‘For Each vCelula In Range(“A1:A3”) ‘ observe que existe quebra de linhas na mesma célula
For vCaracter = 1 To Len(vCelula.Value)
If Mid(vCelula.Value, vCaracter, 1) <> Chr(10) Then
vNomeSobrenome = vNomeSobrenome & Mid(vCelula.Value, vCaracter, 1)
Else
Range(“d5”).Offset(vCellRecebe, 0).Value = vNomeSobrenome
vNomeSobrenome = “”
vCellRecebe = vCellRecebe + 1
End If
Next vCaracter
Range(“d5”).Offset(vCellRecebe, 0).Value = vNomeSobrenome
vNomeSobrenome = “”
vCellRecebe = vCellRecebe + 1
Next vCelula
End Sub
‘para faciliar o teste ….
Sub sbx_limpar_teste()
Range(Cells(5, “d”), Cells(Cells(Rows.Count, “d”).End(xlUp).Row + 1, “d”)).ClearContents
End Sub
Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos
Escola Saberexcel VBA Estudos® – Treinamentos com Macros, Fórmulas e Funções.
u – Procedimentos de Aquisição dos produtos Didáticos SaberExcel
Baixe o exemplo de planilha contendo os macros acima:
Planilha Excel VBA – Celulas decompor com quebra de linha
