Vba 사전 항목 합계

Dim DIC, iStr as string

Set DIC = CreateObject(“Scripting ". 사전) 을 참조하십시오

활동 테이블 포함

I = 1 끝 의 경우. 범위 ("A65536") 입니다. 끝내기 (xlUp). 줄

IStr =. 세포 (I, 1) 와 amp ","&. 세포 (I, 2) 와 amp ","&. 세포 (I, 3)

DIC(iStr)= DIC(iStr)+ 세포 (I, 4)

그리고 나서

운전자 정보센터 버튼의 각 d 에 대해

N = n+1

。 셀 (n, 6) 입니다. 크기 조정 (1, 3)= 분할 (d, ",")

그리고 나서

。 셀 (1, 9). 크기 조정 (DIC). Count, 1)= 워크시트 기능. 돌리기 (dic.items)

로 끝맺다

끝단 접합