Vba 사전 removeall 메서드

명시적 옵션

행별로 하위 복제 ()

흐릿한 사전, 배열, I, j

Set dict = CreateObject ("스크립트". 사전) 을 참조하십시오

Arr = 장 (1) 입니다. 사용 범위

I = 1 하한 (arr) 의 경우

딕. 모두 삭제

J = 1 하한 (arr, 2) 의 경우

If arr(I, j) < & gt ""그럼 dict(arr(I, j))= True

다음 J.

시트 (2). 셀 (I, 1). 크기 조정 (1, dict. Count = dict 입니다. 건반

다음으로 저는

끝단 접합

프로그램은 다음과 같이 모듈에 있습니다.

제가 이 예를 실행하겠습니다. 표 1:

실행 결과 표 2:

ALT+F 1 1 을 눌러 모듈과 입력 프로그램을 삽입하거나 매크로를 기록하여 수정합니다. 만약 VBA 재단이 전혀 없다면, 나는 바이두에게 입문 자습서를 추천한다. WPS 를 사용한다면 다른 똑똑한 것을 찾으세요. 다른 질문이 있으시면 화면을 복사해서 질문하세요.