Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
удаление повторений
 
#1
13.05.2011 16:35:40
Добрый день. Есть список телефонов в таблице ексель (один телефон - одна строка). Всего 1500 строк, номера вида 89263567890. Как найти и удалить повторяющиеся номера?
 
 
 
#2
13.05.2011 16:46:52
Есть в Excel такая фишка: "удалить дубликаты". Вот ей и пользуйтесь.
 
 
 
#3
13.05.2011 16:51:56
1 макрос  
2 доб столбец с формулой =--(счетесли($начало_$диапазона:ячейка_текущей_строки;ячейка_текущей_строки)>1),автофильтр по доп столбцу: отбор 1, и удаление строк, в которых возвращаемое значение равно 1
 
 
 
#4
13.05.2011 17:03:32
С примером было бы проще.
 
 
 
#5
13.05.2011 17:36:24
Видно примера не будет! Ну тогда можно попробовать так! За макрос говорим ОГРОМНОЕ СПАСИБО УВАЖАЕМЫМ ПЛАНЕТЯНАМ!!!!!! :)
 
 
 
#6
14.05.2011 01:17:54
Спасибо всем, очень помогли.
 
 
 
#7
17.05.2011 17:20:07
Я бы все это в макрос зашил:  
Range("F18:F119").Select  
Range("F18:F119").AdvancedFilter Action:=xlFilterInPlace, Unique:=True  
Sub KillHiddenRows()  
  Dim li As Long  
    Range("А1:А1500").AdvancedFilter Action:=xlFilterInPlace, Unique:=True  
      For li = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count To 1 Step -1  
        If Rows(li).Hidden Or Rows(li).Height = 0 Then Rows(li).Delete  
       Next li  
End Sub  
Вот наверное както так
 
 
 
#8
17.05.2011 17:26:47
Извиняюсь, пара лишних строчек попала в кадр  
выделение диапазона F в данной задаче отсутствует :)
 
 
 
#9
17.05.2011 19:32:27
{quote}{login=Михаил С.}{date=13.05.2011 04:46}{thema=}{post}Есть в Excel такая фишка: "удалить дубликаты". Вот ей и пользуйтесь.{/post}{/quote}  
Подскажите пожалуйста, как именно пользоваться этой штукой, если нужно удалить дубликаты находящиеся не в одном столбце, а в нескольких* столбцах?  
* - под словом нескольких, подразумевается кол-во столбцов от 2 до 5000.
 
 
 
#10
17.05.2011 19:40:06
{quote}{login=lightstar}{date=17.05.2011 07:32}{thema=Re: }{post}  
Подскажите пожалуйста, как именно пользоваться этой штукой, если нужно удалить дубликаты находящиеся не в одном столбце, а в нескольких* столбцах?  
* - под словом нескольких, подразумевается кол-во столбцов от 2 до 5000.{/post}{/quote}  
Есть таблица (массив) с данными. И из неё (из всей таблицы) нужно удалить дубликаты, а не из какого-то конкретного столбца.
 
 
 
#11
17.05.2011 19:42:51
Допустим, дубликаты имеются в столбцах А, В, С. В каком оставлять, в каком удалять? Под удалением подразумевается очистка ячейки?
 
 
 
#12
17.05.2011 20:00:38
Наверное, я свою задачу, при помощи команды «Удалить дубликаты« встроенной в Excel 2007 – не решу. Когда в одном столбце данные с повтором она работает отлично. Но если нужно удалить дубликаты из массива - эта команда не работает.    
 
{quote}{login=Юрий М}{date=17.05.2011 07:42}{thema=}{post}Допустим, дубликаты имеются в столбцах А, В, С. В каком оставлять, в каком удалять? Под удалением подразумевается очистка ячейки?{/post}{/quote}  
 
Удалить дубликаты из всей таблицы/из всего массива. Под удалением подразумевать очистку ячейки.
 
 
 
#13
17.05.2011 20:06:14
lightstar, наверное, Вы не поняли меня. Удалили ДУБЛИКАТЫ, осталось ЕДИНСТВЕННОЕ такое значение. Уже не дубликат. Где его оставлять - ведь оно может быть в разных столбцах.
 
 
 
#14
17.05.2011 20:12:25
{quote}{login=Юрий М}{date=17.05.2011 08:06}{thema=}{post}lightstar, наверное, Вы не поняли меня. Удалили ДУБЛИКАТЫ, осталось ЕДИНСТВЕННОЕ такое значение. Уже не дубликат. Где его оставлять - ведь оно может быть в разных столбцах.{/post}{/quote}Его оставить в любом удобном месте.
 
 
 
#15
17.05.2011 21:49:05
Попробуйте так.
 
 
 
#16
17.05.2011 22:47:31
{quote}{login=Юрий М}{date=17.05.2011 09:49}{thema=}{post}Попробуйте так.{/post}{/quote}  
Благодарю Вас. Как раз то, что нужно!  
А подскажите пожалуйста, вы вот так:  
Range(Cells(2, 2), Cells(65, 65))  
задали диапазон.  
А если его потребуется задать таким образом: B2:AG33, то какие именно нужно будет внести изменения в макросе?
 
 
 
#17
17.05.2011 22:54:02
Нет никакой разницы, как записать. Но, если Вам так удобнее, то:  
Set iRng = Range("B2:AG33")
 
 
 
Страницы: 1
Наверх