셀분리하여 특정열 마지막 데이터에 저장

인터넷에서 자료를 검색하다가 보면 자료가 콤마(,)로 부분되어 있고 이걸 가져와서 셀에 붙여넣기를 하면 한 셀에 데이터가 저장되는 경우가 있습니다.

자료를 분리한 다음에 특정 열기준으로 하단으로 자료를 죽 쌓고 싶은 경우에 사용하는 VBA Code 입니다.

셀분리정렬.xlsm

Sub Cell_Split_and_Column_Save()

    Dim rngC As Range

    Dim rnaAll As Range

    Dim varTemp As Variant

    Dim i, n As Integer

    

    Application.ScreenUpdating = False   '// 화면 업데이트 (일시) 중지

    rngCh = "A"                          '// 열지정

    StartRow = 2                      '// 데이터 시작행 설정

    Set rngAll = Range(Cells(StartRow, rngCh), Cells(Rows.Count, rngCh).End(3))  '// 범위지정

    

    For Each rngC In rngAll

        varTemp = Split(rngC, ",")

        For i = LBound(varTemp) To UBound(varTemp)  '// 배열 하한값에서 상한값까지 반복

                Cells(Rows.Count, "B").End(3)(2) = Trim(varTemp(i))  '// 분리한 문자를 셀에 입력

                n = n + 1

        Next i

    Next rngC

    Set rngAll = Nothing

    MsgBox "총 " & n & "개 완료"

End Sub