В одном листе сформирован список ФИО. Имеется несколько одинаковых повторяющихся ФИО. Как использовать формулу для удаления повторяющих ФИО более одно. Пример в приложении. PS: Данный список в листе более 23000 строк.
В одном листе сформирован список ФИО. Имеется несколько одинаковых повторяющихся ФИО. Как использовать формулу для удаления повторяющих ФИО более одно. Пример в приложении. PS: Данный список в листе более 23000 строк.Dadojon
Sub RemoveDuplicates() Cells.Sort Key1:=Range("B2") totalrows = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For Row = totalrows To 2 Step -1 If Cells(Row, 2).Value = Cells(Row - 1, 2).Value Then Rows(Row).Delete End If Next Row Application.ScreenUpdating = True End Sub
[/vba]
Вариант макросом [vba]
Код
Sub RemoveDuplicates() Cells.Sort Key1:=Range("B2") totalrows = ActiveSheet.UsedRange.Rows.Count Application.ScreenUpdating = False For Row = totalrows To 2 Step -1 If Cells(Row, 2).Value = Cells(Row - 1, 2).Value Then Rows(Row).Delete End If Next Row Application.ScreenUpdating = True End Sub
Dadojon, еще вариант макроса,кнопка test,в столбце Q
[vba]
Код
Sub test() Dim i&, z, m&: z = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row).Value With CreateObject("scripting.dictionary"): .CompareMode = 1 For i = 1 To UBound(z) If .exists(z(i, 1)) = False Then m = m + 1: .Item(z(i, 1)) = 0: z(m, 1) = z(i, 1) End If Next Range("K2").Resize(.Count, 1).Value = z End With End Sub
[/vba]
Dadojon, еще вариант макроса,кнопка test,в столбце Q
[vba]
Код
Sub test() Dim i&, z, m&: z = Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row).Value With CreateObject("scripting.dictionary"): .CompareMode = 1 For i = 1 To UBound(z) If .exists(z(i, 1)) = False Then m = m + 1: .Item(z(i, 1)) = 0: z(m, 1) = z(i, 1) End If Next Range("K2").Resize(.Count, 1).Value = z End With End Sub
[offtop]Сам написал макрос, сам его же и покритиковал А чё - когда самому себе вслух (письменно) высказываешь критику, - легче понимаешь что сделал не так! [/offtop]
[offtop]Сам написал макрос, сам его же и покритиковал А чё - когда самому себе вслух (письменно) высказываешь критику, - легче понимаешь что сделал не так! [/offtop]Фомулист