Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как удалить дубль и всю строку его содержащую? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как удалить дубль и всю строку его содержащую? (Формулы)
Как удалить дубль и всю строку его содержащую?
mixail77 Дата: Четверг, 23.01.2014, 02:05 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Здравствуйте.

Столкнулся с непростой для меня задачей.

В документе 4 колонки: A,B,C,D.

Необходимо почистить лист от дублированных значений в колонке “C”. При этом чтобы удалился не только дубль, но и вся строка его содержащая.

В исходном документе - 14544 строки, уникальных значений в колонке “C” - 5779.

В итоге должно остаться 5779 строк, данные в соседних колонках для уникальных значение “C” должны остаться в исходном состоянии.

Что пробовал:

Использовал расширенный фильтр – почистил “С” на дубли, перенес уникальные значения в другую колонку. Но не удается перенести строку полностью.

Использовал формулу - =СУММПРОИЗВ(--($C$2:$C$14544=C2)) но к сожалению тоже несколько не тот результат.

Ссылка на файл: http://yadi.sk/d/lErCr5rJGZHcS

Прошу вашей помощи.

Спасибо.
 
Ответить
СообщениеЗдравствуйте.

Столкнулся с непростой для меня задачей.

В документе 4 колонки: A,B,C,D.

Необходимо почистить лист от дублированных значений в колонке “C”. При этом чтобы удалился не только дубль, но и вся строка его содержащая.

В исходном документе - 14544 строки, уникальных значений в колонке “C” - 5779.

В итоге должно остаться 5779 строк, данные в соседних колонках для уникальных значение “C” должны остаться в исходном состоянии.

Что пробовал:

Использовал расширенный фильтр – почистил “С” на дубли, перенес уникальные значения в другую колонку. Но не удается перенести строку полностью.

Использовал формулу - =СУММПРОИЗВ(--($C$2:$C$14544=C2)) но к сожалению тоже несколько не тот результат.

Ссылка на файл: http://yadi.sk/d/lErCr5rJGZHcS

Прошу вашей помощи.

Спасибо.
Автор - mixail77
Дата добавления - 23.01.2014 в 02:05
KuklP Дата: Четверг, 23.01.2014, 05:43 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
[vba]
Код
Public Sub www()
     Dim i&, a, n&, j&
     With CreateObject("scripting.dictionary")
         a = [a1].CurrentRegion.Value
         For i = 1 To UBound(a)
             If Not .Exists(a(i, 3)) Then
                 .Item(a(i, 3)) = "": n = n + 1
                 For j = 1 To 4: a(n, j) = a(i, j): Next
             End If
         Next
         [g1].Resize(n, 4) = a
     End With
End Sub
[/vba]

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение[vba]
Код
Public Sub www()
     Dim i&, a, n&, j&
     With CreateObject("scripting.dictionary")
         a = [a1].CurrentRegion.Value
         For i = 1 To UBound(a)
             If Not .Exists(a(i, 3)) Then
                 .Item(a(i, 3)) = "": n = n + 1
                 For j = 1 To 4: a(n, j) = a(i, j): Next
             End If
         Next
         [g1].Resize(n, 4) = a
     End With
End Sub
[/vba]
Автор - KuklP
Дата добавления - 23.01.2014 в 05:43
mixail77 Дата: Пятница, 24.01.2014, 00:22 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Огромное вам спасибо, KuklP.
 
Ответить
СообщениеОгромное вам спасибо, KuklP.
Автор - mixail77
Дата добавления - 24.01.2014 в 00:22
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как удалить дубль и всю строку его содержащую? (Формулы)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!