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

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

조회 수 16927 추천 수 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

 

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

?

http://urin79.com

우린친구블로그

sketchbook5, 스케치북5

sketchbook5, 스케치북5

나눔글꼴 설치 안내


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

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

설치 취소