| Descricao: |
 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
|