Как удалить одинаковые символы в ячейках excel

Как в 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 в принципе,​

Как быстро удалить первый символ из всех ячеек в Excel

Часто бывает такое, что нужно удалить один или несколько символов из начала каждой ячейки.

Допустим у нас есть первый столбик, в котором лежат значения буква+цифры, нам нужно обрезать их таким образом, чтобы получились только цифры. Как на картинке ниже:

На самом деле, есть несколько вариантов, как можно это сделать.

Итак, давайте начнем!

С помощью функции ЗАМЕНА

Самый распространенный способ — использовать функцию ЗАМЕНА. Она довольно простая и в то же время полезная.

Для указанного выше примера формула функции принимает такой вид:

Просто заменяет первый символ в строке на пустое место.

С помощью неё можно удалить любое количество символов с начала строки, например удалить два символа можно так:

Копируем из ячейки все, кроме первого символа

Можно сделать и так, в этом случае формула будет немного сложней, но результата мы добьемся.

Разница в том, что в первом случае мы удаляли первый символ из строки, а в этом случае — мы просто разделяем строку и переносим нужную её часть в другую ячейку.

Допустим, у нас тот же столбик, который нужно обработать:

В этой ситуации формула принимает такой вид:

Функция ДЛСТР получает длину всей строки, а далее из длины убавляется 1 (потому что 1 символ мы хотим «пропустить») и все это отдается в обработку функции ПРАВСИМВ.

С помощью функции «Текст по столбцам»

Прошлые методы простые, но неудобны тем, что для них нужен отдельный столбец, так сказать, «технический» (для расчетов).

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

Допустим, у нас тот же столбик:

• Выделите ячейки и щелкните на «Данные»;

• Далее «Текст по столбцам»;

• В открывшемся окошке:

• В первом шаге используйте вторую опцию (как на картинке);

• Во втором шаге установите стрелку на том делении, сколько символов вы хотите «отрезать»;

• И в последнем шаге, выберите «пропустить столбец»;

• Подтвердите.

Таким образом, первый символ был удален.

Как это работает?

Довольно просто: вы указали функции сколько символов нужно «отрезать» от начала строки, а также вы указали пропустить столбец. Это значит что данные, после обработки, будут записаны в тот же столбик, где они изначально были.

С помощью автозаполнения

Эта функция — одна из самых удобных функций в Excel. Она автоматически пытается угадать значения для следующих ячеек, если вы заполнили первую (одну или две).

Давайте посмотрим как это работает.

Допустим, у нас тот же столбик:

Воспользуемся этой функцией

• В следующем столбике, впишите значение, которое должно быть после преобразования (в нашем случае 271);

• А также, по аналогии, укажите значение для второй ячейки. На самом деле, функция автозаполнения уже поняла логику и предлагает нам заполнить всю оставшуюся часть;

• Теперь выделите обе ячейки с обработанными данными;

• Наведите курсор на правую нижнюю часть выделения и потяните её вниз;

• Готово!

Просто не правда ли?

Это удобная функция, но с ней нужно быть осторожным. Если она неправильно поймет логику вашего заполнения — могут быть ошибки.

С помощью Visual Basic

Ну и как обычно, напоследок, рассмотрим как можно сделать это с помощью Visual Basic.

Я дам вам код функции для такого рода задачи, вы сможете модифицировать его.

Также, как и в случае использования функции «Текст по столбцам» в этом методе нам не нужен дополнительный столбик для расчетов.

Обратите внимание, что если строк, которые нужно обработать у вас очень много, выполнение этого кода может замедлить работу компьютера на какое-то время.

Этот код удаляет первый символ из каждой ячейки:

Как его использовать?

• Выделите диапазон ячеек, в которых нужно удалить первый символ

• Откройте просмотр кода (правой кнопкой на имя листа -> «Просмотр кода»);

• Далее щелкните на «View» -> «Immediate Window» (или CTRL + G);

• Поместите в окно наш код;

• Обязательно наведите мышь в конец кода;

• И просто подтвердите (нажав ENTER);

Готово, первый символ удален.

Что же делает этот код?

Итак, здесь используется цикл, который копирует и перезаписывает каждую ячейку отдельно.

В общем то и все! Мы рассмотрели несколько удобных и практичных методов удаления первого символа из каждой ячейки.

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

Удалить первую букву / первые N символов в начале или конце ячейки в Excel

Как удалить первый/последний символ или несколько первых/последних символов в ячейке Excel? Узнайте ответ из этой статьи.

Примечание автора: речь пойдет о ситуациях, когда количество символов определено конкретным числом — один, два, три и т.д. Тому, как удалить текст до определенного символа, посвящена отдельная статья.

Формулы удаления N символов в начале и конце строк

Для составления таких формул понадобятся функции ЛЕВСИМВ, ПРАВСИМВ и ДЛСТР. Первые две извлекают из текста указанное количество символов слева и справа соответственно, а ДЛСТР возвращает количество символов в тексте ячейки, к которой обращается.

Чтобы удалить из ячейки N символов слева, можно взять справа количество символов, равное разнице длины строки в символах (ДЛСТР) и N:

А чтобы удалить из ячейки N символов справа, наоборот, извлекаем слева длину строки минус N:

Удалить символы в начале ячейки (слева): функция надстройки !SEMTools

Формулы выше требуют создания дополнительного столбца. Чтобы сэкономить время, если исходные данные не нужны, я разработал функции !SEMTools, удаляющие символы прямо на месте.

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

«Отрезаем» несколько символов слева в ячейках столбца

Удалить символы в конце ячейки (справа): функция надстройки !SEMTools

Процедура потребуется, когда у вас есть массив фраз, в котором нужно обрезать последние буквы в конце строки, и вы уверены на 100% в их количестве.

Выделите диапазон, затем на панели !SEMTools в меню «Удалить» выберите «Символы -> обрезать -> с конца ячейки». В появившемся диалоговом окошке вбейте количество символов, которое хотите удалить, и нажмите «ОК».

«Отрезаем» символы справа в ячейках столбца

Удалить слова и символы по другим условиям

Надеюсь, на этой странице вы нашли то, что искали, и смогли решить задачу удаления последних или первых символов в ячейках.

Вас наверняка могут заинтересовать похожие операции, смотрите подробнее:

Хотите так же быстро удалять символы в Excel без использования формул?
В надстройке !SemTools есть этот и ещё более 500 похожих полезных инструментов по обработке текста. Сделайте апгрейд вашего Excel!

Как удалить одинаковые символы в ячейках excel

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

With Kutools for Excel’s Select Duplicate & Unique Cells feature, you can quickly select and highlight the duplicate or unique values from a range, and then you can remove or format them as you need.

Удалите повторяющиеся символы текстовой строки с помощью функции, определяемой пользователем

Если у вас есть список текстовой строки, теперь вам нужно удалить повторяющиеся символы, как показано на следующем снимке экрана. Здесь я могу поговорить о коде VBA для решения этой проблемы.

1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: удалить повторяющиеся символы текстовой строки в ячейке

3. Затем сохраните и закройте этот код, вернитесь на рабочий лист и введите эту формулу = removedupes1 (A2) (A2 это ячейка данных, из которой вы хотите удалить дубликаты) в пустую ячейку помимо ваших данных, см. снимок экрана:

4. Затем перетащите дескриптор заполнения к ячейкам диапазона, к которым вы хотите применить эту формулу, все повторяющиеся символы будут немедленно удалены из каждой ячейки.

Удалите повторяющиеся слова, разделенные знаками препинания, с помощью функции, определяемой пользователем

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

1. Удерживая нажатой ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > Модулии вставьте следующий код в Окно модуля.

Код VBA: удалить повторяющиеся слова, разделенные знаками препинания в ячейке

3. Затем сохраните и закройте этот код, вернитесь на рабочий лист и введите эту формулу = RemoveDupes2 (A2; «,») в пустую ячейку рядом с вашими данными, см. снимок экрана:

4. Затем скопируйте формулу в нужные ячейки, и все повторяющиеся слова будут удалены из всех ячеек. Смотрите скриншот:

Внимание: В приведенной выше формуле A2 указывает ячейку, которую вы хотите использовать, а запятая (,) обозначает знак препинания, разделяющий слова в ячейке, вы можете изменить его на любые другие знаки препинания по своему усмотрению.