'셀분리하여 특정열 마지막 데이터에 저장' 태그의 글 목록

728x90

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

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

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

'셀분리하여 특정열 마지막 데이터에 저장'에 해당되는 글 1건