줄바꿈 문제 문의

VBA
작성자
H.B
작성일
2021-09-15 13:38
조회
44
엑셀버전 : 엑셀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,001
번호 카테고리 제목 작성자 작성일 추천 조회
3985 피벗테이블
New (도움바랍니다)한명의 대표가 다수의 사업장을 운영하는 경우
일랑일랑 | 11:31 | 추천 0 | 조회 2
일랑일랑 11:31 0 2
3984 함수/공식
New 함수 만들 수 있을까요?
soo | 09:47 | 추천 0 | 조회 6
soo 09:47 0 6
3983 VBA
New 엑셀 VBA에서 RemoveDuplicates 사용시 '5' 런타임 오류가 발생하여 해결 방법 문의드립니다. (1)
namonamo | 02:14 | 추천 0 | 조회 8
namonamo 02:14 0 8
3982 함수/공식
New (도와주세요) INDEX, MATCH 를 통해 만들었는데 많이 무거워요ㅠ 첨부파일 (3)
18 강영순 | 02:07 | 추천 0 | 조회 18
18 강영순 02:07 0 18
3981 VBA
New 재고관리 툴 만들기 8시간 풀영상 중 목록상자 가시성과 다중페이지에 대해 질문합니다.
나두엑셀왕 | 2021.09.18 | 추천 0 | 조회 11
나두엑셀왕 2021.09.18 0 11
3980 기능/도구
New 목록 단추 차수 조회를 피벗테이블과 연동해서 총괄표 조회 할때 에러 발생 해결 부탁드려요~~ 첨부파일 (1)
알면서 | 2021.09.18 | 추천 0 | 조회 11
알면서 2021.09.18 0 11
3979 파워쿼리/피벗
New 웹데이터 엑셀로 가져오기 (1)
yoo | 2021.09.18 | 추천 -1 | 조회 28
yoo 2021.09.18 -1 28
3978 기능/도구
New 아이콘을 매뉴에 저장하는 방법 문의 (1)
Trimman | 2021.09.18 | 추천 0 | 조회 20
Trimman 2021.09.18 0 20
3977 VBA
New 선택 행 강조 매크로 사용시 복사/붙여넣기 할 수 있는 방법 있을까요? (1)
차오 | 2021.09.17 | 추천 0 | 조회 30
차오 2021.09.17 0 30
3976 함수/공식
New index/match 함수 사용시 다중 데이터을 합산하여 데이터 합계 끌고오는 방법이 있을까요? 첨부파일 (1)
관절바람 | 2021.09.17 | 추천 0 | 조회 28
관절바람 2021.09.17 0 28
3975 VBA
New VBA 시트명을 참조하는 함수입력 매크로에서 시트명을 변수로 설정하는 방법 (1)
kimki**** | 2021.09.17 | 추천 0 | 조회 24
kimki**** 2021.09.17 0 24
3974 함수/공식
New [카운팅 함수 해결방법] 고수님들 아무쪼록 가르침을 주시면 감사하겠습니다! 첨부파일 (2) 답변완료
CreativeGil | 2021.09.17 | 추천 0 | 조회 36
CreativeGil 2021.09.17 0 36
3973 함수/공식
New 일자/품목 열 행으로 나눠져 있는 자료 끌고오기 (1)
top**** | 2021.09.17 | 추천 0 | 조회 30
top**** 2021.09.17 0 30
3972 함수/공식
New 엑셀 함수 질문 첨부파일
향기 | 2021.09.17 | 추천 0 | 조회 38
향기 2021.09.17 0 38
3971 VBA
New VBA 로 만든 임시 POS에서, 바코드 열과 날짜 추가하는 방법 문의 드립니다 첨부파일 (1)
효율 | 2021.09.17 | 추천 0 | 조회 34
효율 2021.09.17 0 34
3970 기능/도구
New 스프레드시트 복사 붙여넣기 큰따옴표 지우는법 알려주실분 (1)
제비제비 | 2021.09.17 | 추천 0 | 조회 16
제비제비 2021.09.17 0 16
3969 VBA
New 동영상 처럼 엑셀로 만들어 질까요? (1)
yoo | 2021.09.16 | 추천 0 | 조회 39
yoo 2021.09.16 0 39
3968 VBA
New 기준열로 데이터 댕겨주기 질문 첨부파일 (2) 답변완료
H.B | 2021.09.16 | 추천 0 | 조회 35
H.B 2021.09.16 0 35
3967 기능/도구
New 다른 시트 참조 자동 계산 (1)
skyline | 2021.09.16 | 추천 0 | 조회 44
skyline 2021.09.16 0 44
3966 함수/공식
New 엑셀 함수 질문 첨부파일 (1)
향기 | 2021.09.16 | 추천 0 | 조회 25
향기 2021.09.16 0 25
3965 VBA
New 재질문 줄바꿈, 배열쪼개기 (2) 답변완료
H.B | 2021.09.16 | 추천 0 | 조회 37
H.B 2021.09.16 0 37
3964 VBA
New 폴더내 모든파일의 '특정시트' '각 파일' 제일 앞 시트로 복사
강대국 | 2021.09.16 | 추천 0 | 조회 22
강대국 2021.09.16 0 22
3963 VBA
New 사용자지정함수 관련 문의 입니다.
Nir | 2021.09.16 | 추천 0 | 조회 22
Nir 2021.09.16 0 22
3962 파워쿼리/피벗
파워쿼리 열 추가 첨부파일 (2)
슝슝 | 2021.09.16 | 추천 0 | 조회 24
슝슝 2021.09.16 0 24
3961 함수/공식
"월"&"주 차별" 관련 문의 드립니다 ㅠㅠ!! 첨부파일 (2) 답변완료
송민정 | 2021.09.16 | 추천 0 | 조회 39
송민정 2021.09.16 0 39
3960 VBA
표 데이터 다른표에 복사 붙여넣기 하는 매크로 첨부파일
이도현 | 2021.09.16 | 추천 0 | 조회 21
이도현 2021.09.16 0 21
3959 VBA
Range 안에 변수 넣기 (2) 답변완료
kimki**** | 2021.09.16 | 추천 0 | 조회 37
kimki**** 2021.09.16 0 37
3958 함수/공식
시트 내 중복되는 문자열이 있을 때 표시할 수 있는 함수나 방법 (6) 답변완료
보조메일 | 2021.09.16 | 추천 0 | 조회 42
보조메일 2021.09.16 0 42
3957 VBA
썸네일 이미지 url 추출 첨부파일 (8)
넘버원 | 2021.09.16 | 추천 0 | 조회 46
넘버원 2021.09.16 0 46
3956 피벗테이블
엑셀 피벗테이블 필터에 대한 질문입니다. 첨부파일 (1)
치킨카뤠 | 2021.09.15 | 추천 0 | 조회 26
치킨카뤠 2021.09.15 0 26