Убрать повторы при условии дополнительных критериев

Старая форма входа

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

Ben

Дата: Среда, 20.02.2013, 18:47 | Сообщение № 1

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

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

Сообщений: 14

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

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

Добрый день!

Столкнулся с решением проблемы. Заключается в следующем, в данном файле необходимо убрать повторяющиеся строки, но при условии, если в столбце "Ответ" есть какое либо значение, кроме пустого, даже если оно и повторяется, необходимо что бы оно не удалялось.

По данной теме перечитал множество информации на данном сайте и не только, но сделать такое исключение не получается. Подскажите, может кто то сталкивался с чем то подобным.

За ранее спасибо за ответ!

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

Сообщение отредактировал Ben - Среда, 20.02.2013, 18:49

Ответить

Ben

Дата: Четверг, 21.02.2013, 17:39 | Сообщение № 2

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

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

Сообщений: 14

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

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

Ребята, если возможно неправильно или непонятно выразился, то извините. С данными задачами столкнулся первый раз.

Ответить

Michael_S

Дата: Четверг, 21.02.2013, 17:50 | Сообщение № 3

Группа: Друзья

Ранг: Старожил

Сообщений: 2012

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

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

Excel2016

Такой вариант пойдет? (2010/13)

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

Сообщение отредактировал Michael_S - Четверг, 21.02.2013, 17:51

Ответить

Pelena

Дата: Четверг, 21.02.2013, 17:51 | Сообщение № 4

Группа: Админы

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

Сообщений: 19405

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

Замечаний: ±

Excel 365 & Mac Excel

А может подойдёт такой способ:
С помощью фильтра оставляем только строчки с пустыми ячейками в столбце ОТВЕТ, выделяем табличку и используем инструмент УДАЛИТЬ ДУБЛИКАТЫ

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

ikki

Дата: Четверг, 21.02.2013, 18:04 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

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

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

Excel 2003, 2010

вариант
(неправильный, удалил.
правильный - дальше в теме)

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Сообщение отредактировал ikki - Четверг, 21.02.2013, 18:42

Ответить

Ben

Дата: Четверг, 21.02.2013, 18:34 | Сообщение № 6

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

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

Сообщений: 14

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

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

Всем спасибо за помощь. Почти получилось.
Ikki, макрос работает отлично и быстро, но в столбце "Ответ" все же удаляет данные, а они в данном случае очень важны(

Ответить

ikki

Дата: Четверг, 21.02.2013, 18:43 | Сообщение № 7

Группа: Друзья

Ранг: Старожил

Сообщений: 1906

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

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

Excel 2003, 2010

Ben, спасибо за быстрое тестирование.
прошу прощения за ошибку в коде.
правильно так:
[vba]

Код

Sub t()
      Dim a(), g(), d As Object, i&, lr&, s$
      lr = Cells(Rows.Count, 1).End(xlUp).Row
      a = Range([a2], Cells(lr, "f")).Value
      ReDim g(1 To UBound(a), 1 To 1)
      Set d = CreateObject("scripting.dictionary")
      For i = 1 To UBound(a)
          If CStr(a(i, 3)) = "" Then
              s = Join(Array(a(i, 1), a(i, 2), a(i, 4), a(i, 5), a(i, 6)), "|")
              If d.exists(s) Then g(i, 1) = 1 Else d.Item(s) = 0&
          End If
      Next
      [g2].Resize(UBound(a)) = g
      Range([g2], Cells(lr, "g")).ColumnDifferences([g2]).EntireRow.Delete
End Sub

[/vba]

помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki

Ответить

Ben

Дата: Четверг, 21.02.2013, 18:59 | Сообщение № 8

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

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

Сообщений: 14

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

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

ikki, Спасибо большое, сейчас все работает отлично!!!

Ответить

Убрать повторы при условии дополнительных критериев

Страница 1 из 1
1