Удаление одинаковых текстов в ячейках

Страница 1 из 1 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Удаление одинаковых текстов в ячейках (Формулы/Formulas)

Dadojon

Дата: Понедельник, 10.09.2018, 19:22 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 16

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

В одном листе сформирован список ФИО. Имеется несколько одинаковых повторяющихся ФИО. Как использовать формулу для удаления повторяющих ФИО более одно. Пример в приложении. PS: Данный список в листе более 23000 строк.

К сообщению приложен файл: 2605494.xlsx(9.8 Kb)

Ответить

_Boroda_

Дата: Понедельник, 10.09.2018, 19:33 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 13913

Репутация: 5632 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Думаю, что проще всего использовать сводную таблицу
Или Данные - Удалить дубликаты

К сообщению приложен файл: 2605494_1.xlsx(13.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

sv2014

Дата: Понедельник, 10.09.2018, 19:56 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 226

Репутация: 61 ±

Замечаний: 0% ±

Excel 2013

Dadojon, вариант формулы массива в столбце D или E (с сортировкой в обратном порядке)

[vba]

Код

=ЕСЛИОШИБКА(ИНДЕКС($B:$B;АГРЕГАТ(15;6;СТРОКА($B$2:$B$100)/(ПОИСКПОЗ($B$2:$B$100;$B:$B;0)=СТРОКА($B$2:$B$100));СТРОКА($B1)));"")

[/vba]

К сообщению приложен файл: example_11_09_2.xls(27.5 Kb)

Сообщение отредактировал sv2014 - Понедельник, 10.09.2018, 21:26

Ответить

ASWP

Дата: Понедельник, 10.09.2018, 21:10 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 124

Репутация: 19 ±

Замечаний: 0% ±

Excel 2007

Вариант макросом
[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

[/vba]

К сообщению приложен файл: 26054944-1-.xlsb(15.7 Kb)

я знаю что ничего не знаю, но другие не знают и этого

Сообщение отредактировал ASWP - Понедельник, 10.09.2018, 22:24

Ответить

sv2014

Дата: Понедельник, 10.09.2018, 21:39 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 226

Репутация: 61 ±

Замечаний: 0% ±

Excel 2013

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]