728x90
인터넷상에서 자료를 가져오면 한 셀내에 데이터가 콤마로 구분되어 있는 경우도 있다.
이럴 경우 분리하는 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
'업무 능력 향상 > 엑셀 VBA 활용' 카테고리의 다른 글
| [VBA] 중복되는 자료만 찾아서 배경색 저장 (0) | 2015.06.17 |
|---|---|
| [VBA] 같은 자료를 콤마로 나열하기 (0) | 2015.06.16 |
| [VBA] 2개의 조건을 만족하면서 중복없는 데이터 가져오기 (0) | 2015.06.11 |
| [VBA] 항목별 갯수 구하기 (0) | 2015.06.09 |
| [VBA] 시트를 순환하며 조건에 맞는 자료 전부 가져오기 (0) | 2015.06.08 |
Link2Me