Excel에서 여러 열의 중복 데이터를 삭제하는 방법은 무엇입니까?

Question

표는 각 항목의 키워드를 나타냅니다. 키워드는 각 항목의 중복 항목을 가지고 하나의 키워드는 하나의 셀에 배치되며, 다른 항목은 다른 수의 키워드를 가질 수 있습니다. Excel에서 각 항목의 중복을 어떻게 삭제해야합니까? 예를 들어

:
항목 키워드
A -> 123 234 456 123 234
B ->

중복 키워드를 삭제 한 후 23 456 23 567

, 그것이 있어야 :
항목 키워드
A -> 123 456 234
B -> 23 456 567

Answer 1

각 열에 키워드가 포함된다고 가정하면 설정 가능한 범위의 행으로 넘어 가서 r 해당 행에 두 번 이상 나타나는 모든 키워드를 제거하십시오.

Sub DeleteDuplicateKeywords() 

Dim rng As Range 
Dim r As Long 'row iterator 
Dim rowRng As Range ' a separate range for each ROW in rng. 
Dim c As Long 'column iterator 
Dim sKeyword As String 
Dim bReview As Boolean 

bReview = MsgBox("Do you want to preview which cells will be deleted?", vbYesNo) 

Set rng = Range("B13:E18") '<-- change this as necessary for your requirements. 

For r = 1 To rng.Rows.Count 'iterate over each ROW in the range 

    Set rowRng = rng.Rows(r) 

    For c = rowRng.Columns.Count To 1 Step -1 'iterate backwards over the columns, ignoring the first column. 

     sKeyword = rowRng.Cells(c).Value 'assign the cell value to a variable 

     'Check to see if this keyword exists more than once in this row 
     If Application.WorksheetFunction.CountIf(rowRng, sKeyword) > 1 Then 
      'if it does, then delete it. 
      If bReview Then 
       rowRng.Cells(c).Interior.ColorIndex = 39 
      Else: 
       rowRng.Cells(c).Delete Shift:=xlToLeft 
      End If 
     End If 
    Next 
Next 

End Sub