선생님도 이 사전과 배열의 코드를 좀 봐 달라고 부탁했다.

아래 코드를 다시 시도하십시오. 나는 여기서 시도해 보았는데, 아마 해결할 수 있을 것이다.

당신의 데이터는 숫자이기 때문에, 자릿수가 길어지면 사전의 키는 자동으로 배정도 Double 로 인식되어 저장 및 읽기가 훨씬 느려집니다. (데이비드 아셀, Northern Exposure (미국 TV 드라마), 데이터명언) 이제 문자형으로 바꾸면 됩니다.

Sub? Cz ()

N? =? 지금 ()

암담한가? D

설정? D? =? CreateObject ("스크립트. 사전) 을 참조하십시오

암담한가? 나? Sr,? Yr? 로? 길다

암담한가? ShmxH,? Yhdz,? ShmxX

Sr? =? 범위 ("h"? & amp? 네. 수). 끝내기 (xlUp). 줄

ShmxH? =? Range("H2:H "? & amp? Sr) 을 참조하십시오

ShmxX? =? Range("X2:X "? & amp? Sr) 을 참조하십시오

연습장. 오픈? 이 워크북. 경로? & amp? "\ 은행 영수증. Xlsx "

워크북 ("은행 영수증"). 활동을 하다

Yr? =? 범위 ("e"? & amp? 네. 수). 끝내기 (xlUp). 줄

Yhdz? =? 범위 ("E2:H"? & amp? 년)

뭐 때문에? 나? =? 1? 어디 가? 저개발 지역

D(Yhdz(i, 1)? & amp? "")? =? Yhdz (나, 4)

그리고 나서

뭐 때문에? 나? =? 1? 어디 가? UBound(ShmxH)

만약? D.exists(ShmxH(i, 1)? & amp? "")? 그리고 나서

ShmxX (나,? 1)? =? D(ShmxH(i, 1)? & amp? "")

기타

ShmxX (나,? 1)? =? "해당 없음"

끝? 만약

그리고 나서

이 워크북. 활동을 하다

범위 ("X2") 입니다. 크기 조정 (UBound(ShmxX),? 1)? =? ShmxX

설정? D? =? 아무것도 없다

워크북 ("은행 영수증"). 닫기

MsgBox? 지금 ()? -응? N)? *? 24? *? 3600? & amp? "초"

끝? 잠수함