Sub 연습()
i = Split(Range("A2"), ",") 'split을이용해셀을,기준으로배열화
For k = LBound(i) To UBound(i) '배열 i 를 읽어 옵니다
imsi = imsi & Trim(i(k)) & Chr(10) 'trim으로빈칸없애고imsi에담습니다
Next
MsgBox imsi '콤마 사이의 값인 Trim(i(k)) 를 활용하시면 될거 같네요
End Sub
==============================/// 설명 ///===================================================================
Split 함수를 사용하면 특정 문자 단위로 잘라서 배열로 넣을 수 있습니다.
예를 들어..
-----------------------------
strTxt = "2004,10,25,25,42"
arrTxt=split(strTxt,",")
-----------------------------
위와 같이 처리를 하면 arrTxt(0)="2004", arrTxt(1)="10", arrTxt(2)="25" 와 같이 배열에 할당이 됩니다.
만약 문자열 속에 공백, 텝, 콤마가 모두 들어 있고.. 이것들이 모두 자를 기준이 된다면..
-----------------------------
strtxt = "2004 10 25 25, 42"
strtxt = Replace(strtxt, " ", ",")
strtxt = Replace(strtxt, vbTab, ",")
arrtxt = Split(strtxt, ",")
For a = 0 To UBound(arrtxt)
Cells(a + 1, 1) = arrtxt(a)
Next
-----------------------------
위와 같이 " "도 콤마로 바꾸고.. 텝도 콤마로 바꾼 후에 콤마 단위로 Split을 시켜 배열에 넣을 수 있을 것 같습니다.
위에서 ubound(arrTxt)는 배열 arrTxt의 상한값입니다.
도움 되시길 바라며 즐거운 하루 되세요.
Split 함수를 사용하면 특정 문자 단위로 잘라서 배열로 넣을 수 있습니다.
예를 들어..
-----------------------------
strTxt = "2004,10,25,25,42"
arrTxt=split(strTxt,",")
-----------------------------
위와 같이 처리를 하면 arrTxt(0)="2004", arrTxt(1)="10", arrTxt(2)="25" 와 같이 배열에 할당이 됩니다.
만약 문자열 속에 공백, 텝, 콤마가 모두 들어 있고.. 이것들이 모두 자를 기준이 된다면..
-----------------------------
strtxt = "2004 10 25 25, 42"
strtxt = Replace(strtxt, " ", ",")
strtxt = Replace(strtxt, vbTab, ",")
arrtxt = Split(strtxt, ",")
For a = 0 To UBound(arrtxt)
Cells(a + 1, 1) = arrtxt(a)
Next
-----------------------------
위와 같이 " "도 콤마로 바꾸고.. 텝도 콤마로 바꾼 후에 콤마 단위로 Split을 시켜 배열에 넣을 수 있을 것 같습니다.
위에서 ubound(arrTxt)는 배열 arrTxt의 상한값입니다.
