EXCEL 에서 VBA 데이터 사전을 사용하는 방법: 중복 제거 후 요약

부사장관 ()

Set DIC = createobject ("scripting ") 입니다. 사전 ")" 은 사전을 정의합니다.

Arr = Range("A 1:C500 ")' 최대 행 수가 500 이라고 가정하고 A 1 부터 C500 까지의 영역을 배열에 배치합니다.

For I = 1 to bound (arr)' 는 1 에서 배열의 최대 행 수까지 순환합니다.

If arr(i,1) < & gt ""및 arr(i,1) < 그런 다음> "장치" 는 공간과 제목 행을 제안합니다.

Dic (ARR (I, 1)) = DIC (ARR (I, 1))+ARR (I, 3)' 사전을 사용하여 중복 제거

만약 ... 끝날거야

다음으로 저는

[E2] 입니다. 크기 조정 (DIC). 개수, 1) = 어플리케이션. 돌리기 (DIC). 키)' 사전을 바꾸는 키 (즉, a 열에서 반복되지 않는 값) 는 keys 열에 배치됩니다.

[F2] 입니다. 크기 조정 (DIC). 개수, 1) = 어플리케이션. 돌리기 (DIC). Items)' 는 사전의 kItems (누적 결과) 를 바꾸어 e 열에 넣습니다.

끝단 접합