transpose 배열전환시 리미트 에러
VBA
작성자
마선생
작성일
2021-10-07 18:02
조회
376
안녕하세요.
배열 연습을 하다가
10만개 셀에다가 생성한 배열을 넣으려고 했습니다.
transpose를 해서 넣다보니 34000개 넘어서는 NA가 발생했습니다.
어떤 식으로 해결을 해야 하나요?
Sub array_time_test()
Dim i As Long, cnt As Long
Dim T
Dim db() As String
Range("A1").CurrentRegion.Clear
cnt = Range("D3")
T = Now()
For i = 0 To cnt
ReDim Preserve db(cnt)
db(i) = "홍길동" & i
'db(i) = CStr(Int(Rnd() * 11))
Next i
Range("A1").Resize(UBound(db, 1), 1) = Application.Transpose(db)
T = Now() - T
MsgBox Format(T, "hh:mm:ss")
Erase db
End Sub
전체 7,367
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (6)
![]() ![]() |
![]() ![]() |
2022.07.31 | 8 | 1340 | ||
공지사항 | 함수/공식 |
[신규 기능 업데이트!] 👉 이제 게시글 작성시 스크린샷 복/붙이 가능합니다! 😎
(2)
오빠두엑셀
|
2022.08.04
|
추천 4
|
조회 278
|
![]() ![]() |
2022.08.04 | 4 | 278 |
공지사항 | 함수/공식 |
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐
(88)
오빠두엑셀
|
2021.10.28
|
추천 118
|
조회 6280
|
![]() ![]() |
2021.10.28 | 118 | 6280 |
41218 | VBA |
New 시트를 구분해서 PDF로 저장하는거까진 되는데 시트를 합치는게 안되서요..
![]() ![]() |
![]() |
13:00 | - | 14 |
41214 | 함수/공식 |
New 동일 파일 시트 단독 작업 후 붙여넣기 시 함수 참조값이 변경될 때
(1)
![]() |
![]() |
10:56 | - | 22 |
41212 | VBA |
New VBA에서 Xlookup를 사용할 때, 다른 파일에 다른 시트를 참조 할 때, 참조방식에 관한 질문
![]() ![]() |
![]() |
08:42 | - | 25 |
41211 | 함수/공식 |
New 수식의 셀이 비어있을경우 셀이 비어있도록 하는 방법이 있을까요?? 도와주세요..며칠째 이것만 찾고있습니다.
(5)
답변완료
![]() |
![]() |
08:24 | - | 40 |
41209 | 함수/공식 |
New 특정값 곱하기 열에 자동계산 도와주세요
![]() ![]() |
![]() |
03:12 | - | 24 |
41206 | 기능/도구 |
New 엑셀 기능 두셀의 값 위치 바꾸기
![]() ![]() |
![]() |
2022.08.15 | - | 38 |
41198 | VBA |
New 유저폼 강제종료 할수 있는 방법이 있을까요?
(1)
![]() |
![]() |
2022.08.15 | - | 35 |
41194 | 파워쿼리/피벗 |
New 파워쿼리 사용자지정열에 관한 아주 간단한 질문드립니다. (AND, OR조건과 줄바꿈)
![]() ![]() ![]() |
![]() |
2022.08.15 | - | 27 |
41193 | 함수/공식 |
New 월간 세일즈 타겟에서 남은 금액 계산 방법이 있나요?
![]() ![]() |
![]() |
2022.08.15 | - | 22 |
41184 | 피벗테이블 |
New 피벗테이블과 시트 부분 보호
![]() ![]() |
![]() |
2022.08.15 | -1 | 32 |
41182 | 피벗테이블 |
New 엑셀 피벗
![]() ![]() ![]() |
![]() |
2022.08.15 | - | 48 |
41180 | VBA |
New 시트모으기 매크로 관련 보완 및 조언 요청 드립니다.
![]() ![]() ![]() |
![]() ![]() |
2022.08.15 | - | 39 |
41174 | 함수/공식 |
New 엑셀 다른시트에서 날짜에 맞춰서 값 불러오기 수식을 어떻게 짜야할지 모르겠어요.
![]() ![]() |
![]() |
2022.08.14 | - | 66 |
41173 | 함수/공식 |
New 오빠두에서 제공하는 견적서에 외화를 추가하고 싶습니다.
(1)
![]() |
![]() |
2022.08.14 | - | 25 |
41170 | 문서서식 |
New (초보질문)채우기 색만 복사 붙여넣기 하는 방법 좀 알려주세요~
![]() ![]() ![]() |
![]() |
2022.08.14 | - | 44 |
41167 | 기능/도구 |
New 고급필터 결과값 셀에 형식을 주려면 어떻게 해야 할까요?
(1)
![]() |
![]() |
2022.08.14 | - | 31 |
41162 | VBA |
New 달력 유저폼에서 유저폼 X 하면 현재 날짜 변경 없으면 합니다.
![]() ![]() ![]() |
![]() |
2022.08.13 | - | 45 |
41159 | 함수/공식 |
New 해당 조건 개수찾기 Max 함수 예제
![]() ![]() |
![]() |
2022.08.13 | - | 37 |
41148 | VBA |
New 셀에서 특정 위치에 있는 문자의 색상을 변경하는 방법
![]() ![]() |
![]() |
2022.08.13 | - | 54 |
41147 | 문서서식 |
New 엑셀에서 픽셀에 의미에 대해서 질문드립니다.
![]() ![]() |
![]() |
2022.08.13 | - | 74 |
41145 | 함수/공식 |
New 이런 경우는 어떻게 해야할까요?
![]() ![]() |
![]() |
2022.08.13 | 1 | 63 |
41141 | 함수/공식 |
New 어떤 함수를 써야할까요?
![]() ![]() |
![]() |
2022.08.13 | - | 61 |
41140 | VBA |
New 매크로 파일 저장방법이 따로 있나요?파일목록이 추가될때마다 저장확인창이 하나씩 늘어나요ㅠㅠ
![]() ![]() |
![]() |
2022.08.13 | - | 28 |
41132 | 함수/공식 |
New 함수를 간단히 할 수 있을까요?
![]() ![]() |
![]() |
2022.08.12 | - | 68 |
41129 | 기능/도구 |
New 빠른 실행 도구 모음에서 명령 레이블 표시 또는 숨기기
![]() ![]() |
![]() |
2022.08.12 | - | 53 |
41126 | VBA |
New VBA 자동화 용어 및 규칙 등의 작동원리 해석 문의
![]() ![]() |
![]() |
2022.08.12 | - | 61 |
41123 | 함수/공식 |
New 어떤 함수가 입력된건지 알고싶어요.(함수가 가려져 있는건지 여부도 알고싶네요)
![]() ![]() |
![]() |
2022.08.12 | - | 55 |
41117 | 피벗테이블 |
New 데이터 모델 관련 오류인데 어떤 오류인지 도저히 모르겠습니다ㅠ
![]() ![]() |
![]() |
2022.08.12 | - | 53 |
41116 | 피벗테이블 |
New 피벗테이블 슬라이서 문의
![]() ![]() |
![]() |
2022.08.12 | - | 40 |
41114 | 함수/공식 |
New Lookup 함수사용시 출력되는 날짜의 형식오류
![]() ![]() |
![]() |
2022.08.12 | - | 37 |
@마선생 님 다른 배열을 받을 함수를 하나만드신 후
배열의 크기를 Ubound로 행,열 바꾼것으로 넣고 For문을 두 번 써서 db의 값을 넣어주면됩니다.
@iviolin**** 님 감사합니다. 저는 1차원 배열이라서 생각을 잘못했네요. 오히려 간단한 것을 너무 복잡하게 생각했습니다.
저처럼 공부하시는 분들께 도움되고자 글 남깁니다. 해결한 코드는 아래와 같습니다.
Sub array_time_test()
Dim i As Long, cnt As Long
Dim T
Dim db() As String, cp() As String
Range("A1").CurrentRegion.Clear
cnt = Range("D3")
T = Now()
For i = 0 To cnt
ReDim Preserve db(0, cnt)
db(0, i) = "홍길동" & i + 1
'db(i) = CStr(Int(Rnd() * 11))
Next i
ReDim Preserve cp(cnt, 0)
For i = 0 To cnt
cp(i, 0) = db(0, i)
Next i
'Range("A1").Resize(UBound(db, 1), 1) = Application.Transpose(db)
Range("A1").Resize(UBound(db, 2), 1) = cp
T = Now() - T
MsgBox Format(T, "hh:mm:ss")
Erase db
End Sub