Kod:
Option Explicit
Sub Mukerrer_Kayitları_Temizle()
Dim Alan As Variant, X As Long, Son As Long, SD As Object, Say As Long, Zaman As Double
Application.ScreenUpdating = False
Zaman = Timer
Son = Cells(Rows.Count, 1).End(3).Row
Alan = Range("A2:B" & Son)
Set SD = CreateObject("Scripting.Dictionary")
Range("E2:F" & Rows.Count).ClearContents
ReDim Dizi(1 To 2, 1 To Son)
For X = LBound(Alan) To UBound(Alan)
If Not Len(Alan(X, 1)) = 0 And Not SD.Exists(Alan(X, 1)) Then
SD.Add Alan(X, 1), Nothing
Say = Say + 1
Dizi(1, Say) = Alan(X, 1)
Dizi(2, Say) = Alan(X, 2)
End If
Next
If Say > 0 Then
ReDim Preserve Dizi(1 To 2, 1 To Say)
Cells(2, "E").Resize(Say, 2) = Application.Transpose(Dizi)
Application.ScreenUpdating = True
MsgBox "İşleminiz tamamlanmıştır." & Chr(10) & "İşlem süresi ; " & Format((Timer - Zaman), "0.000") & " Saniye", vbInformation
End If
Application.ScreenUpdating = True
End Sub