VBA
é uma excelente ferramenta para pequenas tarefas como esta.
Supondo que os dados estão na coluna A
e são contíguos em A1
. Se não for esse o caso, basta ajustar a linha Set rng = ...
para se adequar aos seus dados.
Sub SplitColumn()
Dim rng As Range
Dim dat As Variant
Dim i As Long, j As Long
Set rng = Range([a1], [a1].End(xlDown)).Resize(, 2)
dat = rng
For i = 1 To UBound(dat, 1)
j = InStr(dat(i, 1), ":")
If j > 0 Then
dat(i, 2) = Mid$(dat(i, 1), j + 1)
dat(i, 1) = Left$(dat(i, 1), j - 1)
End If
Next
rng = dat
End Sub