중복 제거된 Vba 사전

예를 들어, 다음 그림과 같은 테이블이 있습니다.

A 열의 이름을 체크 아웃한 후 중복 값을 삭제하고 c 열로 출력해야 합니다 .....

1: 개발 도구 -visual basic 을 클릭합니다. 시트1을 선택하고 다음 코드를 입력합니다.

복사할 하위 이름 ()

Dim jgArr( 1 끝 100)

Zz = 0

용지 ("용지 1"). 활동을 하다

Set ZD = createobject ("scripting.dictionary")

Hh = 2

Do While 셀 (hh,1) < & gt ""

Zd.exists 가 아닌 경우 (셀 (hh, 1). 텍스트) 그런 다음

Zd. 셀 추가 (hh, 1). 텍스트, ZZ

Zz = ZZ+1

JgArr(ZZ)= 셀 (hh, 1) 입니다. 텍스트

만약 ... 끝날거야

Hh = hh+1

고리

결과를 출력합니다

범위 ("c2:c 100000"). 내용을 지우다

I = 1 to ZZ 의 경우

Cells(2+I- 1, 3)= jgArr(I)

다음으로 저는

끝단 접합

2 단계: 매크로를 클릭하고 중복 매크로 삭제를 선택합니다. 그림과 같이:

실행을 클릭하면 결과는 다음 그림과 같습니다.