사전의 일반 코드

어두운 I&, x&, arr, brr (), str 1 달러

Dim d 를 객체로 사용

Set d = CreateObject ("스크립트 사전")

밴드 테이블 ("통계")

Arr =. 범위 ("E3:H" & amp；; 。 범위 ("E65536"). 끝내기 (xlUp). 줄) 을 참조하십시오

X = 1 하한 (arr) 의 경우

Str 1 = arr(x, 1)" | "& amparr(x, 2) 및 amp" |" & amparr(x

D. 가 없는 경우 (str 1) 다음과 같습니다

I = I+1

ReDim Preserve brr( 1 4, 1 I 까지)

Brr( 1, i) = arr(x, 1)

Brr(2, i) = arr(x, 2)

Brr(3, i) = arr(x, 3)

만약 ... 끝날거야

Brr(4, d(str 1)) = brr(4, d(str 1)), arr(x, 4)

다음 x

。 범위 ("K3") 입니다. Resize(UBound(brr, 2), 4) = Application 입니다. 돌리다

로 끝맺다

끝단 접합

이것은 당신이 원하는 코드입니다.