강조 열에 복제가 있고 열 T에 같은 시간 값이 필요합니다.

Question

열 A에 중복 값이있는 경우 Excel에서와 마찬가지로 True = False가 표시되는 코드를 작성했습니다. A1 = A2 우리는

내가 마지막 행을 찾는 방법 확실하지 오전, 그래서 난 T9000의 범위를 코딩,하지만 T3500, 또는 때때로 T15000까지 데이터가있을 수 A.

에 데이터가 마지막 행까지.

Range("A1:A5000").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes 
ActiveCell.FormulaR1C1 = "Dup" 
Range("T2").Select 
ActiveCell.FormulaR1C1 = "=R[-1]C[-19]=RC[-19]" 
Range("T3").Select 
Selection.End(xlDown).Select 
Range("S1048576").Select 
Selection.End(xlUp).Select 
Range("T9000").Select 
Range(Selection, Selection.End(xlUp)).Select 
Selection.FillDown 

Answer 1

세포 A1이면 Dup의 위치가 확실하지 않습니까? 나머지 코드는 마지막 행 변수를 사용하여 계약 할 수 있습니다.

lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row 

계약 코드 :

Option Explicit 

Sub FindDups() 

    Dim wb As Workbook 
    Dim wsSource As Worksheet 
    Dim lastRow As Long 

    Set wb = ThisWorkbook      'Variable assignments 
    Set wsSource = wb.Worksheets("Sheet2") 

    lastRow = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row 'find last row by coming from the bottom of the sheet and finding last used cell in column 

    With wsSource 
     .Range("A1").FormulaR1C1 = "Dup" 
     .Range("A1:A" & lastRow).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes 
     .Range("T2:T" & lastRow).FormulaR1C1 = "=IF(RC[-19]=R[-1]C[-19],""Duplicate"", RC[-19])" 
    End With 

End Sub