<04-6 문자 나누기>
작성자 정보
-
모아 작성
- 작성일
컨텐츠 정보
- 16 조회
- 0 추천
- 0 비추천
- 목록
본문
<04-6 문자 나누기>
Dim s() As String
Dim i As Long
s = Split(Range("a1"), " ")
For i = 0 To UBound(s)
Cells(i + 1, "b") = s(i)
Next
-----------------------------------------------
Dim s
Dim i As Long
s = Split(Range("a1"), " ")
For i = 0 To UBound(s)
Cells(i + 1, "b") = s(i)
Next
----------------------------------------------
Dim s
Dim i As Long
For Each s In Split(Range("a1"), " ")
Cells(i + 1, "b") = Trim(s)
i = i + 1
Next
출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]
|
|
포인트 선물 선물명단 선물하기
최소 5P ~ 최대 100000000P 까지 가능합니다.
로그인 후 선물하실 수 있습니다.
선물 받은 내용이 없습니다.
관련자료
모아
ex.9
-
등록일 21:54
-
등록일 21:53
-
등록일 21:52
-
등록일 21:51
댓글 0
등록된 댓글이 없습니다.