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

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

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

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

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

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

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

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

=ЗАМЕНА(A2;1;1;"")

Что она делает?

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

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

=ЗАМЕНА(A1;1;2;"")

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

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

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

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

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

=ПРАВСИМВ(A1;ДЛСТР(A1)-1)

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

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

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

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

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

Пошаговая инструкция:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Пошаговая инструкция:

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

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

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

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

• Готово!

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

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

С помощью Visual Basic

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

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

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

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

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

For Each cell In Selection: cell.Value = Right(cell.Value, Len(cell.Value) - 1): Next cell

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

Пошаговая инструкция:

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

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

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

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

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

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

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

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

For Each cell In Selection: cell.Value = Right(cell.Value, Len(cell.Value) - 1): Next cell  

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

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

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

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

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

1. Найти и заменить символ в ячейке Excel

Если вкратце, то существует специальный инструмент во всех продуктах MS Office. Вызывается клавишами Ctrl+F (найти) или Ctrl+H (заменить). В первое поле можно вписать символ, который нужно удалить, во второе ничего не вписывайте.

Подробнее об этом инструменте написано в этой статье

2. Удалить символ в ячейке Excel формулой

Удалить любой символ можно прекрасной функцией =ПОДСТАВИТЬ().

Эта функция имеет следующую конструкцию =ПОДСТАВИТЬ(текст;старый_текст;новый_текст;номер_вхождения)

текст — здесь указывается ячейка, где записан текст для изменения

старый_текст — что меняем

новый_текст — на что меняем

номер_вхождения — является необязательным. Он предписывает Excel заменить только символы, начиная с определенного номера. Интересное дополнение

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

=ПОДСТАВИТЬ(A1;".";",")

3. =СЖПРОБЕЛЫ()

Часто пробелы не видны невооруженным глазом («Иванов Иван  «), нужно писать дополнительную проверку, чтобы найти их, в общем, предпринимать дополнительные действия. Проще всего воспользоваться формулой =СЖПРОБЕЛЫ(). Она убирает все задвоенные пробелы, а так же лишние пробелы в конце и начале текста в ячейке (станет «Иванов Иван») .

Но! Будьте внимательнее — формула удаляет стандартные пробелы. Если вы к примеру копировали текст с сайта — он может содержать символы похожие на пробелы, но функция =СЖПРОБЕЛЫ() не будет их удалять. В таком случае придется пользоваться возможностью Найти и заменить.

Но в 95% случаев сжпробелы помогает на «отлично».

Удаление пробелов я даже вынес в отдельную статью

4. Удалить первый символ

Часто необходимо удалить первый, несколько последних символов и так далее. Как это сделать быстро и не вручную? Воспользуйтесь функцией ПСТР.

Очень подробно об этом написано здесь.

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

Формула будет выглядеть следующим образом:

=ПСТР(A:A;ПОИСК(".";A:A)+2;ДЛСТР(A:A)-ПОИСК(".";A:A))

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

Пример

5. Функция =ПЕЧСИМВ()

Функция с одним аргументом очень похожа на СЖПРОБЕЛЫ, но она удаляет непечатные символы в строке, такие как перенос строки, знаки абзаца, какие-нибудь квадратики и т.п. (первые 32 непечатаемых знаков в 7-разрядном коде ASCII). Особенно полезна она, если нужно удалить перенос строки — мне всегда помогает.

Внимание! ПЕЧСИМВ способна удалить большинство, но не все лишние символы.

Как в 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?

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

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

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

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

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

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

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

Function RemoveDupes1(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
    xChar = VBA.Mid(xValue, i, 1)
    If xDic.Exists(xChar) Then
    Else
        xDic(xChar) = ""
        xOutValue = xOutValue & xChar
    End If
Next
RemoveDupes1 = xOutValue
End Function

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

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

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

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

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

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

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

Function RemoveDupes2(txt As String, Optional delim As String = " ") As String
    Dim x
    'Updateby Extendoffice
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Count > 0 Then RemoveDupes2 = Join(.keys, delim)
    End With
End Function

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

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

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

🔥Сейчас на сайте клиента делаем огромную переоценку связанных опций и в процессе работы мне понадобились некоторые хитрости в работе с excel которые сэкономили мне огромное количество времени и об этих хитростям я вам буду рассказать в своих статьях.

сегодня я хочу поделиться очень полезной функцией которая поможет нам удалить:

1. ✅ в excel удалить первый символ
2. ⭐️ удалить последний символ в ячейке excel

Удаление последнего символа в ячейке excel

для удаления последнего символа в ячейки excel документа нам необходимо написать след функцию:

1. для примера в нашем excel документе я создал столбец с цифрами 123456789 чтобы удобно было посмотреть результат
2. Теперь ставим курсор в ячейку B2 и пишем следующую функцию:
   

   =ЛЕВСИМВ(A1;ДЛСТР(A1)-1)
   или
   =ЛЕВСИМВ(RC[-1];ДЛСТР(RC[-1])-1)

3. мы получим результат, где на примере видим, что у вас в конце удалился последний символ
4. Вот и все) просто правда? но если у вас в процессе использования вылетает ошибка #ИМЯ? читайте ниже, я расскажу из-за чего она возникает

Удаление первого символа в ячейке excel

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

1. для примера в нашем excel документе я создал столбец с цифрами 123456789 чтобы удобно было посмотреть результат
2. Теперь ставим курсор в ячейку B2 и пишем следующую функцию:
   

   =ПРАВСИМВ(A1;ДЛСТР(A1)-1)
   или
   =ПРАВСИМВ(RC[-1];ДЛСТР(RC[-1])-1)

3. смотрим на пример и видим что у нас удалился первый символ в ячейке Excel
4. Все)

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

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

в формуле =ПРАВСИМВ(A1;ДЛСТР(A1)-1) или =ЛЕВСИМВ(A1;ДЛСТР(A1)-1) за удаление символов отвечает значение -1 , поменяйте эту цифру на свою и будет счастье)

Ошибка #ИМЯ?

Если при использовании моих примеров у вас вылетает ошибка #ИМЯ? в 99% случае она может быть из-за стилей ссылок R1C1, чтобы это исправить делаем следующее:

1. заходим в настройки Excel Файл -> Параметры
2. Формулы -> Стилей ссылок R1C1
   
   
3. при включении и выключении этой галки меняется формат ячеек и функция удаления символов будет работать.

Вывод

таким образом мы можем решить огромное количество задач где нужно сделать след проблемы:

• excel удалить первый символ
• excel удалить последний символ
• удалить первую букву в excel
• удалить левые символы в excel
• удалить первые 3 символа в excel
• удалить символ справа в excel
• удалить символы справа в ячейке excel
• как удалить первый символ из строки в Excel