VBA 를 사용하여 테이블에서 중복 데이터 행을 제거하고 그 중 하나만 남기는 방법.

사전을 사용하면 중복 항목을 쉽고 빠르게 삭제할 수 있습니다. 코드는 다음과 같습니다.

부사장관 ()

Set DIC = createobject(“scripting ". DICtionary \ ") \" 사전 객체를 만들고 DIC 변수에 지정합니다. 이것은' 사후 바인딩' 이라는 가장 일반적으로 사용되는 코드입니다

I = 범위 ("B65536") 의 경우. 끝내기 (3). Row to1step-1'b 열의 마지막 행부터 첫 번째 행까지 감소, 첫 번째 행부터 마지막 행까지 증분하면 행 삭제로 인해 많은 행이 생략되고 중복 제거 효과가 나타나지 않습니다.

DIC 가 있는 경우. 존재함 (셀 (I, "b"). 값) b 열의 데이터가 사전에 이미 있는 경우 (즉, 중복됨).

줄 (하나). 삭제는 이 행만 삭제합니다.

기타

Dic (세포 (I "b") 입니다. Value) ""그렇지 않으면 b 열의 데이터를 사전에 넣습니다.

만약 ... 끝날거야

다음으로 저는

끝단 접합