Как удалить последние знаки в excel
Перейти к содержимому

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

Как в офисе.

Надстрочный знак в Excel

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

В прошлом уроке мы говорили о макросе удаления файлов.

Под надстрочным знаком подразумевается обозначение кубических ли квадратных метров, градусов Цельсия, степеней в математике. Примеров может быть множество. Вот только Excel в отличие от программы Word не умеет быстро и просто включать и отключать надстрочный и подстрочный знак.

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

Надстрочный знак в Excel

Стандартным способом Excel считает:

  • выделение символа «3» в каждой ячейке;
  • открытие диалогового окна «Шрифт»;
  • выбор нужного положения для символа (над строкой или под строкой);
  • подтверждение.

Надстрочный знак в Excel

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

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

  • вкладка «Разработчик», блок кнопок «Код»;
  • жмём «Visual Basic»;
  • добавляем новый модуль Insert -> Module.

Далее вставим код макроса.

Sub Nadstr() ‘ Переводим последний символ в надстрочное положение With ActiveCell.Characters(Start:=Len(Selection), Length:=1) .Font.Superscript = True End With End Sub

Надстрочный знак в Excel

Далее нажимаем на вкладке «Разработчик» кнопку «Макросы», жмём «Выполнить» и получаем вот такой результат. Без выделения определённых символов в ячейке.

Надстрочный знак в Excel

Можно назначить этому макросу сочетание клавиш и использовать в дальнейшем! Надстрочный регистр применён!

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

Как удалить правые 11 символов в экселе? Имеется ячейка вида "Андрей89085555555" . Нужно чтобы осталось только имя.

​Смотрите также​​ 700 строк, я​"Какое-то Наименование"​ Эта ячейка отвязалась​ & ",1+(LEFT(" &​??

**Заменить — пусто.​
​ убрать текст после​:​vikttur​ возвращаем на 1​ которые необходимо удалить​
​ без ВБА?​ обьясните, как её​ нужно. Нужно просто​ Ctrl+e​

​Абдулаев Арсен Микаилович​​ (ТЕКСТ (A1;n0);6;1)*И (ПСТР​Freedoms​ ищу первые 5​

​"Какой-то Адрес"​​ от функции и​ selection.address & ")=""7""),999),)")​Мотя​ знака "->" который​kidlena​
​: Похоже, Вы применили​ символ меньше.​ если они встретятся​Serge​ применить ко всему​ удалить все символы​’​ 05-07-1971 ——​ (ТЕКСТ (A1;n0);5;1)-1);мил; 2);"")&ИНДЕКС​: =ЛЕВСИМВ (A2; ДЛСТР​ символов в ячейках​"Какой-то Телефон"​ стала самостоятельной и​Петр​: Вариант:​ e->j.​Если уверены, что​ часть формулы, в​вот так наверное​ в конце текста​: =ЗАМЕНИТЬ(A1;3;1;" ")​ столбцу? (Для чайников)​ W во всех​ActiveCell.FormulaR1C1 = "Cодержимое​Абдулаева Галина Николаевна​ (n_4;ПСТР (ТЕКСТ (A1;n0);7;1)+1)&ИНДЕКС​ (A2)-2)Удаление последних двух​ колонки А, если​[email protected]​ с ней тоже​: Добрый день!​текст по столбцам​Вот пример:xxxxxxxxx:eeeeeeee->james bunston->>->>>hghghl->>>>hghg​ везде нужно убрать​ которой я показал,​ понятнее:​ ячейки.​=ЗАМЕНИТЬ(A1;7;1;" ")​ И потом при​ ячейках столбца.​ верхней ячейк"​ 24-04-1965 ——​ (n1x;ПСТР (ТЕКСТ (A1;n0);8;1)+1;ПСТР​ знаков из строки​ они равны "Итого",​А мне надо​ можно было выполнять​Подскажите пожалуйста.​ с разделителем *​Юрий М​ заданное кол-во символов​ что нужно исправить.​200?’200px’:»+(this.scrollHeight+5)+’px’);">=ПСТР(B2;1;ЕСЛИОШИБКА(ПОИСК("(?)";B2)-1;999))​Т.е. необходимо удалить​=ЗАМЕНИТЬ(A1;14;1;" ")​ удалении исправленного столбца​Serge​Range("E2").Select​Абдулин Данис Файзрахманович​ (ТЕКСТ (A1;n0);9;1)+1)&ЕСЛИ (-ПСТР​ в ячейке A2​ тогда удаляю всю​ что бы:​ другие функции.​Есть ячейки такого​Chara​: Аналогично — см.​ (20):​ Целая формула -​Если в строке​ последние три знака,​=ЗАМЕНИТЬ(A1;17;1;" ")​ в новом пишется​: Выделить весь лист.​End Sub​ 15-08-1949 ——​ (ТЕКСТ (A1;n0);7;3);ВПР (ПСТР​ (Витамин)​ строку. Раньше пользовался​"Какое-то Наименование" [email protected]​Спасибо.​ типа:​: , вы чудо!​ #4​200?’200px’:»+(this.scrollHeight+5)+’px’);">=ПРАВСИМВ(A3;ДЛСТР(A3)-20)​ в сообщениях №2​ нет части "(?)",​ если встречается в​Headin​ какая то хрень!​ Ctrl+H найти W,​Активной ячейке нужно​каким образом в​ (ТЕКСТ (A1;n0);9;1)*И (ПСТР​=ПРАВСИМВ (A3; ДЛСТР​ макросом​Или подскажите как​vikttur​БУТТ 000​ Спасибо! все получилось!​

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

​ для всей формулы,​​Всего 2000 тысячи.​: А игрушку для​Юрий М​Код200?’200px’:»+(this.scrollHeight+5)+’px’);">=ПРАВСИМВ(A3;ДЛСТР(A3)-ПОИСК("автошина";A3;1)+1)​: =ЗАМЕНИТЬ(A1;1;ПОИСК(" вот файл​

​ ПОИСК вернет #ЗНАЧ,​​ и т.д.​ цифру, а нужно​
​А реально сделать​

​слэн​​ нажатие ентера, а​
​ отчество?​
​ (n0x;ПСТР (ТЕКСТ (A1;n0);11;1)+1;ПСТР​
​ в ячейке A3​

​If Row.Cells(1) Like​​Михаил​ а для той​
​ С помощью какой​

​ кошек? Хочууууу.​​: ctrl+h​Если впереди не​vikttur​ тогда​
​Я применила такую​

​ ВСТАВИТЬ пробел. Вот:​​ проще: просто вставить​: пять же никто​ нажатие BACKSPAСE вообще​mrSED​

Макрос чтобы во всех ячейках столбца удалить последний символ

​ (ТЕКСТ (A1;n0);12;1)+1));"z";" ")&ЕСЛИ​​ (B1)​ "*Итого*" Then Row.Delete​: Мой вопрос отменяется,​ части, которая нужна.​ формулы можно сделать​ElenaEfimova​найти: ->*​ обязательно "автошина":​: =ЗАМЕНИТЬ(A2;1;ПОИСК("​Код200?’200px’:»+(this.scrollHeight+5)+’px’);">ЕСЛИОШИБКА(ПОИСК("(?)";B2)-1;999)вернет 999.​ формулу, но в​ 16305033400702003310 Нужно:163 0503​ в каждую ячейку​ не мешает -​ проигнорировано. Как победить?​: по форуму полазил,​ (ОТБР (ТЕКСТ (A1;n0));"";"Ноль​конкретно в вашем​Next​ нашел в другой​По второму вопросу​ так, чтобы он​: Здравствуйте!​заменить на: (оставить​
​Код200?’200px’:»+(this.scrollHeight+5)+’px’);">=ПРАВСИМВ(СЖПРОБЕЛЫ(A3);ДЛСТР(СЖПРОБЕЛЫ(A3))-ПОИСК(" ";СЖПРОБЕЛЫ(A3);1+ПОИСК(" ";СЖПРОБЕЛЫ(A3);1)))​
​bizzon​
​999 — это​
​ ней приписала, только​
​ 3400702 003 310​ столбца любую букву​
​ заменить W на​
​Yurii_74​ но нашел только​
​ ")&") рубл"&ВПР (ОСТАТ​
​ случае =ЛЕВСИМВ (ячейка​Но сейчас добавилось​
​ теме​
​ давайте сделаем так:​
​ нашел все ячейки​похожую ситуацию помогите​ пустым)​китин​: огромное спасибо​ количество возвращаемых символов​

​ одно условие, а​​Headin​ первой и потом​ пусто.. т.е. просто​: Sub Delete_last_symbol_in_column() Dim​ как это сделать​ (МАКС (ОСТАТ (ПСТР​ ; ДЛСТР (ячейка)​ второе слово к​ПавелС​1) заходите по​ со словом ЗАО​ решить, пожалуйста!​Jonik​: ну или так,к​kidlena​ с запасом (надеемся,​ надо несколько.​
​: Вот что помогло:​ сделать из а1234567890​ не писать ничего​ i, end_row, column_​
​ для впереди стоящих​
​ (ТЕКСТ (A1;n0);11;2)-11;100);9);10);<0;"ь ":1;"я​
​ -11)​

​ "Итого", а хотелось​​: А у меня​ ссылке и читаете​

как удалить опред. символ в ячейке Excel, содержащей текст

​ и ООО и​​есть текст в​: А все спасибо​ примеру​
​: День добрый. Имеется​ что строк с​
​200?’200px’:»+(this.scrollHeight+5)+’px’);">=ЕСЛИ(ПРАВСИМВ($B2;3)="(1)";ПСТР($B2;1;ДЛСТР($B2)-3);$B2)​ =ЗАМЕНИТЬ(C8;4;;" ") -​

​ замену типа: а123​ в строке заменить​
​ As Integer column_​ символов.​ ":4;"ей ">;2)&ПРАВСИМВ (ТЕКСТ​

​Amiko takahasi​​ бы не прописывать​ в столбце в​ Правила (не переживайте,​ перенес эти аббревиатуры​ ячейке, нужно получить​

​ Вам большое. ​​200?’200px’:»+(this.scrollHeight+5)+’px’);">=ПОДСТАВИТЬ(A3;ЛЕВБ(A3;20);"")​ ячейка типа ***​

​ длиной больше 999​​Оформляйте формулы тегами!​ БЕЗ единички. Спасибо​ на пусто? Если​

​ на​​ = ActiveCell.Column end_row​Michael_S​ (A1;n0);2)&" копе"&ВПР (ОСТАТ​: поставь курсор с​

​ кучу поисков, а​​ ячейках текст формата:​ не напряжно и​ в начало ячейки?​ набор символов справа​iba2004​kidlena​

​ 12458 Мама, или​​ символов у нас​ На первый раз​ за наводку. Serge​ катит то как​

​опять же нажать​​ = ActiveCell.SpecialCells(xlLastCell).Row For​: Для разовой работы​ (МАКС (ОСТАТ (ПРАВСИМВ​ ячейку и нажимай​ удалять прям так.​ (ххх-х) Название​ не много):​

​Заранее спасибо.​ после заданного, например:​: Саш, привет!​

​: Спасибо огромное. ​​ *** 45684 Папа.​ нет)​ поправила.​

​ 007 — респект!​​ вставить енту букву​ для полного счастия​ i = 1​ можно формулу массива​ (ТЕКСТ (A1;n0);2)-11;100);9);10);<0;"йка":1;"йки":4;"ек">;2);" )";")"))-10);ПОДСТАВИТЬ​ кнопку удаления​ Помогите оптимизировать :)​ххх-х длина разная​2) согласно Правил​vikttur​"Сон в летнюю​Красава просто. ​krosav4ig​ Как удалить первые​Вместо 999 можно​Manyasha​lav-ich​ в ячейки первой?​

​ заменить все​​ To end_row If​200?’200px’:»+(this.scrollHeight+5)+’px’);">=ЛЕВСИМВ(A1;МИН(ЕСЛИ(ЕЧИСЛО(ПОИСК((СТРОКА($1:$10)-1)&"";A1));ПОИСК((СТРОКА($1:$10)-1)&"";A1)))-2)​

​ (ТЕКСТ (ОТБР (A1;0);"#​​Василий денисов​Sovereign​надо удалить все​ создаете свою тему​: =ЕСЛИ(ИЛИ(ЕЧИСЛО(ПОИСК(<"ООО";"ЗАО">;A1)));ПРАВСИМВ(A1;3)&" "&ЛЕВСИМВ(A1;ДЛСТР(A1)-4);A1)​ ночь" Шекспир​Нужное правило Excel’я. ​

​:​​ 10 символов в​ написать​:​

​: Всем РЕСПЕКТ-ИЩЕЕЕ. Всё​​Владимир​

​fischerspooner​​ Len(Cells(i, column_)) >​AlexM​ ##0_ ") &​

​: Замечальна язамена надстройки.​​: Разобрался, извиняюсь :)​ символы до Названия​ с прикрепленным примером.​Только поменяйте нули​как в отдельную​

​Спасибо!​​200?’200px’:»+(this.scrollHeight+5)+’px’);">=ЗАМЕНИТЬ(A3;1;20;)​

​ ячейке?​ДЛСТР(B3)​Любознатель​ прокатило с заменой.​: Реально. При этом​: Спасибо огромное, думал​ 0 Then Cells(i,​: Можно еще так​ "(" & ПОДСТАВИТЬ​

​ Я прикрутил к​​Yulia​

​При этом еще​Мы все ждем​ в ЗАО, ООО​ ячейку вытащить Шекспира?​Chara​Александра Филиппова​китин​Как-то так, надуюсь​, а скобочки только​ А особенно Serge​ заменится не только​

​ будет сложнее, всё​​ column_) = Mid(Cells(i,​200?’200px’:»+(this.scrollHeight+5)+’px’);">=ЛЕВСИМВ(A1;ПОИСКПОЗ(1;ИНДЕКС(—ЕЧИСЛО(—ПСТР(A1;СТРОКА($1:$99);1)););0)-2)​ (ПРОПНАЧ (ИНДЕКС (n_4;ПСТР​ ней условие не​: Добрый день!​ встречаются форматы: (ххх-х)​ с нетерпением. Интересно​

​ на буквы или​​Заранее спасибо!​

​: Спасибо за предоставление​: Добрый день. Оцените,​: используйте ЛЕВСИМВОЛ и​ понятно​ в конце могут​ 007(вот только если​ та комбинация, что​

​ действ. просто. Удачи​ column_), 1, Len(Cells(i,​или формула массива​ (ТЕКСТ (A1;n0);1;1)+1)&ИНДЕКС (n0x;ПСТР​ писать копейки если​Есть ряд значений:​ Название (ууу-у)​ же — ячейка-отщепенец​ в формуле буквы​The_Prist​ решения!​ пожалуйста проблему. Просто​ ПОДСТАВИТЬ.​

​Dement​​ встречаться?​ бы намекнул, что​ впереди стоит, но​lav-ich​ column_)) — 1)​

​Code200?’200px’:»+(this.scrollHeight+5)+’px’);">=ЛЕВСИМВ(A1;ПОИСКПОЗ(1;—ЕЧИСЛО(—ПСТР(A1;СТРОКА($1:$99);1));0)-2)​​ (ТЕКСТ (A1;n0);2;1)+1;ПСТР (ТЕКСТ​ число целое.​000909700​
​вторую скобку не​ :)​ на нули.​

​: ElenaEfimova, на будущее:​​У меня файл​ скажите, решается она​а для начала​: Здравствуйте. У меня​Если да, то​ формат ячеек должен​ и везде, где​: Добрые люди подскажите​ End If Next​RAN​ (A1;n0);3;1)+1)&ЕСЛИ (-ПСТР (ТЕКСТ​

​=ЕСЛИ (A1=ЦЕЛОЕ (A1);ЛЕВСИМВ​​000915700​
​ надо трогать​
​KuklP​
​Петр.​

​ лучше создавать свою​​ типа:GiGwi 75264 Игрушка​ в Excel или​ почитайте ПРАВИЛА. ​ количество символов в​ можно так:​ быть — общим,​

​ встретится. Правка -​​ Кто может. Есть​ End SubВстаёте на​: А можно без​ (A1;n0);1;3);"миллиард"&ВПР (ПСТР (ТЕКСТ​ ((ПОДСТАВИТЬ (ТЕКСТ (ОТБР​

​000916700 Y​​какой формулой можно​: Видимо автор имел​: Большое спасибо.​ тему с описанием​ д/кошек Птичка с​ нет.​вот не первый​ скобках различается в​200?’200px’:»+(this.scrollHeight+5)+’px’);">=ПСТР(B2;1;ЕСЛИОШИБКА(ПОИСК("(?)";B2);999)-1)​

​ то было бы​​ Заменить..​
​ столбец 58000ячеек с​ любую ячейку требуемого​

​ формул и макросов.​​ (A1;n0);3;1)*И (ПСТР (ТЕКСТ​ (A1;0);"# ##0_ ")​000916802​ сделать ?​
​ ввиду замену формулы​Не ожидал, что​ своей проблемы, если​ перьями 12 см​Работаю со словарями.​
​ же день на​ каждой строке и​_Boroda_​ ваще СУПЕР). ​

​Guest​​ комбинациями цифр от​ столбца, запускаете макрос,​

Как оставить в ячейке только последние 8 символов.

​000917202​​vikttur​ на значение. Тогда​ так просто!​
​ в этой теме​ 1*100GiGwi 75017 Дразнилка​ Есть на 16000​
​ сайте.и даже в​ их тоже надо​: Если откр. скобка​vikttur​
​: Владимир​

​ пяти знаков до​​ получаете результат.​

​ ПОДСТАВИТЬ (ПРОПНАЧ (ИНДЕКС​

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

​000918402​​: ПСТР(где;ПОИСК(пробел)-1;150)​
​ и в самом​А можно чтобы​ ни одно решение​ д/кошек с рыбками​ слов. Каждое из​ репе +3 стоит. ​
​ удалить. Как быть?​ бывает только одна,​: Куча мала :)​Реально. При этом​ 10. Необходимо удалить​То же самое​
​: А можно формулой,​ (ТЕКСТ (A1;n0);5;1)+1;ПСТР (ТЕКСТ​ (n_4;ПСТР (ТЕКСТ (A1;n0);1;1)+1)&ИНДЕКС​000919503​О функциях смотрите​
​ деле нужен пример.​
​ после такой перестановки,​ не подошло.​ на длинной палке​

​ которых после знака​​kidlena​​китин​​ то так можно​=ЗАМЕНИТЬ(ЗАМЕНИТЬ(ЗАМЕНИТЬ(ЗАМЕНИТЬ(A1;18;;" ");15;;" ");8;;"​ заменится не только​
​ определённую комбинацию из​ можно получить без​
​ но короче в​

​ (A1;n0);6;1)+1)&ЕСЛИ (-ПСТР (ТЕКСТ​​ (n0x;ПСТР (ТЕКСТ (A1;n0);2;1)+1;ПСТР​000921300​ в справке.​
​ Хотя, атор и​
​ он брал все​Если надо получить​ 1*384GiGwi 75018 Дразнилка​ # имеет пояснение:​: Не совсем поняла,​
​: создать тему и​
​200?’200px’:»+(this.scrollHeight+5)+’px’);">=ЛЕВБ(B2;ПОИСК("(";B2&"(")-1)​

​ ");4;;" ")​​ та комбинация, что​
​ 3 цифр именно​

​ макросов с помощью​​ два раза, чем​ (A1;n0);4;3);"миллион"&ВПР (ПСТР (ТЕКСТ​
​ (ТЕКСТ (A1;n0);3;1)+1)&ЕСЛИ (-ПСТР​000922300​
​vikttur​ сам бы мог​ слова после ООО​ последнее слово, то​

​ д/кошек с рыбкой​​аароновец#аар`оновец%аар`оновец, -вца, тв.​ как сделать, и​ приложить пример​Если конструкций (*)​TiLu​

​ впереди стоит, но​​ в начале каждой​​ формулы​​ предложенная выше массивная​ (A1;n0);6;1)*И (ПСТР (ТЕКСТ​
​ (ТЕКСТ (A1;n0);1;3);"миллиард"&ВПР (ПСТР​​000922600 A​
​: "-" заменить на​ записать МР вставку​ и ЗАО в​ вот:​ на длинной палке​ -вцем​ что Вас так​ploxot9​ может быть много​: Ребят помогите, Нужна​ и везде, где​
​ ячейки(если такая комбинация​=ПСТР(A1;1;ДЛСТР(A1)-1)​
​200?’200px’:»+(this.scrollHeight+5)+’px’);">=ЗАМЕНИТЬ(A1;ПОИСК(" ??-";A1);99;)​
​ (A1;n0);5;1)-1);мил; 2);"")&ИНДЕКС (n_4;ПСТР​ (ТЕКСТ (A1;n0);3;1)*И (ПСТР​Как удалить последние​ "+" — начало​ формулы и такую​ кавычки?​
​Kuzmich​
​ 1*384GiGwi 75026 Игрушка​Нужно получить столбец​ разозлило тоже не​: Кто знает нужна​ и удалять нужно​ формула которая уберет​ встретится. Правка -​
​ есть). Пробовал заменой​или англ. вариант​​mrSED​
​ (ТЕКСТ (A1;n0);7;1)+1)&ИНДЕКС (n1x;ПСТР​ (ТЕКСТ (A1;n0);2;1)-1);мил; 2);"")&ИНДЕКС​

​ два ноля (00)​​ с первого символа​ замену.​Тоесть БУТТ 000​: UDF Function Slovo(cell​ д/кошек Рыбка дразнилка​ слов, такой чтобы​

​ поняла.​​ формула что бы​ только последнюю, то​

Убрать все символы из ячейки до определенного знака (формула)

​ повторяющиеся символы в​​ Заменить..​ — но эти​=MID(A1,1,LEN(A1)-1)​: Ого, сколько вариантов​ (ТЕКСТ (A1;n0);8;1)+1;ПСТР (ТЕКСТ​ (n_4;ПСТР (ТЕКСТ (A1;n0);4;1)+1)&ИНДЕКС​
​ в номере, даже​ после пробела.​pooleet​ превратить в ООО​ As String) As​

​ на палец с​​ в каждой ячейке​

​китин​​ убрать из ячейки​

​ так​​ строке. ​Поскольку в ячейках​ три цифры вылетают​

​Alex0070​​ ) Спасибо большое​ (A1;n0);9;1)+1)&ЕСЛИ (-ПСТР (ТЕКСТ​
​ (n0x;ПСТР (ТЕКСТ (A1;n0);5;1)+1;ПСТР​
​ если после 00​

​ПавелС​​: здравствуйте, помогите пожалуйста​ "Бутт"​

​ String Slovo =​​ кольцом 1*96Нужно удалить​ было только одно​

​: 3. Кратко, но​​ весь текст который​Код200?’200px’:»+(this.scrollHeight+5)+’px’);">=ЛЕВБ(B2;ДЛСТР(B2)-3*(КОДСИМВ(ПРАВБ(B2;3))=40))​допустим есть строка:​

​ одни цифры, а​​ и в середине​: Спасибо Yurii_74, сейчас​ за помощь, буду​ (A1;n0);7;3);ВПР (ПСТР (ТЕКСТ​

​ (ТЕКСТ (A1;n0);6;1)+1)&ЕСЛИ (-ПСТР​​ есть пробел и​: Вроде разобрался​есть 2 столбца​vikttur​ Split(cell, """ ")(1)​ символы хоты бы​ слово.​

​ ёмко опишите задачу​​ расположен слева от​

​Код200?’200px’:»+(this.scrollHeight+5)+’px’);">=ЛЕВБ(B2;ДЛСТР(B2)-3*(ПСТР(B2;ДЛСТР(B2)-2;1)="("))​​ 1, 2, 5,​

​ если букву вставить​​ и в конце​

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

​ попробую эти способы​​ пробовать!​ (A1;n0);9;1)*И (ПСТР (ТЕКСТ​ (ТЕКСТ (A1;n0);4;3);"миллион"&ВПР (ПСТР​ некая буква? Если​спасибо​antalya palace hotel​: Это тоже просто:​

​ End Function​​ после знака "*".​Владимир​
​ в теле поста.​ заданного знака.​
​Manyasha​ 7, 9, 10,​ в НАЧАЛЕ каждой​ и в начале,​

​fischerspooner​​Alex0070​ (A1;n0);8;1)-1);тыс; 2);"")&ИНДЕКС (n_4;ПСТР​ (ТЕКСТ (A1;n0);6;1)*И (ПСТР​ номер не заканчивается​ПавелС​

​ 3 (ant) antalya​​=ЕСЛИ(ИЛИ(ЕЧИСЛО(ПОИСК(<"ООО";"ЗАО">;A1)));ПРАВСИМВ(A1;3)&" """&ЛЕВСИМВ(A1;ДЛСТР(A1)-4);A1)&""""​sv2013​Когда пробую делать​​: =ПСТР(A2;1;ПОИСК(СИМВОЛ(35);A2)-1)​​ВСЕГДА прикладывайте файл-пример​например текст в​: еще вариант:​ 12, 1, 3,​ ячейки, то и​ а надо только​: как удалить опред.​: Excel 2003. Стоит​ (ТЕКСТ (A1;n0);10;1)+1)&ИНДЕКС (n0x;ПСТР​

​ (ТЕКСТ (A1;n0);11;1)+1;ПСТР (ТЕКСТ​​ (n_4;ПСТР (ТЕКСТ (A1;n0);7;1)+1)&ИНДЕКС​​ удалять не нужно.​
​есть например такой​необходимо в первом​: Чем больше ешь,​

​Function uuu$(t$) uuu​​ удаляется текст о​​: ctrl+h​
​ когда вопрос носит​ убрать все включая​Любознатель​должно получиться: 1,​
​ будет только в​
​Микки​ содержащих текст, например​
​ ячейках столбца необходимо​
​ (A1;n0);12;1)+1));"z";" ")&ЕСЛИ (ОТБР​ (n1x;ПСТР (ТЕКСТ (A1;n0);8;1)+1;ПСТР​
​Заранее благодарна))​

​ текст​​ оставить все буквы,​ тем больше хочется​ ​ = Split(t, "#")(0)​

​ всей ячейке​​найти: #*​

​ общий характер и​​ знак "&" и​ ​: Manyasha, да, скобки​

Как удалить весть текст после определённого знака в строке.

​ 2, 5, 7,​​ начале и её​: Можно так. удаляем​одна ячейка содержит​ удалить последний символ.​ (ТЕКСТ (A1;n0));"";"Ноль ")&")​
​ (ТЕКСТ (A1;n0);9;1)+1)&ЕСЛИ (-ПСТР​Yulia​16мм. Труба жесткая,​ а во втором​ :)​
​ End Function​В чем проблема?​
​заменить на: (оставить​ не касается конкретно​ оставить только "FID=1"​ только в конце.​ 9, 10, 12,​

​ тупо заменить, а​​ "123"​

​ текст: 10W;15W​​ Выделяю верхнюю ячейку​
​ рубл"&ВПР (ОСТАТ (МАКС​
​ (ТЕКСТ (A1;n0);7;3);ВПР (ПСТР​: Задача усложнилась.​
​ ПВХ, легкая, цвет​

​ только цифру пробовала​​А слова которые​
​Kuzmich​В идеале конечно​

​ пустым)​​ Вашего файла. Темы​ ​Nic70y​

​Спасибо, то, что​​ 3​ потом енту букву​

​lav-ich​​др. ячейка содержит​ и записываю макрос:​
​ (ОСТАТ (ПСТР (ТЕКСТ​ (ТЕКСТ (A1;n0);9;1)*И (ПСТР​Теперь ряды данных​

​ серый (RAL 7035)​​ через VBA, но​ в кавчках будут​: А где Шекспир?​ надо удалить 1​

​заменить все.​​ касающиеся конкретного файла,​

​: =ПСТР(A1;ПОИСК("&";A1)+1;99)​​ надо.​
​ik​ тоже подчистить. КАК​: Не, так незя,​ текст: 45WW​
​ F2 (переход к​

​надо его преобразовать​​ что-то найти общий​

​ можно чтобы начинались​​The_Prist​
​ символ перед звездочкой​
​Nic70y​ но без приложенного​

​vikttur​​Поясните, пожалуйста, только,​: просите одно, пример​

​ ЕЁ ВСТАВИТЬ В​​ так как комбинация​
​необх. удалить символ​ ​ правке в строке​
​ ">;2)&ПРАВСИМВ (ТЕКСТ (A1;n0);2)&"​

​ (n_4;ПСТР (ТЕКСТ (A1;n0);10;1)+1)&ИНДЕКС​​000918402​ к виду​
​ язык с ним​ с заглавной буквы,​: Что по мне,​ и ВСЕ после​: =ПСТР(A2;1;ПОИСК("#";A2)-1)​ примера, будут закрываться​: =ЗАМЕНИТЬ(A1;1;ПОИСК("&";A1);)​ что значит в​ приводите другой. ​ весь СТОЛБЕЦ ПЕРВОЙ. ​ такая есть и​ W .​ формул), затем END​ копе"&ВПР (ОСТАТ (МАКС​ (n0x;ПСТР (ТЕКСТ (A1;n0);11;1)+1;ПСТР​000919503​
​Труба жесткая 16мм,​ никак не получается.​ а само слово​ то правильнее через​
​ звездочки.​
​Примерно тоже что​ или удаляться.​bizzon​ формуле 999)-1, чтобы​так что вас​
​Serge​ в середине и​

​Заранее благодарю, пишу​​ (перевод курсора в​ (ОСТАТ (ПРАВСИМВ (ТЕКСТ​
​ (ТЕКСТ (A1;n0);12;1)+1));"z";" ")&ЕСЛИ​000921300​ ПВХ, легкая, цвет​делала по этому​

​ было маленькими?​​ VBA было бы​Буду благодарна за​
​ и у Владимира.​kidlena​: Проблема похожая, нужно​ понять смысл.​ интересует — символы​: Ламерски: в другом​ в конце, а​ повторно, тему не​ конец строки) ,​

​ серый (RAL 7035)​​ примеру,​
​vikttur​ так:​

​ помощь.​​Александра Филиппова​: Извините. прикладываю. Кстати​

​ удалить весь текст​​Любознатель​ или числа?​

​ столбце ="a"&A1, протянуть,​​ надо удалить только​
​ удаляйте!!​ BACKSPAСE (Удалить символ)​
​mrSED​ ")&") рубл"&ВПР (ОСТАТ​000922600 A​как это можно​
​ВВВ.excel-vba.ru/chto-umeet-excel/kak-ostavit-v-yachejke-tolko-cifry-ili-tolko-tekst/​: Это обнадеживает. Значит,​
​Function LastWord(text as​Z​
​: Спасибо!​

​ приложить файл не​​ до значения​: _Boroda_, Manyasha, спасибо​sanbkamc​ скопировать, вставить как​ в начале!!​слэн​ ENTER (принять и​
​: Здравствуйте, уважаемые! Столкнулся​ (МАКС (ОСТАТ (ПСТР​301662700RX​

​ сделать ?​​pooleet​ начнете читать, еще​ string,optional sDel as​: Ага — звездочку​Все отлично работает!​

​ всегда удается сайт​​vikttur​
​ большое, все формулы​: Как оставить в​ значение в А,​

​Микки​​: если именно в​

​ перейти к след.​​ с такой проблемой.​ (ТЕКСТ (A1;n0);11;2)-11;100);9);10);<0;"ь ":1;"я​Как удалить два​Guest​
​: буквенная и числовая​ больше захочется :)​ string = "​ оставляем. ​Мотя​ вылетает (размер файла​: Формула похожая. Вы​

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

как удалить опред. символ в ячейке Excel, содержащей текст

​ этом дело, то​​ ячейке), остановить запись​ Есть хлс документ​ ":4;"ей ">;2)&ПРАВСИМВ (ТЕКСТ​ ноля справа?​: для простоты даже​ части разные​Изучайте ПРОПНАЧ().​
​ ") dim arr​

​ps Тему с​: Как всегда -​ менее 100 Kb).​

​ пробовали применять?​​ себе — буду​
​ 8 символов артикула. ​

​Serge​ удаляет только в​
​ можно вручную -​
​ макроса. Результат работы​

​ в котором около​ (A1;n0);2)&" копе"&ВПР (ОСТАТ​Казанский​ так:​Z​Петр​ arr = Split(text,​ самого начала освоили?​ СУПЕР-решение!​

​ Последний пример был​

​Большая разница?​​ в них разбираться.​
​При этом длинна​: На полтора ляма​ начале. попробуйте​ ctrl+h заменить WW​ – в обрабатываемую​

​ 8 тысяч позиций.​​ (МАКС (ОСТАТ (ПРАВСИМВ​
​: =ЕСЛИ(ПСТР(A1;8;2)="00";ЗАМЕНИТЬ(A1;8;2;"");A1)​16мм.Труба жесткая, в​

​: См. пример. ;)​: Самообучением занимаюсь.​ sDel)(0) LastWord =​ Правила — Приемы​ikki​ вчера, создавала тему​

​ПОИСК("​Manyasha​ текста перед артикулом​

​ строк ушло 10​​Владимир​
​ на W​

​ ячейку поставит содержимое​​ все это расположено​ (ТЕКСТ (A1;n0);2)-11;100);9);10);<0;"йка":1;"йки":4;"ек">;2);" )";")"));ДЛСТР​Guest​

​ вид Труба жесткая16мм,​-42885-​Элементарные команды учу,​ arr(ubound(arr)) End Function​ — Пример. ​: скажите спасибо команде​

​ удалось приложить файл​​bizzon​:​ разная.​
​ секунд.​

​: =ПСТР(A1;4;НАЙТИ(ЛЕВСИМВ(A1;2);A1)+10)​​Serge​
​ ячейки, на которой​ в одном столбце.вот​ (ПОДСТАВИТЬ (ТЕКСТ (ОТБР​: Добрый день!​то есть вырезать​vikttur​ только вот ПРОПНАЧ​ElenaEfimova​

​Chara​ разработчиков Excel’я​ только после создания​: не получается, может​Любознатель​Если можно создать​Или макрос написать,​lav-ich​: Ctrl+H найти W,​ записывался макрос (в​ часть такого документа​ (A1;0);"# ##0_ ")​Подскажите, пожалуйста, как​

​ первые 4 символа​

​: =ЛЕВСИМВ(A1;ДЛСТР(A1)-1)​​ делает и ООО​: Большое спасибо за​: И звездочку тоже​а я всего​

​ темы иначе на​ я ошибся​
​, на примере 1-й​ макрос с кнопкой,​ но тут я​: CCори, Слона я​ заменить пусто​

​ данном случае первой),​Абакулов Кирилл Александрович​ & "(" &​
​ можно удалить из​ и вставить после​=ПРАВСИМВ(A1)​ тоже в Ооо,​

​ помощь, правила форума​​ надо удалить.​ лишь помню о​ работало.​bizzon​ строки:​ то был бы​ не силён. ​ и не заметил. ​fischerspooner​ вместо того, чтобы​

​ 16-06-1983 ——​​ ПОДСТАВИТЬ (ПРОПНАЧ (ИНДЕКС​
​ ячейки слово, содержащее​
​ слова "жесткая"​Если этого недостаточно,​ а надо чтобы​

​ на будущее учла​Я попробовала сделать​ такой функции.​А проблема та​: наверное так, но​ПОИСК("(?)";B2)​ очень признателен.​Headin​

​ Спасибо большое. ​: Вручную нельзя, таблица​
​ обработать содержимое выделенной​

​Аббасова Егане Зульфигар-Кызы​​ (n_4;ПСТР (ТЕКСТ (A1;n0);1;1)+1)&ИНДЕКС​ определенные символы.​

​vikttur​​ с Вас пример​
​ только слова в​

​Казанский​​ так, как посоветовал​
​Мотя​

​ же. Убрать заданное​ все равно ошибка​- вернет 10​

​Спасибо.​​: А как вставить​lav-ich​ оч.большая, как с​ ячейки.​ 18-04-1970 ——​ (n0x;ПСТР (ТЕКСТ (A1;n0);2;1)+1;ПСТР​
​Проблема следующая: наименования​
​: =ПСТР(ЗАМЕНИТЬ(A1;ПОИСК(",";A1);1;ЛЕВСИМВ(A1;ПОИСК(".";A1)-1)&",");ПОИСК(".";A1)+2;150)​
​ данных в Excel.​
​ кавычках делал с​
​: Чтобы формула выгдядела​

​ (поставила найти **,​: Эти команды знают​
​ количество первых символов​

​vikttur​А третий аргумент​kms​

​ символ? Думаю, тема​​: Да. Требовалось: Первые​ помощью формулы??​Получилось так:​

​Аббасова Татьяна Владимировна​​ (ТЕКСТ (A1;n0);3;1)+1)&ЕСЛИ (-ПСТР​ в прайсе содержат​ПавелС​Михаил​
​ большой.​
​ более наглядно, я​ заменить на.. пустое​

​ все, однако, почти​ в ячейке.​: Наверное, не так. ​
​ в функции ПСТР​: =ПРАВСИМВ(RC[-2];8)​

​ одна. Имеется столбец​ три символа надо​

​слэн​​Sub Макрос1()​
​ 24-07-1963​ (ТЕКСТ (A1;n0);1;3);"миллиард"&ВПР (ПСТР​

​ артикулы, которые необходимо​​: здорово​: Подскажите как сделать​И еще один​ заменил в ней​

​ поле), чтобы удалить​​ все сразу начинают​
​ArkaIIIa​

​ Вы не можете​​ — это количество​
​Guest​ строк на 300,​
​ было просматривать только​: пока не понимаю​’​

​Абдикахаров Бахромжон Анваржонович​ (ТЕКСТ (A1;n0);3;1)*И (ПСТР​
​ удалить.​огромное спасибо​ что бы из​

​ вопрос, как сделать​ "selection.address" на "

​ все после со​​ искать функции. ​:​
​ приложить файл?​ возвращаемых знаков. Если​
​: =ПРАВСИМВ(RC[-2];8)​ в нем 20-значные​ на полное совпадение!!​ почему нельзя -​

​’ Макрос1 Макрос​​ 02-05-1990 ——​

​ (ТЕКСТ (A1;n0);2;1)-1);мил; 2);"")&ИНДЕКС​​Например: "Самокл.этикетки AZ9184-25​
​Sovereign​

​ столбца различных значений​​ чтобы после того​ а потом подставляю​ звездочкой, НО у​

​Сергей​китин​bizzon​ оставить 10, то​Спасибо большое.​ коды без пробелов.​ Спасибо. ​ заменить все -​’ Макрос записан​
​Абдирахманов Абдусатор Рахманбердиевич​ (n_4;ПСТР (ТЕКСТ (A1;n0);4;1)+1)&ИНДЕКС​
​ ECONOMY,универ,38×21,2мм,белые,25л" .​: А если делать​
​ можно было взять​

​ как он выполнил​ адрес с помощью​ меня удаляется вся​: Браво!​Репу это я​: Ошибка загрузки на​ ПСТР вернет подстроку​

​Любознатель​​ Требуется: после 3й,​

​lav-ich​​ не поможет?​

​ 14.10.2011 (S)​
​ 21-04-1980 9086445778​
​ (n0x;ПСТР (ТЕКСТ (A1;n0);5;1)+1;ПСТР​
​Нужно удалить "AZ9184-25".​
​ похожую задачу, но​
​ только ячейки с​
​ все эти функции​
​ replace.​
​ информация в ячейке.​
​Jonik​
​ случайно плюсанул, ткнул​

​ сайт, посмотрите, пожалуйста,​ вместе со скобочкой​: Добрый день!​ 7й, 14й и​: Микки​fischerspooner​’​Абдихаликов Аъзамжон Адихамжанович​ (ТЕКСТ (A1;n0);6;1)+1)&ЕСЛИ (-ПСТР​

​Все артикулы содержат​

​ уже в макросе.​​ определенными символами.​
​ и решение показал​Можно так:​
​RAN​
​: Ребят привет!​
​ вместо "цитата" :-)​
​ выше в первом​
​ "(". Нам она​
​Подскажите, пожалуйста, как​

​ 17 цифр вставить​Ваша формула работает,​

​: нет менять WW​​’ Сочетание клавиш:​

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *