는 어떻게 다음과 같은 엑셀 데이터가 이러한 경우

Question

에 엑셀 행 데이터를 삭제 둘 중 하나만 갖고 싶습니다. 어떻게 들으, 다른 하나를 제거

Answer 1

내가 테스트하고 다음과 같이 코드를 수정할 수 :

Option Explicit 

Sub MAIN() 
    Dim dataRng As Range, col As Range, cell As Range 

    With Worksheets("myWorksheetName") '<--| change "myWorksheetName" to your actual worksheet name 
     With .UsedRange 
      Set dataRng = .Cells 
      With .Offset(1, .Columns.Count + 1).Resize(.Columns.Count, .Rows.Count) 
       .Value = Application.Transpose(dataRng.Value) 
       For Each col In .Columns 
        col.Sort key1:=col.Cells(1, 1), order1:=xlAscending, Header:=xlNo 
        col.Cells(1, 1).Offset(-1) = Replace("|" & Join(Application.Transpose(col.Value), "|") & "|", "||", "") 
       Next col 

       For Each cell In .Rows(1).Offset(-1, 1).Resize(, .Columns.Count - 1).Cells 
        If WorksheetFunction.CountIf(.Rows(1).Offset(-1).Resize(, cell.Column - .Columns(1).Column), cell.Value) > 0 Then .Offset(, -1).Cells(cell.Column - .Columns(1).Column, 1) = 1 
       Next cell 
       .Offset(-1).Resize(.Rows.Count + 1).ClearContents 
      End With 

      With .Resize(, .Columns.Count + 1) 
       .AutoFilter Field:=.Columns.Count, Criteria1:=1 
       .Resize(, 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete 
      End With 
     End With 
    End With 
End Sub