Невозможно удалить дубликаты

[chester_chester]

Ребята, помогите понять, почему эксель не удаляет дубликаты. Прикрепляю файл, в столбце которого приведены данные, среди которых есть дубликаты. Вызываю функцию экселя удалить дубликаты - он пишет, что найдено повторяющихся значений столько то, но на практике ничего не удаляет. У кого какие мысли, в чем может быть причина?

[sv2015]

добрый день,у Вас нет дубликатов,протестируйте кнопки test1 и очистка,поэтому макрос test не срабатывает

Код (vb) Выделить Развернуть

Sub test()
    Dim z, t$, i&: z = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
 With CreateObject("scripting.dictionary"): .CompareMode = 1
   For i = 1 To UBound(z): t = z(i, 1): .Item(t) = .Item(t) + 1: Next
   For i = UBound(z) To 1 Step -1
        If .Item(t) > 1 Then Rows(i).Delete
   Next
End With
End Sub

Код (vb) Выделить Развернуть

Sub test1()
    Dim z, t$, i&: z = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
 With CreateObject("scripting.dictionary"): .CompareMode = 1
   For i = 1 To UBound(z): t = z(i, 1) : .Item(t) = .Item(t) + 1 : Next
   Range("K1").Resize(.Count, 2).Value = Application.Transpose(Array(.Keys, .Items))
End With
End Sub