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

Как в 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;» http://fb.ru/article/345927/kak-v-excel-udalit-povtoryayuschiesya-stroki-dva-sposoba» title=»fb.ru»>fb.ru

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

​ если он не​ объем всей суммарной​ вот среди подсвеченных​ обратить на ячейку​ не понимаю что​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​(напр. «мыло» -​

Удаление одинаковых текстов в ячейках (Формулы/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(«»&»»,

)+@))» 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​ статье «Выделить дату,​

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

​ все. Теперь вам​ 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​ значение может повторяться​ где нужно удалить​ не отделяются.​Спасибо огромное! Работает,​ разделенных символом » иванов», написанный «по-разному»,​
​И.и.Иванов​ 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;(ДЛСТР​​ столбика код без​
​: Господа, помогите решить​Далее по аналогии.​ воспользоваться штатным инструментом​

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

​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-переменной значение​

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

​vikttur​​ -​
​ это поможет при​ — «найти и​ » Руст инк»​ну например:​
​ что повторяется именно​ (5).​
​ Nothing.​: В примере «,​

​Правда бывает разный​ дальнейшей фильтрации.​ заменить»​ служит разделителем между​ -слово2​ чистить тексты во​ , сохранив результат​ASWP​ Можно выделить повторяющиеся​ можно за несколько​ галочки, то дубликатом​
​. Или «Руст​получим два списка​ «Иванов», т.е.​

​_Примечание:_ до этого​
​В каких случаях​
​ » (запятая с​ регистр. Т.е. в​
​iba2004​Helloworld​
​ кодами), а вот​

​Вторая под ней:​ всех расширениях файлов​ как текст? Это​:​ значения с первого​ секунд. Пример был​ будут считаться строки,​ инк» признан повтором​

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

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

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

​ -слово1​​http://studiowebd.ru/url/17​

​ если родная блокнотова​ASWP​

​ слова, а можно​ приведен в 2016-й​
​ которые полностью повторяются​ из-за того, что​ И.И.», «Иванов Г.П.»,​поэтому функция «Найти»​ быть запущен. Команда​

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

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

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

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

​ ). За ранее​​Четвертая: -слово3 -слово4​: То что нужно,​ должного удовлетворения киберпоклонникам​ не очень удачный​ второго и далее.​
​ удалить повторяющиеся строки​ Таким образом, если​
​ ?​ Клавдия Ивановна»..​ для повторяющихся значений»​

​ к любому из​ тупо пишу:​

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

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

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

​ и других версиях​​ дубликаты с одного​: заходим в макрос,​ «Сидоренко», «Сидоров И.И.»,​ не подходят.​ если их несколько.​Set XYZ =​ если его дубль​
​2.Да.​ должны быть разрешены.​ Выделяешь столбец, затем​: Забыл картинку прицепить​ в верхнюю ячейку,​: Можно в Exel​: Если все слова​

​ много строк, можно​

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

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

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

​ разделитель пробел, жмешь​​Nemogreen​: Спасибо за макрос.​ вернуть все в​ они попадут в​: Сам написал макрос,​
​ дубли по-разному. Удалить​ак найти и выделить​
​Нажать «ОК».​ikki​ только макросом. и​

​ и выделять ячейки​ на нечто (интерфейс?).​ надо ?​ искомое, если его​
​ зависит количество вложений​

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

​ WORD.​​ ращные строки в​ сам его же​ строки по полному​
​ одинаковые значения в​Как только вы нажмете​: а вообще-то применять​ довольно непростым макросом.​ с ними.​10- Однако, свойства​
​Казанский​

​ дубль не найден):​С.М.​ файл: post_363447.xlsx​Да, ну или​
​Nemogreen​ доработать таким образом,​

​SuhMet​ одном столбце. Надо​ и покритиковал​
​ совпадению, удалить ячейки​ Excel.​
​ на кнопку, начнется​ макрос, разработанный для​Fisher47​
​P.s. к сожалению​ объекта уже недоступны.​: По моим наблюдениям,​=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(B3;ПСТР(B3;ПОИСК(«, «;B3&» «)+2;20);))&ПСТР(B3;ПОИСК(«,​: Function ЧистаяРама(ByVal Грязная_рама​
​Да! Так! Спасибо​ просто «найти и​: файлик приложил​ чтобы не учитывались​
​: Помогите, пожалуйста, справиться​ будет выделить этот​
​А чё -​ в столбце, т.д.​Нам поможет условное​

​ поиск дубликатов выделенной​​ списка фамилий, к​: разноцветность — это​

​ с функциями экселя​Если в данном​

​ «сборщик мусора» в​ «;B3&» «)+1;20)​
​ As String)​ огромное!​
​ заменить»​Beerukoff​
​ запятые. Например у​
​ с такой задачей.​ столбец, перейти на​
​ когда самому себе​ Как убрать повторяющиеся​
​ форматирование.Что такое условное​ области, а затем​
​ списку компаний -​ конечно необязательно (В​
​ знаком на довольно​ случае выполнить команды​ VBA работает вполне​Со всякими тире/пробелами​
​Const Commas As​
​Теперь бы осознать​No name​
​: Если правильно понимаю​ меня ячейка может​ В ячейке массив​
​ вкладку инструментов «Данные»​
​ вслух (письменно) высказываешь​ значения в Excel,​
​ форматирование и как​ и их удаление.​
​ это отдельное извращение​
​ списке есть достаточно​

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

​ «Как удалить дубли​​ смотрите в статье​ окно, в котором​ кавычками свои заморочки,​ поэтому если использовать​ идей чуть подробней.​, но не​ одна переменная не​>>GDB 1583 TRW​
​ String, W2s() As​ перенести. Мозг рвётся​ «хххххх руб» без​ наверное более подробно​ и итог работы​ -слово2 и т.д..​Я бы еще​ не так!​ в Excel».​
​ «Условное форматирование в​ будет продемонстрирован отчет.​ и с сокращениями,​ один цвет заливки​Заранее спасибо за​ выполнить c.Quit, то​ содержит ссылку на​ ,Колодки торм., GDB1583​ String, W As​ на куски :))​ точки тогда так:​ )​ макроса будет выглядеть​каким образом можно​

​ на всякий случай​китин​Dadojon​ Excel» здесь. Выделить​ Теперь вы знаете,​ и с организационными​ ячейки, то повторы​ любые идеи.​

​ связь с объектом​
​ него.​>>GDB1583 TRW ,Колодки​ String, N1 As​iba2004​=(ЛЕВСИМВ (A1;ДЛСТР (A1-3)))*1​
​Beerukoff​ так : «черный,​
​ избавиться от повторений​ избавился от возможных​:​

​: В одном листе​ повторяющиеся значения в​
​ как в Excel​ формами (ОАО, ЗАО). ​
​ будут явно выделяться.​ikki​
​ будет разорвана, НО​Если в Вашем​
​ торм., GDB 15​
​ Long, N2 As​: Не думаю, что​
​Если у тебя​: У меня похожая​
​ белый, черный». Т.е.​ одних и тех​

​ лишних пробелов функцией​

​Фомулист​ сформирован список ФИО.​ Excel можно как​ удалить повторяющиеся строки,​надо думать, прежде​
​ поэтому даже выделение​: и всех «господинов»​ приложение останется работать​ случае XYZ -​ 83,​ Long, K As​ у меня оптимальный​
​ «хххххх руб. «​ задача, но формат​ макрос идентифицирует слова​ же слов в​ =СЖПРОБЕЛЫ ()​, а лучше всего​ Имеется несколько одинаковых​
​ во всей таблицы,​ но лишь первый​
​ чем «рисовать пример»,​ всей ячейки, а​ — тоже считать​
​ и занимать память​ переменная этой процедуры​

​неправильная запись может​ Long​
​ вариант, но на​ с точкой, тогда​
​ заполнения ячейки такой​ «черный» и «черный,»​ ячейке?​Abram pupkin​ критиковать других, не​ повторяющихся ФИО. Как​ так и в​ способ, на очереди​
​ ага​ не отдельного слова​ «одинаковыми». ​ — это видно​ и она не​

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

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

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

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

Найти и выделить в столобце 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 в принципе,​

Как в Microsoft Word сделать массовую замену или удаление текста

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

Переключитесь на вкладку «Главная» в Ленте Word и нажмите кнопку Заменить.

Вы также можете открыть это окно используя сочетание клавиш CTRL+H.

Будет открыто окно «Найти и заменить». В поле «Найти» введите слово или фразу для поиска, которую вы хотите найти в тексте. Если вам нужно только найти текст в вашем документе, то для этого нажмите кнопку «Найти далее» и Word перейдёт к следующему совпадению искомого слова. Продолжайте кликать, чтобы пройтись по всем найденным результатам.

Если вы хотите заменить текст, который вы нашли на что-то ещё, то в поле «Заменить на» вставьте желаемую замену — новый текст или фразу. Кстати к слову, вы можете ввести до 255 символов в оба поля «Найти» и «Заменить на».

В моём примере, допустим мы хотим заменить фамилию «Петров» на фамилию «Мишкин», следовательно, мы впечатываем этот текст в соответствующие поля. Затем мы кликаем по кнопке «Найти далее» чтобы Word нашёл первое совпадение текста, которое указано в поле «Поиск».

Word прыгает по документу указывая и подсвечивая серым результат поиска, при этом окно «Найти и заменить» остаётся поверх документа, чтобы вы могли продолжать поиск. Кликните кнопку «Заменить» для замены выбранного в текущий момент результат на тот текст, который указан в поле «Заменить на».

Чтобы заменить за один раз все совпадения с поиском без остановки и исследования каждого результата, вы можете нажать кнопку «Заменить все».

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

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

Чтобы выйти из диалогового окна «Найти и заменить» нажмите кнопку «Отмена».

Массовое удаление слова из текста в Word

Предположим, вам нужно удалить одинаковое слово или одинаковую фразу из всего текста. Если текст объёмный, то это может потребовать много времени.

Процесс удаления слов в Word можно автоматизировать. Для этого в поле «Поиск» введите слово или фразу, которую вы хотите удалить, а поле «Заменить на» оставьте пустым. Когда всё готово, нажмите кнопку «Заменить всё». В результате из всего текста будет убрано искомое слово.

Заключение

На самом деле, поиск в Word очень мощный и можно создавать весьма сложные конструкции и искать необычные вещи (параграфы, графические изображения, разные пробелы) и даже использовать регулярные выражения.

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

Удаление дубликатов

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

Информация

Процедура поиска дублирующий строк очень проста: вы копируете собранные слова и фразы из excel, wordstat.yandex.ru (или любой другой программы) и вставляете в форму, нажимаете кнопку «Удалить дубли». Моментально во втором окне вы получаете итоговый результат, который можно скопировать в буфер. Кнопка «Очистить» сбрасывает все значения указанные в двух формах.

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

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

Для того, чтобы «Удалить повтор слов» вам понадобится форма в которой нажимаем чекбокс «Удалить повтор слов«

Обращаю ваше внимание, что слова часто пишутся вместе с другими знаками, поэтому, те знаки которые мешаются для удаления «повтор слов» — нужно удалить!

Получить уникальные слова из текста онлайн

Как получить уникальные слова онлайн из текста? Для этого вам понадобиться:

В форме нажимаем чекбокс «Вывод уникальных слов«

Часто слова идут вместе со знаками точка, запятая, восклицательный знак и т.д. слитно! Программа не имеет мозга, поэтому не понимает, что то или иное слово может идти с каким-то знаком, поэтому вы должны нажать ещё пару чекбоксов :

Удалить числа (0,1,2,3,4,5,6,7,8,9)

Можно выбрать свой разделитель, по которому будем делать текст — это любой повторяющийся элемент в строке.

Еще дополнительный пункт — «Минимальное количество знаков в слове, по умолчанию 1»

При выводе уникальных слов по умолчанию — разделитель пробел, чтобы текст не превращался в кашу!

Отдельно точка и запятая

Если требуется расценить точку и запятую, как часть текста, то выбираем соответствующий чекбокс. Программа оставит первую запятую или точку — соответственно! Удалять точки и запятые не нужно(пункт 2.1 и 2.2)!