[VBA]한셀내에 콤마가 있는 데이터 분리

인터넷상에서 자료를 가져오면 한 셀내에 데이터가 콤마로 구분되어 있는 경우도 있다.

이럴 경우 분리하는 VBA 코드이다.

Sub 셀분리()
    Dim rngC, rngAll As Range
    Dim r, c, k As Long
    Dim tmp
   
    Application.ScreenUpdating = False
    Set rngAll = Range([A3], [A3].End(4))   '// 빈셀이 없을 경우에는 [A3].End(4) 로 편함
   
    r = 1
    For Each rngC In rngAll
        tmp = Split(rngC.Offset(0, 1), ",")     '// 콤마로 분리하여 tmp 배열에 저장
        For k = LBound(tmp) To UBound(tmp)  '// 배열의 갯수만큼 반복
            r = r + 1
            Cells(r, "C") = rngC.Value
            Cells(r, "D") = tmp(k)
        Next k
    Next rngC
End Sub