줄바꿈 문제 문의

VBA
작성자
H.B
작성일
2021-09-15 13:38
조회
75
엑셀버전 : 엑셀2019

운영체제 : 윈도우10

안녕하세요

일전에 질문드렸습니다만, 회신이없어 질문의 방식을 바꿔서 질문드립니다.

한셀에 줄바꿈으로 하기와 같이 항목이 기입된걸, 분리시켜서 각항목별로 셀에 뿌려주고 싶습니다.

함수로는 어찌어찌 구현화했습니다만,(첨부파일) vba로 split(chr(10)을 활용해서 하고싶습니다만, 방법이 없을런지 문의드립니다.

전체 4

  • 2021-09-17 12:00

    대단히 감사합니다!!! iviolin님!!!!!! 덕분에 또 하나 공부해갑니다^^


  • 2021-09-15 19:22

    함수 형태의 VBA코딩을 원하시는건가요?

    아니면 ArrayToRng로 값을 뿌릴 수 있는 배열 형태로 만드시고 싶으신건가요?


  • 2021-09-16 12:52

    배열형태 이든 함수형태이든 어느쪽이든 나눠서 뿌리는 것까지 VBA로 구현화하고싶습니다.


    • 2021-09-16 19:46
      채택된 답변
      Option Explicit
      
      Sub SplitString()
      
      Dim SplitArrays As Variant
      Dim TempArray As Variant
      
      Dim SplitRngs As Range
      Dim SplitRng As Range
      
      Dim SRow As Long
      Dim TempSize As Long
      Dim i As Long
      Dim j As Long
      
      j = 1
      i = 1
      
      Set SplitRngs = Range("B2:B" & Cells(2, 2).End(xlDown).Row)
      
      SRow = SplitRngs.Rows.Count
      
      ReDim SplitArrays(1 To SRow, 1 To 1)
      
      For Each SplitRng In SplitRngs
          
          TempArray = Split(SplitRng, Chr(10))
          TempSize = UBound(TempArray) + 1
          
          If TempSize > UBound(SplitArrays, 2) Then
              ReDim Preserve SplitArrays(1 To SRow, 1 To TempSize)
          End If
          
          For j = 1 To UBound(TempArray) + 1
              SplitArrays(i, j) = TempArray(j - 1)
          Next
          i = i + 1
      Next
      
      End Sub

      이 명령문을 사용해보세요
      명령문의 SplitArrays에 Split한 배열이 담겨있습니다.


전체 4,228
번호 카테고리 제목 작성자 작성일 추천 조회
4212 함수/공식
New --ISNUMBER의 의미 (1)
마운틴 | 12:07 | 추천 0 | 조회 10
마운틴 12:07 0 10
4211 함수/공식
New 엑셀 수식 가로로 하는법 첨부파일
KT | 11:08 | 추천 0 | 조회 13
KT 11:08 0 13
4210 함수/공식
New 유효성검사를 통해 다른시트의 데이터 중 매출액이 있는 데이터만 불러오는 방법 첨부파일
emp**** | 10:34 | 추천 0 | 조회 15
emp**** 10:34 0 15
4209 VBA
New 이미지넣는 매크로, 다시 열어보니 사진이 안떠요
흑형 | 09:08 | 추천 0 | 조회 13
흑형 09:08 0 13
4208 함수/공식
New 조건에 맞는 값 추출될 수 있도록 수식 질문드립니다 첨부파일 (1)
젬마 | 08:43 | 추천 0 | 조회 20
젬마 08:43 0 20
4207 기능/도구
New 하나 이상의 수식이 허용된 8,192자 제한보다 깁니다.
City0311 | 08:41 | 추천 0 | 조회 9
City0311 08:41 0 9
4206 VBA
New 재질문 : ParseJSON 함수 첨부파일
하늘의 꿈 | 01:48 | 추천 0 | 조회 17
하늘의 꿈 01:48 0 17
4205 VBA
New 다른시트명 불러오기 vba
야야야야구르트 | 2021.10.18 | 추천 0 | 조회 25
야야야야구르트 2021.10.18 0 25
4204 VBA
New 유저폼에서 리스트 검색 후, 선택목록 내용 보기 첨부파일
007 | 2021.10.18 | 추천 0 | 조회 19
007 2021.10.18 0 19
4203 함수/공식
New 변하는 변수값 고정시키기 첨부파일
아자사랑 | 2021.10.18 | 추천 0 | 조회 18
아자사랑 2021.10.18 0 18
4202 VBA
New VBA로 사용자정의폼을 동시에 여러개 띄울수 있나요? (2) 답변완료
가을전어 | 2021.10.18 | 추천 0 | 조회 36
가을전어 2021.10.18 0 36
4201 VBA
New vba 웹 크롤링 공부중 질문이 있습니다! 첨부파일
VBA시작하자 | 2021.10.18 | 추천 0 | 조회 22
VBA시작하자 2021.10.18 0 22
4200 VBA
New VBA의 Find활용 특정날짜 복붙 첨부파일 (4) 답변완료
H.B | 2021.10.18 | 추천 1 | 조회 32
H.B 2021.10.18 1 32
4199 함수/공식
New 부품과 완제품 수량 연동 질문입니다. 첨부파일 (2) 답변완료
receive | 2021.10.18 | 추천 1 | 조회 39
receive 2021.10.18 1 39
4198 VBA
New 시트별 셀수정 관련 질문드립니다 첨부파일 (4) 답변완료
ehrud**** | 2021.10.18 | 추천 0 | 조회 39
ehrud**** 2021.10.18 0 39
4197 기능/도구
New 엑셀 추가기능 XFILTER를 사용한 파일이 XFILTER 가 설치되어있는 다른PC에서 열때 오류가 납니다. (2)
No14 | 2021.10.18 | 추천 2 | 조회 25
No14 2021.10.18 2 25
4196 기능/도구
New 엑셀데이터유효성검사 질문입니다 꼭 도와주세용 첨부파일 (4) 답변완료
하곰 | 2021.10.18 | 추천 0 | 조회 43
하곰 2021.10.18 0 43
4195 함수/공식
New 동적엑셀 서식 (2)
| 2021.10.18 | 추천 0 | 조회 32
2021.10.18 0 32
4194 함수/공식
New 합계 및 합수값 해결방법 첨부파일 (2)
kk**** | 2021.10.18 | 추천 0 | 조회 32
kk**** 2021.10.18 0 32
4193 VBA
New 특정날짜 데이터만 COPY 붙이기 첨부파일 (4) 답변완료
H.B | 2021.10.18 | 추천 0 | 조회 37
H.B 2021.10.18 0 37
4192 함수/공식
New 강의실내용 교재로 받을수 있나요?
호반안개 | 2021.10.18 | 추천 0 | 조회 30
호반안개 2021.10.18 0 30
4191 함수/공식
New 월별 매출을 위해 서식을 짜고있습니다 첨부파일 (2)
크래용 | 2021.10.18 | 추천 0 | 조회 47
크래용 2021.10.18 0 47
4190 VBA
New ParseJSON 함수 자리차지 첨부파일 (3) 답변완료
하늘의 꿈 | 2021.10.18 | 추천 0 | 조회 41
하늘의 꿈 2021.10.18 0 41
4189 VBA
New vba listbox 에 head 추가하는 방법 (1)
서민철 | 2021.10.17 | 추천 0 | 조회 36
서민철 2021.10.17 0 36
4188 함수/공식
New 다품목 안전 재고 관리시 사용할 수 있는 함수 문의
엑셀왕왕초보 | 2021.10.17 | 추천 0 | 조회 34
엑셀왕왕초보 2021.10.17 0 34
4187 함수/공식
New importrange로 불러온 그림이 인쇄가 안됩니다..ㅠㅠ (2) 답변완료
민 쌤 | 2021.10.17 | 추천 0 | 조회 27
민 쌤 2021.10.17 0 27
4186 함수/공식
New 꼭 도와 주세요. 첨부파일 (3)
그린의달인 | 2021.10.16 | 추천 1 | 조회 67
그린의달인 2021.10.16 1 67
4185 함수/공식
New 공백 유지하는 중복 제거 문의 첨부파일 (4) 답변완료
clairebear8 | 2021.10.16 | 추천 0 | 조회 55
clairebear8 2021.10.16 0 55
4184 함수/공식
New 엑셀 공식 도와주세요~ 첨부파일 (1)
ma**** | 2021.10.16 | 추천 0 | 조회 57
ma**** 2021.10.16 0 57
4183
제가 만든 엑셀VBA가 오류들이 있어 도움을 청합니다. 첨부파일 (1)
유림아빠 | 2021.10.16 | 추천 0 | 조회 38
유림아빠 2021.10.16 0 38