|
|
|
|
|
|
안녕하세요? 항상 많은 도움 받고 가는 직장인입니다.
많은 데이터를 다루고 있는데
3번(몇번) 이상 중복된 값만 남기고
그 이하로 중복되거나 중복 안 된 값을 지우고 싶은데
어떻게 하면 될까요?
값이 만개 이상이라 수작업 하기엔 너무 시간이 오래 걸려
여쭤봅니다.
항상 엑셀 고수님들께 감사드립니다.
==============[태태아빠님 글에 대한 답변입니다]==============
첨부화일 참고하세요.
Sub deleteDataCell()
Dim sht As Worksheet
Dim rData As Range
Dim rX As Range
Dim oList As Object
Set sht = ActiveSheet
Set rData = sht.Range("A1").CurrentRegion.Columns(1)
Set oList = CreateObject("System.Collections.ArrayList")
For Each rX In rData.Cells
If WorksheetFunction.CountIf(rData, rX) >= 3 Then ' 세번이상 중복일 경우
' 리스트 오브젝트에 없을 경우만 라스트 오브젝트에 추가함
If Not oList.Contains(rX.Text) Then oList.Add rX.Text
End If
Next
With sht.Range("C1") ' 기록할 위치
.CurrentRegion.Clear ' 기존값을 지우고
.Resize(oList.Count, 1) = WorksheetFunction.Transpose(oList.ToArray)
End With
End Sub
|
|
[불량 게시물 신고] |
|
|
|
작성일 : 2019-10-17(11:39)
최종수정일 : 2019-10-17(11:39) |
|
|
|
|