como converter célula (com dados separados por vírgula) na coluna?

Question

Eu tenho dados como este:

 1245   S,M,L
 1356   S,M,L,XL

Qual é o caminho mais fácil para fazer isso:

1245    S
1245    M
1245    L
1356    S
1356    M
1356    L
1356    XL

    

Answer 1

Isso provavelmente é mais fácil de resolver usando o VBA (imo). Aqui está uma solução muito simples que você vai começar. Você provavelmente precisará alterar o local em que deseja enviar os dados.

Sub sizeSplitter()

Dim IDs As Range
    Set IDs = Selection 'Select your range of IDs

Dim rowCounter As Integer
    rowCounter = 2

For Each subRange In IDs

    Dim Sizes() As String

    Sizes = Split(subRange.Offset(0, 1).Value, ",")

    For i = LBound(Sizes) To UBound(Sizes)

        Cells(rowCounter, 4) = subRange.Value
        Cells(rowCounter, 5) = Sizes(i)

        rowCounter = rowCounter + 1

    Next

Next subRange

End Sub

Os dados finais parecem isso .

Para usar, destaque os IDs para os quais você deseja fazer isso. Além disso, é altamente recomendado mover todos os dados que você tem nas colunas D e E, a menos que você queira que ele seja escrito:)