AarryToRng 함수 문의 드립니다.

VBA
작성자
구찌갱
작성일
2022-10-26 17:22
조회
66
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

질문 요약 : 오빠두 선생님의 arraytorng 함수 작성 중 첫 행부터 데이터 삽입

안녕하세요. 오빠두 선생님 마스터 공부중인 vba 초보자 입니다.

함수 및 명령문을 직접 만드는 공부를 하고있습니다.

ArrayToRng 함수를 인용하여 my_ATR 함수를 만들어 보았는데

배열을 만들고 불러오는 부분에서 해당 데이터를 왼쪽으로 정렬하는 방법을 마스터 코드 ArrayToRng 함수에서는 잘 모르겠더라구요..

VBA 를 수정하여 첫 행부터 데이터를 넣고자 합니다.

(해당 시트에 우측 행에도 데이터가 있어 delete shift:=xltoleft를 쓰지 않으려고합니다)

 

함수 및 명령문을 무작정 공부하니 좀 어렵네요..

직접 만들어 인수가 조금 다릅니다.

늘 감사합니다

------------------------------------------------------------------------------------------------

Sub my_ATR(arr As Variant, resultRng As Range, Optional ColumnNo As String = "")

Dim Cols, col As Variant

If ColumnNo = "" Then
resultRng.Cells(1, 1).Resize(UBound(arr, 1) - LBound(arr, 1) + 1, _
UBound(arr, 2) - LBound(arr, 2) + 1) = arr

Else
Cols = Split(ColumnNo, ",")
For Each col In Cols
If Trim(col) <> "" Then
resultRng.Cells(1, CLng(Trim(col))).Resize(UBound(arr, 1) - LBound(arr, 1) + 1) = _
Extract_Column(arr, CLng(Trim(col)))
End If
Next

End If

End Sub

------------------------------------------------------------------------------------------------

스크랩
공유
전체 0

전체 8,501
번호 카테고리 제목 작성자 작성일 추천 조회
알림
「🎉 올해의 책 투표」 '진짜쓰는 실무엑셀' 이 후보에 선정되었습니다! (👉깜짝 이벤트) (51)
오빠두엑셀 | 2022.11.07 | 추천 23 | 조회 7700
오빠두엑셀 2022.11.07 23 7700
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (105)
오빠두엑셀 | 2021.10.28 | 추천 135 | 조회 8502
오빠두엑셀 2021.10.28 135 8502
44938 기능/도구
New 온라인그림 선택이 안되요. 첨부파일
굿걸♡ | 11:57 | 추천 0 | 조회 9
굿걸♡ 11:57 - 9
44937 함수/공식
New 다중조건 if 관련 문의 (1)
지도현 | 11:50 | 추천 0 | 조회 13
지도현 11:50 - 13
44935 함수/공식
New 엑셀 2007,2010 오프라인 도움말파일 구해요
나야 | 11:41 | 추천 0 | 조회 11
나야 11:41 - 11
44932 VBA
New VBA FIND를 통해서 일치하는 값 찾을때까지 검색 후 만약에 없으면 해당셀에 찾는값 없음 넣기
고바마 | 11:02 | 추천 0 | 조회 22
고바마 11:02 - 22
44930 VBA
New vba를 이용하여 수식 결과값 추출 시트를 만들고 싶습니다. 첨부파일 (2)
코모 | 10:26 | 추천 0 | 조회 29
코모 10:26 - 29
44929 함수/공식
New [관심]!!경우의수 적용하여, 값 판단법 좀 알려주세요..ㅜ 엑셀파일첨부파일 (5)
ak스타 | 10:22 | 추천 0 | 조회 20
ak스타 10:22 - 20
44927 함수/공식
New 다중 sumifs 기타 값 계산 엑셀파일첨부파일 (1)
선크 | 10:18 | 추천 0 | 조회 19
선크 10:18 - 19
44916 함수/공식
New 엑셀 실시간으로 퍼센트가 변하는 시간계산기
KangU | 2022.11.27 | 추천 0 | 조회 29
KangU 2022.11.27 - 29
44915 VBA
New 괄호안의 숫자 합계 구하기 VBA 또는 수식 엑셀파일첨부파일 (4) 답변완료
007 | 2022.11.27 | 추천 0 | 조회 55
007 2022.11.27 - 55
44913 함수/공식
New 함수 결과값이 이상합니다 첨부파일 (1)
엄기용 | 2022.11.27 | 추천 0 | 조회 26
엄기용 2022.11.27 - 26
44907 함수/공식
New 시간만 구하는 방법.. 첨부파일 (3)
candle0723 | 2022.11.27 | 추천 0 | 조회 31
candle0723 2022.11.27 - 31
44904 문서서식
New 표시형식 문의 드립니다 (1)
거꾸로문 | 2022.11.26 | 추천 0 | 조회 27
거꾸로문 2022.11.26 - 27
44901 VBA
New 안녕하세요. vba로 단위 변환 질문드립니다.
Jes | 2022.11.26 | 추천 0 | 조회 36
Jes 2022.11.26 - 36
44899 차트/그래프
New 슬라이서 서식을 변경 한 후, 다른 엑셀 파일에서도 사용할 수 있는 방법이 있을까요?
twou**** | 2022.11.26 | 추천 0 | 조회 27
twou**** 2022.11.26 - 27
44896 VBA
New 여러 문자들 중 참조 문자에 있는 값 찾기 vba 엑셀파일첨부파일 (4)
007 | 2022.11.26 | 추천 0 | 조회 60
007 2022.11.26 - 60
44892 기능/도구
New 필터랑 행 숨기기 된 상태에서 자동채우기 안 되나요?
오리파 | 2022.11.25 | 추천 0 | 조회 25
오리파 2022.11.25 - 25
44887 함수/공식
New 다중조건을 만족하는 여러개의 값 구하는 함수식 문의드립니다. (1)
함수시르미 | 2022.11.25 | 추천 0 | 조회 49
함수시르미 2022.11.25 - 49
44886 VBA
New 엑세스 및 엑셀 연동 VBA INSERT구문 질문 엑셀파일
H.B | 2022.11.25 | 추천 0 | 조회 31
H.B 2022.11.25 - 31
44885 함수/공식
New 엑셀로 전투 시뮬레이션을 만들 수 있을까요? (2)
네버 | 2022.11.25 | 추천 0 | 조회 45
네버 2022.11.25 - 45
44881 VBA
New VBA 링크 설정시 현재시트로 설정하는법 첨부파일 (1)
엑셀왕이될거야22 | 2022.11.25 | 추천 0 | 조회 23
엑셀왕이될거야22 2022.11.25 - 23
44878 함수/공식
New 인덱스 매치 시 범위 합계구하기 엑셀파일 (2)
야근쟁이 | 2022.11.25 | 추천 0 | 조회 42
야근쟁이 2022.11.25 - 42
44877 함수/공식
New 조건1,조건2를 만족할때 결과값을 가지고 오는 방법 첨부파일 (2)
보연아빠 | 2022.11.25 | 추천 0 | 조회 50
보연아빠 2022.11.25 - 50
44876 함수/공식
New 같은 텍스트가 있을때 순번을 매기는 방법 첨부파일 (2)
보연아빠 | 2022.11.25 | 추천 0 | 조회 43
보연아빠 2022.11.25 - 43
44875 VBA
New db 배열안에 날자 데이터가 포함되어 있는데 바로 전에 가장 가까운 날자를 선택할수 있을까요? 첨부파일
후훗 | 2022.11.25 | 추천 0 | 조회 29
후훗 2022.11.25 - 29
44873 함수/공식
New 바코드 찍었을때 번호 하나마다 값 불러오기 엑셀파일첨부파일
김영준 | 2022.11.25 | 추천 0 | 조회 30
김영준 2022.11.25 - 30
44871 함수/공식
New 병상수 변경시 엑셀 통계..너무 어려워요.. 엑셀파일첨부파일 (2)
tada**** | 2022.11.25 | 추천 0 | 조회 29
tada**** 2022.11.25 - 29
44870 차트/그래프
New 그래프 그리기 엑셀파일첨부파일
뉴비 신입사원 | 2022.11.25 | 추천 0 | 조회 38
뉴비 신입사원 2022.11.25 - 38
44866 함수/공식
New 중복된 데이터가 여러개일 경우 각각 색을 표시하려고 합니다. 엑셀파일첨부파일 (1)
한가한 | 2022.11.25 | 추천 0 | 조회 32
한가한 2022.11.25 - 32
44865 VBA
New 매크로 코드 질문 드리고 싶습니다 ! ㅠㅠ 도와주세요 첨부파일 (2)
엑셀왕이될거야22 | 2022.11.25 | 추천 0 | 조회 36
엑셀왕이될거야22 2022.11.25 - 36
44859 VBA
New 웹크롤링이 가능한 조건인지 알고 싶어요. (1)
키키두두 | 2022.11.25 | 추천 0 | 조회 31
키키두두 2022.11.25 - 31