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

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

조회 수 20169 추천 수 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
번호 분류 제목 날짜 조회 수
26 컴퓨터잡담 excel 2007에서 공동 작업하기 2010.02.12 24148
25 컴퓨터잡담 Excel에서 틀 고정 방법 2010.09.04 18604
24 컴퓨터잡담 EXCEL) 매크로 공부하기 2011.09.25 12280
23 컴퓨터잡담 ExCEL VBA) 파일을 열지않고 값 읽어오기 23 2011.09.25 20214
» 컴퓨터잡담 ExCEL VBA) 중복된 데이터 추출하기 4 2011.09.25 20169
21 컴퓨터잡담 ExCEL VBA) 함수만들기 1 2011.09.25 13943
20 컴퓨터잡담 Excel VBA) 자료모으기 2011.09.28 11903
19 컴퓨터잡담 Excel VBA) 원하는 범위 지정한 뒤 복사하여 붙여넣기 2 2011.10.14 29378
18 컴퓨터잡담 Excel VBA) 엑셀 데이터 범위 찾아내기 1 2011.10.14 15265
17 컴퓨터잡담 Excel VBA) 자주쓰는 함수모음 3 2011.10.17 21649
16 컴퓨터잡담 eXCEL VBA)엑셀파일 열지않고 내용 불러오기 3 2011.10.23 30512
15 컴퓨터잡담 Excel VBA)OpenDatabase 방법 [Excel 2003의 VBA 언어 참조] 3 2011.10.23 13884
14 컴퓨터잡담 Excel VBA) Delete Column Excel VBA - 칼럼 지우기 2011.10.23 16349
13 컴퓨터잡담 Excel VBA) DAO를 이용하여 엑셀문서 열지않고 데이타 가져오기 3 8 2011.10.23 18239
12 컴퓨터잡담 Excel VBA (1): 셀 선택 및 변수 및 비활성시트 컨트롤하기 3 2011.10.24 24995
11 컴퓨터잡담 Excel VBA) 선택값에 따라 결과값 전달하기 CASE문 1 4 2011.10.25 14747
10 컴퓨터잡담 Excel VBA) 파일 이름에 따라 이미지 출력 4 2011.11.25 16207
9 Excel Excel) 엑셀 콤보박스 대화상자 목록지정하기 2011.12.21 29390
8 Excel Excel Vba) 셀의 행, 열(column, row) 주소 알아내기 또는 삽입하기 더불어 제어하기 2012.01.05 42946
7 Excel Excel Vba) 현재 셀에서 한줄내림 (activecell.offset(1,0).Select) 3 2012.01.05 30982
Board Pagination Prev 1 2 Next
/ 2

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


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

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

설치 취소