VBA를 이용한 Split 사용자정의함수 - 배열 데이터 셀에 리턴(반환)

VBA
작성자
miniiimi
작성일
2021-09-06 16:44
조회
37
엑셀버전 : M365

운영체제 : 윈도우10

질문. (샘플 파일 첨부합니다.)

VBA를 이용해 특정 구분자가 포함된 셀을 세로로 값이 나열되도록 하고싶어요

 

제가 찾은 방법 - 해결 안됨
얕은 지식으로.. 인터넷 여기저기 참고해서 사용자 정의 함수를 만들었으나,
결과가 가로로 나열됩니다. (아래 참고)
Transpose 함수 사용한 방법이 아닌 VBA로 해결하는 방법을 알고싶어요.

 

Split 함수를 이용해 특정 구분자로 나누어진 텍스트를 배열로 저장하여 반환했어요.

이 다음에 어떻게 해야 반환되는 값들이 세로로 나열될지 모르겠네요.

VBA코드 공유
'텍스트 분할을 위한 사용자 정의함수 만들기
Function TextSplit(Nowval As String, Delimiter As String)

'Nowval 분할하고자 하는 텍스트 셀 값
'Delimiter 구분자

Dim MultiValue1() As Variant
Dim i As Integer
Dim names() As String

names = Split(Nowval, Delimiter)

ReDim MultiValue1(UBound(names))

For i = 0 To UBound(names)
MultiValue1(i) = Trim(names(i))
Next

TextSplit = MultiValue1

End Function

 

전체 1

  • 2021-09-06 16:55

    스플릿 한것을 배열로 넣어주시고,
    오빠두님의 arraytorng(배열출력함수)로 하기와 같이 출력하시면 될거같습니다.
    arraytorng는 오빠두 홈페이지 검색하시면 바로나옵니다.

    dim v as variant

    v = split("사과/배/.....","/")
    ArrayToRng Sheet1.Range("A1"), v


전체 4,000
번호 카테고리 제목 작성자 작성일 추천 조회
3984 함수/공식
New 함수 만들 수 있을까요?
soo | 09:47 | 추천 0 | 조회 5
soo 09:47 0 5
3983 VBA
New 엑셀 VBA에서 RemoveDuplicates 사용시 '5' 런타임 오류가 발생하여 해결 방법 문의드립니다. (1)
namonamo | 02:14 | 추천 0 | 조회 8
namonamo 02:14 0 8
3982 함수/공식
New (도와주세요) INDEX, MATCH 를 통해 만들었는데 많이 무거워요ㅠ 첨부파일 (2)
18 강영순 | 02:07 | 추천 0 | 조회 17
18 강영순 02:07 0 17
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 | 조회 34
H.B 2021.09.16 0 34
3967 기능/도구
New 다른 시트 참조 자동 계산 (1)
skyline | 2021.09.16 | 추천 0 | 조회 43
skyline 2021.09.16 0 43
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 파워쿼리/피벗
New 파워쿼리 열 추가 첨부파일 (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 | 조회 41
보조메일 2021.09.16 0 41
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
3955 VBA
파일합치기 VBA에서, 값 붙여넣기를 하고 싶은 경우 (2) 답변완료
용부가자 | 2021.09.15 | 추천 0 | 조회 34
용부가자 2021.09.15 0 34