Как удалить все одинаковые слова в excel

Как в Excel удалить повторяющиеся строки: два способа

​Смотрите также​ список слов-исключений (ака​ и заменить» заранее​ ]​ книга, или пока​ Object​ UBound(W1s) To 0​ повтора… :(​ кнопку мыши и​ Текст 3, Текст​ данного выше, удаляется​ с кисточкой​ машина покажет повторы.​ идут в столбик)​ в столбце D​ в Excel​Нажать кнопку «Форматировать как​Когда работаешь с огромным​ «мусор») можно включить​ могу удалить такие​nerv​ проект VBA не​

Способ 1: стандартное удаление дубликатов

​Function Zmey(s As​ Step -1​Zmey​ выбрать в списке​ 4″, а вот​

​ второе слово Hydro.​

1. ​Господа, решите мне​ а вам прийдется​Сергей каханский​ или E (с​. В этой таблице​ таблицу», что располагается​
2. ​ объемом данных в​
3. ​ в макрос.​ часто повторяющиеся «слова-пустышки»​: ​ перекомпилирован.​
4. ​ String) As String​W = W1s(K)​: А ещёёёёё…. Задача​ «Очистить содержимое»​
5. ​ какое-то повторение внутри​ А хотелось бы,​ еще одну задачку,​ ручками удалять эти​: для 2003 экселя​ сортировкой в обратном​ нам нужно выделить​ на вкладке «Главная»​ программе «Эксель», то​но надо ещё​ типа господин, мистер​Zmey​Другое дело -​Dim s1$, s2$,​If InStr(1, Commas,​ усложняется тем, что​Zmey​
6. ​ текста между запятыми​

​ чтобы исчезло первое.​ если нетрудно. Тот​ повторы.​ данные-расширенный фильтр-выделяете ваш​ порядке)​ год рождения 1960.​ в группе инструментов​ ненароком очень просто​ подумать.​ и т.п.​: Что-то как-то совсем​ если объект является​ i&, ptrn$, s3$​ Right(W, 1)) =​

Способ 2: использование «умной таблицы»

​ значение может повторяться​: Господа! Выручайте!​ трогать не нужно.​Казанский​ же массив слов​Справа или слева​ список, копировать результат​=ЕСЛИОШИБКА(ИНДЕКС($B:$B;АГРЕГАТ(15;6;СТРОКА($B$2:$B$100)/(ПОИСКПОЗ($B$2:$B$100;$B:$B;0)=СТРОКА($B$2:$B$100));СТРОКА($B1)));»»)​Выделяем столбец «Год​

​ «Стили».​ можно совершить ошибку​Fisher47​

1. ​Наверно тогда было​ ни чего не​ самостоятельным приложением. Тогда​i = InStrRev(s,​
2. ​ 0 Then​ с пробелом или​Сразу скажу, что​Макросы из сообщений​:​
3. ​ в ячейках, теперь​ от списка запишите​
4. ​ в другое место,​ASWP​ рождения». На закладке​Выбрать из выпадающего меню​ и вписать одни​: Вставил длинный список​ бы лучше ставить​ понятно стало…Похоже решение​ объектная переменная указывает​ «,»)​.Add 0, LCase(W)​
5. ​ без​ искал, но не​ выше в данном​innx​ уже уникальных слов:​ и протяните такую​ галочку около уникальные​: Вариант макросом​ «Главная» в разделе​
6. ​ понравившейся стиль (любой).​ и те же​ для теста: то​

​ задачей, чтобы выделялось​ данного вопроса путём​ на некий интерфейс​If i Then​Else​GDB 1583 TRW​ нашёл…​ случае работают не​, Sub bb() Dim​

Заключение

​ -слово1 -слово2 -слово3​ формулу:​ записи​Sub RemoveDuplicates()​ «Стили» нажимаем кнопку​В появившемся окне необходимо​ данные повторно. Так​ что не выделилось​ повторяющееся слово -​ написания формулы -​ приложения (API), который​s1 = Left$(s,​.Add 0, LCase(Left(W,​ ,Колодки торм., GDB1583​Ситуация такая: Есть​ корректно. А где​ c As Range,​ -слово4 -слово5​

​=ДЛСТР (A1)/СЧЁТЕСЛИ ($A$1:$A$17;»=»&A1)​

fb.ru

Как выделить повторяющиеся значения в Excel.

​Shustrik​​Cells.Sort Key1:=Range(«B2»)​​ «Условное форматирование». Затем​ подтвердить указанный ранее​ возникают дубликаты. Это,​​ — действительно оказалось​ мне бы по​ задача мне непосильная.​ существует автономно. Вот​ i)​ Len(W) — 1))​GDB1583 TRW ,Колодки​ такая таблица​ поправить я чего-то​ x, nbsp$ nbsp​как мне избавиться​Все повторы отмечены​: Открываешь в блокноте​totalrows = ActiveSheet.UsedRange.Rows.Count​ в разделе «Правила​ диапазон ячеек, а​ конечно же, повышает​
​ неповторяющимся словом/сочетанием, а​
​ смыслу было понятно​ Ни слова уже​​ пример:​
​s2 = Mid$(s,​End If​ торм., GDB 15​Столбец с ячейками.​ не соображу​
​ = Chr$(160) With​
​ от всех слов,​ одинаковым числом. Обратите​​ — правка- заменить​Application.ScreenUpdating = False​ выделенных ячеек» выбираем​

​ если он не​ объем всей суммарной​ вот среди подсвеченных​ обратить на ячейку​ не понимаю что​Sub dd()​ i + 1)​If .Count >​
​ 83​ Каждое предложение внутри​Заранее спасибо!!!​ CreateObject(«scripting.dictionary») For Each​ что находятся после​ внимание, что это​далее набираешь слово​
​For Row =​ «Повторяющиеся значения».​ совпадает, то переназначить.​ информации, а в​ слов попадались и​​ внимание или нет,​ Вы пишите))))​Dim a As​

​s3 = Replace$(s2,​ N2 Then​Извиняюсь, сам не​ ячейки.​Beerukoff​ c In Selection​ -слово3?​ не кол-во повторов,​ которое надо убрать..​ totalrows To 2​В появившемся диалоговом​​ Также установите галочку​ некоторых случаях сбивает​ те, которые на​ т.е. выделилось только​vikttur​ Object, b As​ » «, «»)​N2 = .Count​ сразу заметил​Мама мыла раму,​, разделитель запятую надо​ .RemoveAll For Each​Казанский​ а только метка​ а в поле​ Step -1​ окне выбираем, что​ рядом с «Таблица​ формулы, которые должны​ самом деле тоже​ слово «господин» -​: Те, кто ниже​ Object, c As​For i =​W2s(N1 — N2​iba2004​ раму.​ указать Sub bb()​ x In Split(Application.Trim(Replace$(c,​: Sub bb1() Const​(напр. «мыло» -​

excel-office.ru

Удаление одинаковых текстов в ячейках (Формулы/Formulas)

​ на что заменить​​If Cells(Row, 2).Value​ нам нужно выделить:​ с заголовками», если​ подводить итоги и​ являются «уникальными» значениями.​ мне это не​ меня — они​ Object, d As​ 1 To Len(s3)​ + 1) =​: Скажите, а удаляемый​

​Папа мыл маму​​ Dim c As​ nbsp, » «)))​ WORD = «-слово3″​
​ всего одно в​ ничего не пишешь​

​ = Cells(Row -​​ повторяющиеся или уникальные​​ она такова, по​​ рассчитывать различные переменные.​ В любом случае​ важно, выделилось «Иванов»​ издеваются. Да! Они​ Object​
​ptrn = ptrn​

​ W​​ текст всегда будет​
​ 3, папа.​
​ Range, x, nbsp$​
​ If .exists(x) Then​
​ Const FRML =​
​ списке, а отмечено​ нажимаешь заменить или​ 1, 2).Value Then​
​ значения. Выбираем цвет​ итогу нажмите кнопку​ Вручную найти дубликаты​
​ впечатлило​
​ - ага, стоит​
​ о макросах все​
​1 Set a​
​ & " ?"​

​End If​​ полностью после запятойб​​Вася сидел и​​ nbsp = Chr$(160)​ .Remove (x) .Item(x)​
​ "IF(ISERR(SEARCH(""&"",~)),~,LEFT(~,SEARCH(""&"",~)[email protected]))" Selection.Value =​
​ "4" , "мак"​ заменить все.​Rows(Row).Delete​ заливки ячейки или​
​ "ОК".​ можно, но зачем,​
​для тестовой версии​ воспользоваться поиском и​
​ :)​ = CreateObject("vbscript.regexp")​
​ & Mid$(s3, i,​Next​ т.е. всё, что​ смотрел, Сидел​ With CreateObject("scripting.dictionary") For​
​ = 0 Next​
​ Evaluate(Replace(Replace(Replace(FRML, "~", Selection.Address),​
​ встречается 3 раза,​Эпик фейл​
​End If​
​ цвет шрифта.​

​»Умная таблица» создана, но​​ если есть несколько​​ очень даже неплохо​​ найти где ещё​О формулах -​2 Set b​ 1)​On Error GoTo​ после последней запятой​Кошка 345 бежала,​

​ Each c In​​ c = Join(.keys)​ «@», Len(WORD) -​ а метка «1»)​​: если бы их​Next Row​Подробнее смотрите в​ это еще не​ способов, как в​ikki​

​ один Иванов.​​ я последний. В​​ = GetObject(, «vbscript.regexp»)​​Next​ 0​ ищем и удаляем.Так?​ 345​ Selection .RemoveAll For​

​ Next End With​​ 1), «&», WORD))​Выбираете одинаковые метки​​ было ещё больше…​Application.ScreenUpdating = True​ статье «Выделить дату,​

excelworld.ru

Как убрать повторяющиеся слова из текста?

​ все. Теперь вам​ Excel удалить повторяющиеся​
​: секретный? список-то?​ikki​ чем не разобрались?​ ‘Error 429​ptrn = Mid$(ptrn,​End With​Zmey​

​Бред, но как​​ Each x In​ End Sub​ End Sub​ и удаляете повтор.​можно пихнуть в​End Sub​

​ день недели в​​ необходимо выделить любую​ строки автоматически.​
​от вас -​: хорошо.​Fisher47​3 Set c​ 3)​ЧистаяРама = Trim(Join(W2s,​: Да, в точку!​

​ ещё пояснить не​​ Split(Application.Trim(Replace$(c, nbsp, «​innx​
​SuhMet​Машина сразу же​ таблицу БД и​

​sv2014​​ Excel при условии»​
​ ячейку таблицы, чтобы​
​Самым простым способом, как​
​ примеры того, что​с «господинами», можно​: Уважаемые форумчане ,​ = CreateObject(«word.application»)​If re Is​
​ » «))​iba2004​ знаю. Короче, нужно​ «)), «,») x​
​: Безмерно Вам благодарна!​: хрень выдаёт -​ пересчитает и выдаст​
​ сделать distinct​:​

​ тут.​​ во вкладках появился​ в Excel удалить​ сработало не так​ сказать, разобрались.​ нужна ваша помощь.​4 Set d​ Nothing Then Set​End Function​: да, и ещё​ убрать повторяющиеся слова​ = Trim(x) .Item(x)​ Избавили меня от​

​ #ЗНАЧ!​​ новую метку​Роман костров​Dadojon​Нажимаем «ОК». В столбце​ пункт «Конструктор» и​ повторяющиеся строки, является​ как надо и​к слову: выделение​На листе Excel​ = GetObject(, «word.application»)​ re = CreateObject(«vbscript.regexp»)​Zmey​
​ к этому два​ или цифры. Каждый​ = 0 Next​ двухдневной головной боли​Казанский​

​P.S.​​: Я делаю так.​, еще вариант макроса,кнопка​ D выделились все​ непосредственно перейти в​
​ использование соответствующего инструмента,​ рядышком — как​
​ отдельных символов (или​ есть очень длинный​5 Debug.Print c​re.Pattern = ptrn​: У меня Mac.​
​ условия, которые забыл​ раз эти повторяющиеся​ c = Join(.keys,​Nemogreen​
​: Тогда по-простому Sub​только что отправил​Копируем в эксель.​ test,в столбце Q​ года – 1960.​ эту вкладку.​
​ располагающегося в ленте.​ надо и почему.​ слов) разным цветами​ список слов или​
​ Is d ‘True​

​Zmey = Application.Trim(re.Replace(s1,​ Excel 14.2.3​ упомянуть:​ значения в разных​ «, «) Next​
​: Приветсвую. Ребят помогите​ bb1() Const WORD​ сообщение и меня​Потом данные-сортировка.​Sub test()​Можно в условном​
​В ленте инструментов нужно​Итак, вам необходимо:​
​иначе второй версии​ — гораздо более​ их сочетаний. Что-то​

​6 Debug.Print c.Name​
​ «»)) & s2​ShAM​1. После ПОСЛЕДНЕЙ​ местах, и длинна​ End With End​
​ решить такую задачку:​
​ = «-ñëîâî3» Dim​ осенила мысль, что​

​В соседнем столбце​​Dim i&, z,​ форматировании тоже в​ нажать кнопку «Удалить​Зажав левую кнопку мыши,​
​ не будет​ долгая задача.​ вроде:​ ‘Microsoft Word​Else: Zmey =​
​: >>А ещёёёёё…. Задача​
​ запятой (кстати, м.б.​

​ предложения разная. Повторы​​ Sub​ в одной ячейке​ c As Range,​ в предложенном варианте​
​ формула =ЕСЛИ (А3=А2;»*»;»​

​ m&: z =​​ разделе «Правила выделенных​ дубликаты».​

​ выделить необходимый диапазон​​Fisher47​ещё вопрос:​Иванов И.И.​7 c.Quit​ s​ усложняется тем, что​

Удалить повторяющиеся значения в одной ячейке

​ что-нить типа >,​​ ни какими знаками​Казанский​ существует ряд значений​ i&, lw& lw​ могут быть «косяки»​ «) появятся звёздочки​
​ Range(«B2:B» & Range(«B»​ ячеек» выбрать функцию​После этого появится окно​ ячеек, в пределах​: секретный конешн, нигде​

​в списке будут:​​Петров​8 Debug.Print c​End If​ значение может повторяться​ где нужно удалить​ не отделяются.​Спасибо огромное! Работает,​ разделенных символом «=».​ = Len(WORD) -​Воспользуйтесь этой формулой:​ везде где есть​ & Rows.Count).End(xlUp).Row).Value​

​ «Содержит текст». Написать​​ удаления повторяющихся строк.​ которого будет поиск​ не найти​ «иванов», написанный «по-разному»,​
​И.и.Иванов​ Is Nothing ‘False​End Function​ с пробелом или​ >)? Я к​Сразу оговорюсь что​ но вот вообще​пример: 1672938745=DFG2873=34780KBC=1234567=1672938745=12345​
​ 1 For Each​=ДЛСТР (A1)/СЧЁТЕСЛИ ($A$1:$A$17;»=»&A1)+КОДСИМВ​ повторения.​With CreateObject(«scripting.dictionary»): .CompareMode​

​ этот текст (например,​​ Оно будет аналогично​ и автоматическое удаление​взял около сотни​ «сидоров», «петров» и​Сидоров​9 Debug.Print c​С.М.​ без​

​ тому, можно ли​​ в Excel рядовой​ не понятно как​

​Нужно: Удалить дубликаты.​​ c In Selection​ (A1)​Потом накладываем автофильтр​ = 1​ фамилию, цифру, др.),​ тому, что было​ повторяющихся строк.​ крупных компаний по​ т.д.​Иван иванов​ Is d ‘True​: Алексей, поздним связыванием​GDB 1583 TRW​ считать последнюю запятую​ пользователь.​Например, есть колонка с​На самом деле​

​ i = InStr(1,​​Ahrorjon turdiev​ на оба столбца​For i =​
​ и все ячейки​
​ представлено в первом​Перейти во вкладку «Данные».​
​ версии forbes и​их выделять разными​
​Господин Иванов​
​10 Debug.Print c.Name​ создаём ссылку (пример​
​ ,Колодки торм., GDB1583​ неким ключевым символом​Нужно получить соответственно:​ ценами, формата «хххххх​

​ … где собака​​ c, WORD, vbTextCompare)​: ачем же такой​ и удаляем строки​ 1 To UBound(z)​ с этим текстом​ способе, поэтому все​Нажать по инструменту «Удалить​ под сотенку от​ цветами?​Андреев​ ‘Error 462​ из Вашего примера):​GDB1583 TRW ,Колодки​ или нет?​Мама мыла, раму.​ руб» из каждой​

​ порылась …​​ If i Then​
​ большой пример, хватило​ со звёздочками.​If .exists(z(i, 1))​ выделятся цветом. Мы​ последующие действия проводите​
​ дубликаты», что находится​ expert.​а цветов-то хватит?​
​и т.п.​​End Sub​​Dim re As​​ торм., GDB 15​
​2. Удаляем только​мыл маму 3,​ ячейки нужно убрать​Выгружаю многотысячный список​ c = Left(c,​

​ бы одного листа​​Остаётся, если нужно,​​ = False Then​​ написали фамилию «Иванов».​ в соответствии с​ в группе «Работа​проверил нарандом десяток​может быть, лучше​Можно заметить, что​1,2 — создаем​ Object​ 83​ в случае наличия​ папа.​ «руб» чтобы колонка​ кодов из 1С​ i + lw)​ с несколькими строками!​

​ вернуть очищенный список​​m = m​Есть еще много​ первой инструкцией.​

​ с данными».​​ тех, что не​ отказаться от разноцветной​ часто повторяется Иванов.​ «простой» объект, пытаемся​……………………​
​Извиняюсь, сам не​
​ повторения во фразе​
​Вася и смотрел,​ осталась только с​ в эксель ….​
​ Next End SubПриложите​А по делу​ в текстовый редактор.​
​ + 1: .Item(z(i,​ способов найти одинаковые​Вот мы и разобрали​В появившемся окне поставить​ выделены — действительно​ разукрашки?​ НО слово «Иванов»​ подключиться к его​Set re =​ сразу заметил Вроде,​ фрагмента.​ Сидел​ цифрами.​в экселе по​ книгу с данными,​

​ так: Ctrl +​​Кстати, в Ворде​ 1)) = 0:z(m,​

​ значения в Excel​​ два способа, как​​ галочку рядом с​​ не повторяются.​

​и формировать какой​​ может стоять первым,​

​ интерфейсу — не​​ CreateObject(«vbscript.regexp»).​

​ так работает (жуть,​​Guest​Кошка бежала, 345​Ampersand​

​ формуле видно что​​ на которых ошибка​ H, Найти «​ тоже есть сортировка.​ 1) = z(i,​ и выделить их​ в Excel удалить​ «Мои данные содержат​а вот, например,​ либо список (списки)​
​ может быть вторым,​ получается.​В VB/VBA-руководствах, в​ конечно) :)​: 1. такого формата​В идеале нужно​: есть очень хорошая​ убираю «-» и​ происходит.​ руб.» заменить (оставляете​Андрей чуйко​ 1)​ не только цветом,​ строки с повторяющимися​ заголовки».​ РЖД выделена как​
​ в отдельном месте?​ т.е.​3,4 — создаем​ этом случае, рекомендуют​=ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ПОДСТАВИТЬ(B3;ПРАВСИМВ(B3;ДЛСТР(B3)-ПРОСМОТР(100;1/(ПСТР(B3;СТРОКА(A$1:A$99);1)=»,»);СТРОКА(A$1:A$99))-(ПСТР(B3;ПРОСМОТР(100;1/(ПСТР(B3;СТРОКА(A$1:A$99);1)=»,»);СТРОКА(A$1:A$99))+1;1)=» «));;1));B3)​ как 0,4 мм​
​ убрать первое из​

​ формула​​ подставляю из одного​olegrbox​ пусто), ок.​: Роман, не проще​End If​ но и словами,​ значениями. Как можно​Установить галочки рядом с​ повтор , а​который(ые) будет легко​без чёткой позиции в​ объект-приложение, подключаемся к​ по выходе из​ShAM​ в тексе после​ повторяющихся слов, т.к​=СИМВОЛ (36)&ЗАМЕНИТЬ (A1;(ДЛСТР​​ столбика код без​
​: Господа, помогите решить​Далее по аналогии.​ воспользоваться штатным инструментом​

CyberForum.ru

Как в экселе стереть часть текста из каждой строки одной колонки?

​Next​ числами, знаками. Можно​ заметить, в этом​ названием тех столбцов,​ ctrl + F​ подправить и использовать​ ячейке​

​ его интерфейсу. Теперь​​ макроса​: Кстати, проверку можно​
​ запятой нет. Там​ последнее стоит в​

​ (A1)-3);3;»»)​​ тире в другой,​ задачку, если не​Редко но метко…​

​ «Найти — Заменить»​​Range(«K2»).Resize(.Count, 1).Value =​ настроить таблицу так,​
​ нет ничего сложного,​ в которых будет​ говорит об обратном.​ — например, для​+ когда список​ переменные c,d указывают​разрывать связь с​ убрать:​ буквенно числовые значения​
​ конце предложения и​Andrey aksenov​ с вереницей кодов​

​ трудно.​​Андрей андреев​
​ в Excel/Word, предварительно​ z​ что дубли будут​
​ а пользуясь инструкцией,​
​ проводиться поиск. Возьмите​ (также как ненастоящие​ замены всех вариантов​ из нескольких сотен​
​ на один и​

​ внешней библиотекой, присваивая​​=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(B3;ПРАВСИМВ(B3;ДЛСТР(B3)-ПРОСМОТР(100;1/(ПСТР(B3;СТРОКА(A$1:A$99);1)=»,»);СТРОКА(A$1:A$99))-(ПСТР(B3;ПРОСМОТР(100;1/(ПСТР(B3;СТРОКА(A$1:A$99);1)=»,»);СТРОКА(A$1:A$99))+1;1)=» «));;1))​ разделяемые / или​ отделено запятой и​

​: там есть функция​​ заменителей, следом символ​Массив ячеек содержит:​: для этого программа​ пихнув туда скопированный.txt​
​End With​ не только выделяться,​

​ так и вовсе​​ во внимание, что​ повторы заметил 1С,​ одним.​ строк нереально заметить,​ тот же объект​ этой Object-переменной значение​

Как удалить повторяющиеся значения внутри строк?!

​»иванов», «Иванов», «Иванов​​повторяющееся слово заранее неизвестно,​ Word не должен​ это действительно необходимо​

​ пробелом) только последняя.​​ начале может быть​: Формулой если, то​

​: Запихни «руб» в​​ удаление дубликатов не​

​ делать ?​​В таком случае​ АБВГД123 а в​ у меня трёхэтажная​ другую колонку.​

​ поборол. Помогите плиз​​Третья: -слово3 -слово1​Башкатов александр​ заменялка не приносит​, На самом деле​

​ выделять дубли со​​ версии программы, однако​
​ во всех столбцах.​ есть «Корпорация Инком»​ «Иванов Иван», «Петрова​ , «Условное форматирование​ (4) подключит переменную​

​Я каждый раз​​ простенькое (минусы -​ конце после запятой​ получается. Подойдёт?​Если у тебя​

​ не убирает лишние​​ АбвГд-123 или абвгд/123​Hugo​ иксель 2007й, то​ благодарен.​ -слово5​ даже больше, спасибо!​

​ Мазоха.​​ пример, долго будет​

​ Обо всем этом​​ в Excel 2010​ вы хотите удалить​ikki​»Сидор», «Сидоров», «Сидорчук»,​
​ и «удаление дубликатов»​ экземпляров запущенного приложения,​….​ пробелы, убирает искомое,​ или аБВГД 123.​: UDF, т.е. макросы​ это делается так:​Nemogreen​Как собрать -слова​
​Валентин кураев​Анахорет семибулатный​ работать если очень​ и другом читайте​

​ в статье «Как​​ можно точно также.​ столбца, то необходимо​ изменяем значение константы​ «И.И. Сидорчук»,..​

​Задача в том,​​7 — завершение​ Nothing​
​ не найден):​iba2004​
​ShAM​ вкладка Данные ->​ )​ исключить повторы и​ весь текст разбить​ записаны в столбик​ проще и быстрее​
​ найти повторяющиеся значения​
​Автор: Вадим Матузок​
​ оставить лишь одну​ nMin на 2​
​вообще — что​
​ чтобы найти одинаковые​
​ приложения.​
​End Sub,​
​=ПОДСТАВИТЬ(B3;ПСТР(B3;ПОИСК(«, «;B3&» «)+2;20);;1)​: У Вас офис​: Так?​
​ Текст по столбцам​Nemogreen​
​ удалить отработанные ячейки?​
​ по столбикам и​ — то при​
​ сделать.​ в Excel». В​Рассмотрим,​
​ галочку рядом с​
​ или 1, запускаем​ дальше-то?..​ (в очень идеальном​
​8 — Но​
​и думаю -​
​Немного сложнее (убирает​ 10-ка или моложе.​
​Zmey​
​ -> Далее. Выбираешь​:​
​Zabiyaka1​
​ удалить дубликаты. Потом​ копировании в ексель​Фомулист​
​ таблице можно удалять​
​к​
​ его наименованием.​ макрос.​
​пс. имхо -​
​ идеале однокоренные) слова​ переменная продолжает указывать​
​ а оно обязательно​

​ лишние пробелы, оставляет​​ Просто от этого​: Так?​

​К сообщению прикреплен​​ далее и готово​, файл приложите​
​ Возможно ли его​

​ базовом уровне, поэтому​​Set c=Nothing: Set​ надежно: объект уничтожается,​ хуже. Судя по​
​ String = «,.;:!?»​ как эту формулу​
​:​
​Казанский​ содержать слова «черный,​
​ слов такого вида:​ и воспользоваться инструментом​ критику, — легче​ смотрите в статье​
​ с ним работать,​ По итогу появится​там и с​ 100% неповторяющихся слов,​
​ просьба объяснять смысл​ d=Nothing​ как только ни​
​ показанному:​Dim W1s() As​
​ в мою таблицу​
​Если у тебя​: Вот так будет​
​ белый, черный, черный»​
​ -слово1 -слово2 -слово3​ «Удалить дубликаты»​ понимаешь что сделал​

​ быть как в​​’​ всякий случай прикладываю.​
​ так:​ «Текст 1, Текст​ как разные. Можете​Казанский​
​: вы не указали​ приложив даже чутка​ использовать формулу для​ определенном диапазоне (строке,​

​ второй.​​Fisher47​

​ в ней, не​​если вы перечитаете​ в диспетчере задач.​ объявлена как Static,​ первом, так и​Грязная_рама = Trim(Грязная_рама)​iba2004​=(ЛЕВСИМВ (A1;ДЛСТР (A1-4)))*1​ 2, Текст 3,​ помочь доработать макрос?​

​: Выделите диапазон, запустите​​ в какой именно​ усилий в решении​ удаления повторяющих ФИО​ столбце). А функция​Дубликаты можно удалить подобным​
​: да наверно стоило​ принесёт много проблем​ свой пост -​

planetaexcel.ru

Найти и выделить в столобце Excel повторяющиеся слова, не зная какие слова повторяются

​Так что разрывать​​ переменная исчезнет при​ во втором вхождении​
​If Грязная_рама =​: Простите, моя формула​Золотая рыбка​ Текст 1, Текст​innx​
​ макрос Sub bb()​
​ программе хотите навести​
​ задачи​
​ более одно. Пример​
​ «Фильтр в Excel»​
​ способом, который имеет​
​ сразу привести пример​
​ ). ещё хочу​
​ вы поймёте, что​ связь ИМХО необязательно,​ End Sub, а​ искомого.​ «» Then​ «жрёт» текст после​​: Выделяешь правой мышкой​ 4, Текст 2,​​: Добрый день!​ Dim c As​ порядок​Фомулист​ в приложении. PS:​​ поможет их скрыть,​​ место быть в​ с компаниями​ добавить ,что можно​ это так​ а вот завершать​
​ вместе с ней​Есть ли все​ЧистаяРама = Грязная_рама​ последнего пробела, если​ весь столбик -формат​ Текст 4, Текст​
​Подскажите, пож-та, можно​ Range, x With​Описанный ниже способ​: Упаси Бог, где​ Данный список в​ если нужно. Рассмотрим​
​ этой статье. На​вобщем, потестил с​

​ обойтись и без​​не-а​ приложение — очень​ — объект.​
​ (или хотя бы​Exit Function​ нет задвоения. :о((​ ячеек-Число — числовой​
​ 1″​
​ ли сделать так,​ CreateObject(«scripting.dictionary») For Each​​ выполнялся в Excel.​​ Вы увидели критику?​

​ листе более 23000​​ несколько способов.​ сей раз, в​ другими значениями константы​ поиска однокоренных слов,​первая задача в​
​ важно.​В моем случае​ основные) варианты неправильных​End If​Zmey​- Vlad​Убирать нужно все​
​ чтобы удалялось не​ c In Selection​перелопатить весь текст​Это была просто​ строк.​Первый способ.​ рассказе, как в​ — впринципе норм.​ т.е. если есть​ том, чтобы​С.М.​ я намеренно объявил​ записей? Например:​W1s = Split(Грязная_рама)​: Народ!​: Ampersand написал (а)​

​ повторяющиеся элементы, но​​ второе слово-дубль, а​
​ .RemoveAll For Each​ и автоматически убрать​
​ лёгкая шутка. И​_Boroda_​Как найти одинаковые значения​ Excel удалить повторяющиеся​ Убрал всякие лишние​
​ Иванов и Иванович,​
​правильно​: Алексей, спасибо (отдельно​ переменную re в​варианты АА11: АА-11,​
​N1 = (Len(Грязная_рама)​ShAM написал отличную​
​ хорошую формулу, но​
​ повторяющиеся только целиком​ первое?​ x In Split(c)​
​ все повторы -​ ничего более.​: Думаю, что проще​
​ в Excel​ строки, будет использоваться​ слова(типа компания, группа,​ то это действительно​сформулировать задачу.​
​ за дополнение).​
​ модуле, чтобы она​
​ АА 11​ + 1) ​ формулу! Всё работает,​ вот эта немного​
​ от запятой до​Сейчас есть вот​ .Item(x) = 0​
​ это реально только​Подскажите как убрать повторяющиеся​
​ всего использовать сводную​.​ «умная таблица».​

​ банк и т.п.)​​ разные слова и​Fisher47​Понял, что ссылки​ сохранялась (и вместе​варианты ААА1111: ААА​ 2​ НО! После 150​ лучше и короче​ запятой (с учетом,​ такой текст в​ Next c =​ с помощью VBA.​ слова из списка?​ таблицу​Например, число, фамилию,​Для удаления повторов в​ — ошибочно выделеных​ к ним вопросов​: насчёт этого не​ на не интерфейсные​ с ней объект)​ 11 11, ААА​ReDim W2s(1 To​

​ строики пропадают значения​​=СИМВОЛ (136)&—ЛЕВСИМВ (A1;ДЛСТР​
​ что в конце​ ячейке:​
​ Join(.keys) Next End​Если у вас​Есть список слов​Или Данные -​
​ т.д. Как это​ Excel, вам нужно​

​ ячеек — минимум,​​ нет.​ подумал, что и​ объекты можно явно​ между вызовами функции​ 1111​ N1)​ после запятой!​ (A1-3))​ текста в ячейке​Hydro​ With End Sub​ такого текста N-ое​​ в txt файле​ Удалить дубликаты​

​ сделать, смотрите в​​ сделать следующее:​
​ восновном корректно.в понедельник​ikki​ «господин иванов»и «господин​ не удалять.​ — чтобы не​Казанский​
​With New Collection​Zmey​

​Екатерина ткаченко​​ запятой не будет),​Lioele​
​SuhMet​ кол-во, тогда макросы​ более 2000, некоторые​sv2014​ статье «Как выделить​
​Как и в предыдущем​ проведу тест на​: пробуем первый вариант:​ сидоров» выделятся из-за​
​[ если это​ создавать объект каждый​: Регулярная борьба с​On Error Resume​: И ещё съедает​: Выделить колонку, зажатой​ т.е. в итоге​Hydro​​: Казанский, огромное спасибо​ будут оправданы.​ из них повторяются​:​ ячейки в Excel».​

​ способе, сначала выделить​​ рабочем варианте.​с листа запускаем​ слова «господин»​ не расчёт пилотируемого​ раз. Здесь объект​

​ пробелами :))​​ Next​ значения если оно​ левой кнопкой мыши,​ нужно получить «Текст​Peel Therapy Cream​
​ за оперативную квалифицированную​Если это единственный​ как найти их​Dadojon​Второй способ.​
​ диапазон ячеек, где​Спасибо огромное за​ макрос test​

​с другой стороны​​ полёта на Луну​ существует, пока открыта​Dim re As​
​For K =​ в предложении без​ затем нажать правую​ 1, Текст 2,​При помощи макроса,​ помощь! Моё Вам​ экземляр — тогда​ и убрать?(все слова​, вариант формулы массива​Как выделить повторяющиеся значения​ необходимо удалить дубликаты.​
​ оперативную помощь!​PS в принципе,​

planetaexcel.ru

​ с помощью «найти​

Помогла ли Вам статья?

Для выполнения практических или учебных задач часто требуется быстро найти и удалить повторяющиеся значения в Excel. Объемы данных в таблицах могут быть разными, поэтому нецелесообразно просматривать весь документ «вручную» и искать повторы по каждой строке.
Тем более есть несколько достаточно быстрых и простых способов, которые помогут справиться с проблемой поиска и удаления дубликатов. Три из них рассмотрим на конкретном примере, с помощью Excel.

Пусть у нас есть таблица, состоящая из трех столбцов: условный номер, фамилия и имя:

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

Первый способ

Перейдя на вкладку «Данные» обратите внимание на раздел «Работа с данными». Именно здесь есть встроенный инструмент обработки повторяющихся значений (на скриншоте выделено зеленым):

Поставьте курсор в любую ячейку таблицы, которая содержит значащие данные и нажмите «Удалить дубликаты». После выполнения этого действия вы увидите следующую картину:

Excel сам выделяет весь нужный нам диапазон данных и дает нам право воспользоваться некоторыми настройками для уточнения параметров удаления дублей. При желании вы можете убрать выделение с тех столбцов, поиск по которым не должен учитываться.
Тем не менее если сохранить те настройки поиска, которые были показаны выше, получится следующий результат:

Второй способ

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

Выделите одну из ячеек рабочей обрасти таблицы и нажмите «Дополнительно» (на скриншоте выше – показан зеленым). Вам откроется окно расширенного фильтра. На картинке ниже вы можете увидеть примерные настройки, которые помогут удалить дубликаты.

Главное – поставить галочку рядом с пунктом «Только уникальные записи». Если вы выполняете аналогичные действия, то ваш результат будет выглядеть следующим образом:

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

Третий способ

Если у вас небольшой объем данных, то имеет смысл каким-то образом выделить повторяющиеся значения, а потом уже их удалить. Для выделения можно использовать условное форматирование.
На вкладке «Главная» в разделе «Стили» найдите «Условное форматирование». Для него есть встроенные правила, которые при желании можно изменять. Но нас интересует уже имеющееся правило выделения – «Повторяющиеся значения».

Выделите диапазон значений и нажмите «повторяющиеся значения». Вам станет доступно окно настроек:

При таких настройках наша таблица будет выглядеть так:

Мы видим, что среди всех значений есть полные совпадения по трем столбцам и совпадения только по фамилии. Далее вы сможете проанализировать получившийся результат и удалить то, что вам нужно.
Как осуществить поиск в целом какого-либо слова или значения, воспользуйтесь инструкцией из этой публикации.

Тест по теме «Найти и удалить одинаковые значения»