Macro do Excel - células separadas por vírgula em linhas
Eu tenho os seguintes dados no excel:
a, b, c
d
e
f, g
h
i
com cada linha, representando uma linha e em uma célula.
Gostaria de convertê-lo para:
a
b
c
d
e
f
g
h
i
Estou usando a macro a seguir, mas não consigo obter o tamanho automático para fazer uma inserção, em vez de substituir os valores das células. Qualquer ajuda é apreciada.
Sub SplitCells()
Dim i As Long
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
For i = 1 To Selection.Rows.Count
Dim splitValues As Variant
splitValues = split(Selection.Rows(i).Value, ",")
Selection.Rows(i).Resize(UBound(splitValues) - LBound(splitValues) + 1).Value = Application.Transpose(splitValues)
Next i
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub