vba array활용 반복넣기 재질문

VBA
작성자
H.B
작성일
2021-11-17 15:21
조회
48
엑셀버전 : M365

운영체제 : 윈도우10


첨부링크처럼 질문드렸습니다만, 재질문 드립니다.

하기와 같이 sheet1의 항목을 각 행별로 5번씩 sheet2에 넣어주고 싶습니다. 첨부파일에 나름대로 vba를 짜봤습니다만,

단순히 value=value.resize(5,0)를 활용해서 하니 원하는 바는 구현했는데, 문제는 양이 많다보니 속도가 너무 느리네요.

그래서 array를 (varient)로 sheet1의 항목을 담아서 오빠두님의 arraytorng 등의 함수를 써서 뿌려줄때, 각 차원당 5번씩 뿌려주는 방식을 쓰면 좀 더 빠를거같은데, 혹시 어떻게 5번씩 array를 뿌려줄수 있을지. 도움 부탁드립니다.

전체 3

  • 2021-11-17 15:31
    채택된 답변

    요청하신 오빠두 함수 arraytorng 사용하여 작성해보았습니다.

    매크로 실행버튼을 눌러보세요. 0.4초 정도 걸리네요.

    화면-캡처-2021-11-17-153000.jpg

    첨부파일 : 문의사항_답변.xlsm


  • 2021-11-17 15:28

    로직을 어떻게 세우는가에 따라 달라지겠지만 저라면 dictionary를 사용할 것 같습니다.

    vba passing an array to a Dictionary.keys - Stack Overflow

    value로 값을 5번씩 뿌려서 dictionary 개체를 하나 만들어 주시고..

    Array = Dictionary.Items

    로 배열로 변환한 다음 출력해보세요~~

    또는 3차원으로 배열을 짜도 됩니다. ^^ 원리는 동일하게..

    https://stackoverflow.com/questions/39821883/vba-3-dimensional-array


  • 2021-11-17 15:51

    두분 모두 대단히 감사합니다!!!!

    큰 도움되었습니다^^


전체 4,633
번호 카테고리 제목 작성자 작성일 추천 조회
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (8)
오빠두엑셀 | 2021.10.28 | 추천 12 | 조회 664
트로피 오빠두엑셀 2021.10.28 12 664
24099 함수/공식
New 입력한 값에 따라 IMAGE 자동입력 함수 문제 관련
유지연 | 00:11 | 추천 0 | 조회 5
유지연 00:11 0 5
24098 VBA
New 워드 Format(숫자, "#,###") (1)
argus | 2021.11.28 | 추천 0 | 조회 10
argus 2021.11.28 0 10
24097 VBA
New 각각 형식이 다른 여러 시트에서 원하는 값들만 가져와서 한 시트에 보기 쉽게 합치고 싶습니다. 첨부파일 (1)
축전 | 2021.11.28 | 추천 0 | 조회 14
축전 2021.11.28 0 14
24096 VBA
New 엑셀 재고관리툴 만들기 VBA영상 시청중 오류 발생관련 문의입니다. 첨부파일
가을전어 | 2021.11.28 | 추천 0 | 조회 8
가을전어 2021.11.28 0 8
24093 기능/도구
New 작업표시줄 클릭으로 클립보드에 복사 문제 관련
어루 | 2021.11.28 | 추천 0 | 조회 10
어루 2021.11.28 0 10
24091 VBA
New 도와주세요! 뭐가 문제인지 못찾겠습니다.
y**** | 2021.11.28 | 추천 0 | 조회 14
y**** 2021.11.28 0 14
24089 VBA
New 엑셀 vlookup vba 문의드립니다. (1)
ㅈㄱㄹ | 2021.11.28 | 추천 0 | 조회 16
ㅈㄱㄹ 2021.11.28 0 16
24088 함수/공식
New 개인별 회비 납부 현황에 따라 월별 납부액 결정 관련 함수 또는 VBA (미납, 매월 16일 이후 납부할 경우 월회비 10% 가산) 첨부파일
007 | 2021.11.28 | 추천 0 | 조회 25
007 2021.11.28 0 25
24081 함수/공식
New 영문주소를 한글주소로 변경 희망합니다. (1)
루s cos 개인대행 | 2021.11.28 | 추천 0 | 조회 21
루s cos 개인대행 2021.11.28 0 21
24072 VBA
New 수식이 있는 데이터에서 매크로를 사용하여 다른시트에 결과값만 붙여넣고 싶습니다. 첨부파일 (6) 답변완료
호랑이파워 | 2021.11.28 | 추천 0 | 조회 43
호랑이파워 2021.11.28 0 43
24068 파워쿼리/피벗
New 파워쿼리 간단한 '값 바꾸기' 에 대해서 질문드립니다. 첨부파일 (3)
월마리아 | 2021.11.28 | 추천 0 | 조회 28
월마리아 2021.11.28 0 28
24065 피벗테이블
New 열과 행 바꾸는 쉬운 방법있나요? 첨부파일 (5) 답변완료
jyj6**** | 2021.11.27 | 추천 0 | 조회 41
jyj6**** 2021.11.27 0 41
24060 VBA
New 메모리가 부족하다고 뜹니다. 첨부파일
선물 | 2021.11.27 | 추천 0 | 조회 25
선물 2021.11.27 0 25
24059 VBA
New 첨부파일을 서버 업로드 (1)
권원재 | 2021.11.27 | 추천 0 | 조회 24
권원재 2021.11.27 0 24
24053 파워쿼리/피벗
New 엑셀 배열 순서를 바꾸고 싶습니다. 첨부파일
jyj6**** | 2021.11.27 | 추천 1 | 조회 29
jyj6**** 2021.11.27 1 29
VBA
New Re:엑셀 배열 순서를 바꾸고 싶습니다.
Yukon | 2021.11.27 | 추천 1 | 조회 36
Yukon 2021.11.27 1 36
피벗테이블
New Re:Re:엑셀 배열 순서를 바꾸고 싶습니다. (1)
jyj6**** | 2021.11.27 | 추천 0 | 조회 22
jyj6**** 2021.11.27 0 22
24048 VBA
New 재고관리 툴 만들기 질문이요 첨부파일 (3)
선물 | 2021.11.26 | 추천 0 | 조회 35
선물 2021.11.26 0 35
24046 함수/공식
New 날짜별로 근태 정리를 하려면 어떻게 해야할까요 첨부파일 (2)
ㅁㅁㅁㅁㅁ | 2021.11.26 | 추천 0 | 조회 49
ㅁㅁㅁㅁㅁ 2021.11.26 0 49
24042 VBA
New 한 코드를 가진 사람의 계약일자 최소값 최대값 구하기 첨부파일 (2)
seorin | 2021.11.26 | 추천 0 | 조회 31
seorin 2021.11.26 0 31
24039 함수/공식
New 다중 조건 및 가장 낮은 일시에 매칭되는 값 불러오기 첨부파일 (6)
감사하모니카 | 2021.11.26 | 추천 0 | 조회 33
감사하모니카 2021.11.26 0 33
24038 VBA
New ZAN IMAGE PRINTER 프로그램에서 JPG 파일명을 내 마음대로 (3)
goodman | 2021.11.26 | 추천 0 | 조회 22
goodman 2021.11.26 0 22
24033 문서서식
New 조건부 서식 특정열 단어포함시 해당 행의 서식 변경 방법 첨부파일 (2) 답변완료
아빠의꿈 | 2021.11.26 | 추천 0 | 조회 31
아빠의꿈 2021.11.26 0 31
24032 함수/공식
New 함수 초보 질문있습니다. (2) 답변완료
윤태종 | 2021.11.26 | 추천 0 | 조회 32
윤태종 2021.11.26 0 32
24029 VBA
New 엑셀로그인 프로그램 사용자 개인별 시트만 보이게 하는 방법 첨부파일 (1)
엑셀이 | 2021.11.26 | 추천 0 | 조회 37
엑셀이 2021.11.26 0 37
24014 VBA
New Private Sub Worksheet_Change(ByVal Target As Range) 조건문의 (1)
yg | 2021.11.26 | 추천 1 | 조회 35
yg 2021.11.26 1 35
24011 VBA
vba 고급필터후 인쇄 자동화 첨부파일 (1)
naver_6180ef1e63220 | 2021.11.26 | 추천 0 | 조회 39
naver_6180ef1e63220 2021.11.26 0 39
24010 문서서식
양이 많은 '병합하고 가운데 맞춤 '버튼을 눌러서 할일을 쉽게 하는방법 첨부파일 (3)
아빠의꿈 | 2021.11.26 | 추천 0 | 조회 46
아빠의꿈 2021.11.26 0 46
24009 함수/공식
오빠두 강의 중 마지막셀 이동에 관하여 질문드립니다. (MATCH함수) (2)
월마리아 | 2021.11.25 | 추천 0 | 조회 38
월마리아 2021.11.25 0 38
24006 함수/공식
조건부 서식 함수 첨부파일 (1)
AFOPWEOI1213 | 2021.11.25 | 추천 -1 | 조회 44
AFOPWEOI1213 2021.11.25 -1 44
24005 파워쿼리/피벗
파워쿼리에서 다중조건 평균구하기 (1)
황선규 | 2021.11.25 | 추천 0 | 조회 28
황선규 2021.11.25 0 28
24002 기능/도구
엑셀 요 기능 이름이 뭐죠?ㅜㅜ (2) 답변완료
냥냥 | 2021.11.25 | 추천 0 | 조회 44
냥냥 2021.11.25 0 44