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

Вход

Регистрация

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

 

= Мир MS Excel/Как удалить дубли ячеек, без смещения данных. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как удалить дубли ячеек, без смещения данных. (Формулы/Formulas)
Как удалить дубли ячеек, без смещения данных.
dbuz Дата: Среда, 30.04.2014, 09:34 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день! Помогите удалить, дубли ячеек, при этом чтобы оставшиеся данные в ячейках остались на своих местах. Как правильно можно это сделать?

удалено администрацией (файл весит 1,75мб)
[moder]Читайте Правила форума
 
Ответить
СообщениеДобрый день! Помогите удалить, дубли ячеек, при этом чтобы оставшиеся данные в ячейках остались на своих местах. Как правильно можно это сделать?

удалено администрацией (файл весит 1,75мб)
[moder]Читайте Правила форума
Автор - dbuz
Дата добавления - 30.04.2014 в 09:34
китин Дата: Среда, 30.04.2014, 10:09 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7031
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
ну,к примеру в соседнем столбце применить СЧЁТЕСЛИ,отсортировть все,что больше 1.потом удалить это все.останутся вместо дублей пустые ячейки

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениену,к примеру в соседнем столбце применить СЧЁТЕСЛИ,отсортировть все,что больше 1.потом удалить это все.останутся вместо дублей пустые ячейки
Автор - китин
Дата добавления - 30.04.2014 в 10:09
dbuz Дата: Среда, 30.04.2014, 10:14 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Цитата китин, 30.04.2014 в 10:09, в сообщении № 2
ну,к примеру в соседнем столбце применить СЧЁТЕСЛИ,отсортировть все,что больше 1.потом удалить это все.останутся вместо дублей пустые ячейки

К сожалению не понял как это сделать
 
Ответить
Сообщение
Цитата китин, 30.04.2014 в 10:09, в сообщении № 2
ну,к примеру в соседнем столбце применить СЧЁТЕСЛИ,отсортировть все,что больше 1.потом удалить это все.останутся вместо дублей пустые ячейки

К сожалению не понял как это сделать
Автор - dbuz
Дата добавления - 30.04.2014 в 10:14
китин Дата: Среда, 30.04.2014, 10:58 | Сообщение № 4
Группа: Модераторы
Ранг: Экселист
Сообщений: 7031
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
ну если убрать дубли в столбце А.в столбце D(он ближайший у вас пустой)пишите формулу
Код
=СЧЁТЕСЛИ($A$2:A2;A2)
и протягиваете до конца.ставите автосортировку на стобец D.ставьте галку на все,что больше 1.ок.в столбце А удаляете все что там будет.снимаете сортировку со столбца D.вуаля

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениену если убрать дубли в столбце А.в столбце D(он ближайший у вас пустой)пишите формулу
Код
=СЧЁТЕСЛИ($A$2:A2;A2)
и протягиваете до конца.ставите автосортировку на стобец D.ставьте галку на все,что больше 1.ок.в столбце А удаляете все что там будет.снимаете сортировку со столбца D.вуаля
Автор - китин
Дата добавления - 30.04.2014 в 10:58
dbuz Дата: Среда, 30.04.2014, 11:02 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Цитата китин, 30.04.2014 в 10:58, в сообщении № 4
ну если убрать дубли в столбце А.в столбце D(он ближайший у вас пустой)пишите формулу

Спасибо, только дубли находятся в соседних столбах. Как в таком случае поступить?
 
Ответить
Сообщение
Цитата китин, 30.04.2014 в 10:58, в сообщении № 4
ну если убрать дубли в столбце А.в столбце D(он ближайший у вас пустой)пишите формулу

Спасибо, только дубли находятся в соседних столбах. Как в таком случае поступить?
Автор - dbuz
Дата добавления - 30.04.2014 в 11:02
китин Дата: Среда, 30.04.2014, 11:06 | Сообщение № 6
Группа: Модераторы
Ранг: Экселист
Сообщений: 7031
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
ну тады примерчик в студию.оставьте строк 50,и выкладывайте на форум.и пояснялку откуда что удалять

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениену тады примерчик в студию.оставьте строк 50,и выкладывайте на форум.и пояснялку откуда что удалять
Автор - китин
Дата добавления - 30.04.2014 в 11:06
DJ_Marker_MC Дата: Среда, 30.04.2014, 11:21 | Сообщение № 7
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
удалил сообщение.... ответ лишь после того как топикстартер исправится.


Сообщение отредактировал DJ_Marker_MC - Среда, 30.04.2014, 11:22
 
Ответить
Сообщениеудалил сообщение.... ответ лишь после того как топикстартер исправится.
Автор - DJ_Marker_MC
Дата добавления - 30.04.2014 в 11:21
dbuz Дата: Среда, 30.04.2014, 11:31 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Например в строке 95 столбцов В и С есть совпадающие значения, а всего в документе более 18 000 строк и таких повторяющихся значений достаточно много, могут повторятся и все значения одной строки и отдельно в столбце A и B.

Нужно чтобы по всей таблице не было дублей, но при удалении дублей, оставшиеся значения не смещались из своих ячеек.
К сообщению приложен файл: 5378082.xlsx (11.1 Kb)
 
Ответить
СообщениеНапример в строке 95 столбцов В и С есть совпадающие значения, а всего в документе более 18 000 строк и таких повторяющихся значений достаточно много, могут повторятся и все значения одной строки и отдельно в столбце A и B.

Нужно чтобы по всей таблице не было дублей, но при удалении дублей, оставшиеся значения не смещались из своих ячеек.
Автор - dbuz
Дата добавления - 30.04.2014 в 11:31
RAN Дата: Среда, 30.04.2014, 12:42 | Сообщение № 9
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub Мяу()
     Dim arr, i&, j&
     arr = ActiveSheet.UsedRange.Value
     With CreateObject("Scripting.Dictionary")
         For i = 1 To UBound(arr)
             For j = 1 To UBound(arr, 2)
                 If .exists(arr(i, j)) Then
                     arr(i, j) = Empty
                 Else
                     .Item(arr(i, j)) = 1
                 End If
             Next
         Next
     End With
     ActiveSheet.UsedRange = arr
End Sub
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub Мяу()
     Dim arr, i&, j&
     arr = ActiveSheet.UsedRange.Value
     With CreateObject("Scripting.Dictionary")
         For i = 1 To UBound(arr)
             For j = 1 To UBound(arr, 2)
                 If .exists(arr(i, j)) Then
                     arr(i, j) = Empty
                 Else
                     .Item(arr(i, j)) = 1
                 End If
             Next
         Next
     End With
     ActiveSheet.UsedRange = arr
End Sub
[/vba]
Автор - RAN
Дата добавления - 30.04.2014 в 12:42
dbuz Дата: Среда, 30.04.2014, 14:28 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо, макрос работает.

Только я еще один момент упустил, у меня значения повторяются не только в разных столбцах, но и в одном столбце. Например в столбце А на разных строках есть одинаковые значения, которые тоже удалились.
Можно ли как-то переделать макрос, чтобы одинаковые значения искались только по строкам во всех столбцах?
 
Ответить
СообщениеСпасибо, макрос работает.

Только я еще один момент упустил, у меня значения повторяются не только в разных столбцах, но и в одном столбце. Например в столбце А на разных строках есть одинаковые значения, которые тоже удалились.
Можно ли как-то переделать макрос, чтобы одинаковые значения искались только по строкам во всех столбцах?
Автор - dbuz
Дата добавления - 30.04.2014 в 14:28
RAN Дата: Четверг, 01.05.2014, 21:48 | Сообщение № 11
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
Цитата dbuz, 30.04.2014 в 14:28, в сообщении № 10
Можно ли как-то переделать макрос

Можно.
Вполне достаточно из 15 строк кода поменять всего 15.

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение
Цитата dbuz, 30.04.2014 в 14:28, в сообщении № 10
Можно ли как-то переделать макрос

Можно.
Вполне достаточно из 15 строк кода поменять всего 15.
Автор - RAN
Дата добавления - 01.05.2014 в 21:48
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как удалить дубли ячеек, без смещения данных. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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