열의 셀(쉼표로 구분된 데이터 포함)을 어떻게 변환합니까?

열의 셀(쉼표로 구분된 데이터 포함)을 어떻게 변환합니까?

다음과 같은 데이터가 있습니다.

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

이것을 만드는 쉬운 방법은 무엇입니까?

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

답변1

이는 VBA(imo)를 사용하여 해결하는 것이 가장 쉬운 방법일 것입니다. 시작하는 데 도움이 되는 정말 간단한 솔루션이 있습니다. 데이터를 출력할 위치를 변경해야 할 수도 있습니다.

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

엔딩 데이터는 다음과 같습니다.이것.

사용하려면 이 작업을 수행하려는 ID를 강조표시하세요. 또한 덮어쓰기를 원하지 않는 한 열 D와 E에 있는 데이터를 다른 곳으로 옮기는 것이 좋습니다. :)

관련 정보