Skip to content
컴퓨터잡담
2011.09.25 23:31

ExCEL VBA) 중복된 데이터 추출하기

조회 수 20196 추천 수 0 댓글 0
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄
?

단축키

Prev이전 문서

Next다음 문서

크게 작게 위로 아래로 댓글로 가기 인쇄

ExCEL VBA) 중복된 데이터 추출하기

 

Sub ExtractOneItem()
 Dim rngAll As Range, rngCell As Range
 Dim rngOut As Range
 Dim X As New Collection
 Dim varItem
 Dim r As Integer
   
    Set rngAll = Sheets("지정시트").Columns(3).SpecialCells(xlTextValues)
    Set rngOut = ActiveCell
   
    On Error Resume Next
     
   For Each rngCell In rngAll
        X.Add rngCell.Value, CStr(rngCell.Value)
    Next rngCell
   
    For Each varItem In X
        rngOut.Offset(r, 0) = varItem
       r = r + 1
    Next varItem
End Sub

 

로그인 후 댓글쓰기가 가능합니다.

?

List of Articles
번호 분류 제목 날짜 조회 수
617 컴퓨터잡담 삼성, LG 여! 스마트폰의 창작기술로 아이폰을 점령하라! 2011.09.03 3642
616 컴퓨터잡담 [윈도우proxy server]프록시 서버 구축하기 file 2011.09.06 14201
615 컴퓨터잡담 [윈도우7] 이 컴퓨터는 정품 Windows를 사용하고 있지 않습니다 해결방법 1 2011.09.12 12540
614 컴퓨터잡담 툴바제작사이트 1 2011.09.15 4055
613 컴퓨터잡담 안드로이드 어플 쉽게 만들기 2011.09.15 4101
612 컴퓨터잡담 DLL Injection - SetWindowsHookEx()함수 이용방법 1 2011.09.15 6512
611 컴퓨터잡담 VBA를 이용한 엑셀 프로그래밍 1 2011.09.23 21508
610 컴퓨터잡담 EXCEL) 매크로 공부하기 2011.09.25 12280
609 컴퓨터잡담 ExCEL VBA) 파일을 열지않고 값 읽어오기 23 2011.09.25 20215
» 컴퓨터잡담 ExCEL VBA) 중복된 데이터 추출하기 4 2011.09.25 20196
607 컴퓨터잡담 ExCEL VBA) 함수만들기 1 2011.09.25 13955
606 컴퓨터잡담 Excel VBA) 자료모으기 2011.09.28 11903
605 컴퓨터잡담 autohotkey - 변수리스트(Variables and Expressions) 모음 2011.09.30 11830
604 컴퓨터잡담 엑셀 VBA 제어문의 종류 3 2011.10.04 10508
603 컴퓨터잡담 VBA - 시트/셀, 엑셀 값만 복사하기! (VBA을 이용한 복사영역 조절) 2011.10.04 31413
602 컴퓨터잡담 AHK_L) SysListView321 컨트롤 내용 추출하기 2011.10.07 9893
601 컴퓨터잡담 DLL View dll 파일관리 및 정보확인 프로그램 file 2011.10.10 4379
600 컴퓨터잡담 엑셀)문자데이터를 날짜 및 시간으로 변경하는 방법(함수) 2011.10.11 6953
599 컴퓨터잡담 Ahk Standard Library Collection, 2010 Sep (+Gui) ~ Libs: 100 3 2011.10.11 14189
598 컴퓨터잡담 AHK & my Address of Pointer and my Offset 2011.10.11 13183
Board Pagination Prev 1 ... 14 15 16 17 18 ... 46 Next
/ 46

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


이 PC에는 나눔글꼴이 설치되어 있지 않습니다.

이 사이트를 나눔글꼴로 보기 위해서는
나눔글꼴을 설치해야 합니다.

설치 취소