Excel planilha vba decompor itens separados ponto virgula

Qua, 30 de Março de 2011 09:18 Expedito Marcondes
Imprimir

Saberexcel - o site das macros

Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), decompõe palavras disposta em linha(horizontal) separada por vírgula, ponto vírgula ou outro caracter, decompõe em determinada Coluna(Vertical). Atente para o caracter separador e modifique no Macro.
Espero que o exemplo possam lhe ser útil. Fiquem com Deus. Bons Estudos.


Sub Decompoe_dados_celula()
[E5].Select
vTexto = Selection.Value
For i = 1 To Len(vTexto)
If Mid(vTexto, i, 1) = ";" Then Z = Z + 1
Next i
ReDim Y(Z + 1)

For i = 1 To Len(vTexto)
If Mid(vTexto, i, 1) <> ";" Then
X = X & Mid(vTexto, i, 1)
End If

If Mid(vTexto, i, 1) = ";" Then
Y(c) = X
c = c + 1
X = ""
End If
Next i

Y(Z) = X

For i = 0 To UBound(Y)
Selection.Offset(i + 1, 0).Value = Y(i)
Next i

End Sub


Sub limpar_teste()
[E6:E1000].ClearContents
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 planilha contendo o macro acima
Excel planilha vba decompor itens separados ponto virgula (70.56 KB)





Tags:
Última atualização em Sex, 17 de Julho de 2015 19:00