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

Вход

Регистрация

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

 

= Мир MS Excel/Удалить дублирующиеся строки в ячейках одного столбца - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить дублирующиеся строки в ячейках одного столбца (Макросы/Sub)
Удалить дублирующиеся строки в ячейках одного столбца
pashatank Дата: Четверг, 16.08.2018, 08:30 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Здравствуйте! Подскажите пожалуйста можно ли макросом удалить одинаковые строчки в ячейках одного столбца?
Пример:

На примере в двух ячейках есть дубли строк, нужно от них избавиться
 
Ответить
СообщениеЗдравствуйте! Подскажите пожалуйста можно ли макросом удалить одинаковые строчки в ячейках одного столбца?
Пример:

На примере в двух ячейках есть дубли строк, нужно от них избавиться
Автор - pashatank
Дата добавления - 16.08.2018 в 08:30
sboy Дата: Четверг, 16.08.2018, 09:21 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Макросом можно. Но проще штатным средством, Выделить столбец и нажать удалить дубликаты
К сообщению приложен файл: 9668090.jpg (32.6 Kb)

Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Макросом можно. Но проще штатным средством, Выделить столбец и нажать удалить дубликаты
Автор - sboy
Дата добавления - 16.08.2018 в 09:21
pashatank Дата: Четверг, 16.08.2018, 10:07 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Нет, не подходит, штатно к сожалению удаляет только всю строку, а мне нужно почистить повторяющиеся строки в самих ячейках по всему столбцу
 
Ответить
СообщениеНет, не подходит, штатно к сожалению удаляет только всю строку, а мне нужно почистить повторяющиеся строки в самих ячейках по всему столбцу
Автор - pashatank
Дата добавления - 16.08.2018 в 10:07
StoTisteg Дата: Четверг, 16.08.2018, 10:09 | Сообщение № 4
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Тогда файлик приложите, что ли...

Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеТогда файлик приложите, что ли...
Автор - StoTisteg
Дата добавления - 16.08.2018 в 10:09
pashatank Дата: Четверг, 16.08.2018, 10:18 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
Да конечно, вот пожалуйста
К сообщению приложен файл: _Microsoft_Exce.xlsx (8.9 Kb)


Сообщение отредактировал pashatank - Четверг, 16.08.2018, 10:19
 
Ответить
СообщениеДа конечно, вот пожалуйста
Автор - pashatank
Дата добавления - 16.08.2018 в 10:18
pashatank Дата: Четверг, 16.08.2018, 10:22 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
ура нашел!
[vba]
Код
Sub uuu()
    For Each cell In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        With CreateObject("Scripting.Dictionary")
            For Each el In Split(cell, Chr(10))
                .Item(el) = ""
            Next
            cell.Value = Join(.Keys, Chr(10))
        End With
    Next
End Sub
[/vba]
 
Ответить
Сообщениеура нашел!
[vba]
Код
Sub uuu()
    For Each cell In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        With CreateObject("Scripting.Dictionary")
            For Each el In Split(cell, Chr(10))
                .Item(el) = ""
            Next
            cell.Value = Join(.Keys, Chr(10))
        End With
    Next
End Sub
[/vba]
Автор - pashatank
Дата добавления - 16.08.2018 в 10:22
pashatank Дата: Четверг, 16.08.2018, 10:26 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
теперь другой вопрос, можно ли удалить опять же строки именно в ячейках по значению, в которых присутствует ---
 
Ответить
Сообщениетеперь другой вопрос, можно ли удалить опять же строки именно в ячейках по значению, в которых присутствует ---
Автор - pashatank
Дата добавления - 16.08.2018 в 10:26
_Boroda_ Дата: Четверг, 16.08.2018, 10:32 | Сообщение № 8
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16674
Репутация: 6479 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
pashatank, Не, я понимаю, что танк, да, машина такая, это как носорог - зрение у него не очень, но с его весом это не его проблемы.
Однако все же прочитайте Правила форума. Особенно внимательно пункты 4 и 5q

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщениеpashatank, Не, я понимаю, что танк, да, машина такая, это как носорог - зрение у него не очень, но с его весом это не его проблемы.
Однако все же прочитайте Правила форума. Особенно внимательно пункты 4 и 5q
Автор - _Boroda_
Дата добавления - 16.08.2018 в 10:32
pashatank Дата: Четверг, 16.08.2018, 10:44 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 58
Репутация: 0 ±
Замечаний: 40% ±

Excel 2010
виноват, пока башню развернешь в сторону правил, сожрать могут
но исправлюсь, хотя вроде уже обещал
 
Ответить
Сообщениевиноват, пока башню развернешь в сторону правил, сожрать могут
но исправлюсь, хотя вроде уже обещал
Автор - pashatank
Дата добавления - 16.08.2018 в 10:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить дублирующиеся строки в ячейках одного столбца (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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