Tenho uma lista longa e separada por vírgulas que se parece com esta no Excel:
401.50,0.027
402.00,0.028
402.50,0.029
403.00,0.031
403.50,0.032
404.00,0.034
404.50,0.037
Existe uma forma simples de converter esta lista em duas colunas separadas? Existem mais de 800 valores, e não estou realmente ansioso por separá-los todos individualmente.
Já tentou utilizar Text to Columns?
Também pode usar duas fórmulas em duas colunas separadas.
Para obter os valores à esquerda da vírgula:
=0+LEFT(K1,FIND(",",K1)-1)
Para obter os valores à direita da vírgula:
=0+RIGHT(K1,LEN(K1)-FIND(",",K1))
onde K1 contém a cadeia inicial, como 401.50,0.027
* 0+ antes das fórmulas converterem os substratos extraídos em dados numéricos.
Copiar/Colar o texto num editor de texto Substituir todos os caracteres de espaço por carriagereturn/linefeeds Guardar como um ficheiro TXT. Abra o ficheiro em Excel.
escreva uma pequena vba para processar a sua lista
Isto assume que a lista de valores está numa única célula e é seleccionada. Coloca os resultados nas seguintes células
Sub zx()
Dim a() As String
Dim v As Variant
Dim i As Long
Dim j As Long
a = Split(ActiveCell.Value, " ")
ReDim v(1 To UBound(a) + 1, 1 To 2)
For i = 1 To UBound(a) + 1
j = InStr(a(i - 1), ",")
v(i, 1) = Val(Left(a(i - 1), j - 1))
v(i, 2) = Val(Mid(a(i - 1), j + 1))
Next
ActiveCell.Offset(1, 0).Resize(UBound(a) + 1, 2) = v
End Sub