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

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

Eu tenho dados como este:

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

Qual é a maneira mais fácil de fazer isso:

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

Responder1

Provavelmente isso é mais fácil de resolver usando VBA (imo). Aqui está uma solução realmente simples que irá ajudá-lo a começar. Você provavelmente precisará alterar o local onde deseja gerar 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 se parecemesse.

Para usar, destaque os IDs com os quais deseja fazer isso. Além disso, é altamente recomendável mover todos os dados que você possui nas colunas D e E para fora do caminho, a menos que queira que sejam sobrescritos :)

informação relacionada