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

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

Как удалить заданное число символов в середине строки?

С помощью каких формул это можно сделать?

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

Чтобы получить содержимое ячейки, содержащей текст ячейки с удаленным первым или последним символом используют функцию выделения подстроки:ПСТР(текст;начальный символ;количество символов)

для определения количества символов используют функцию длины строки ДЛСТР(текст)

если текст "абвгдежзиклмн" находится в ячейке A1 то формулы будут такими:

строка с удаленным первым символом ячейки =ПСТР(A1;2;ДЛСТР(A1)-1) (результат бвгдежзиклмн)
строка с удаленным последним символом ячейки =ПСТР(A1;1;ДЛСТР(A1)-1) (результат абвгдежзиклм)
строка с удаленными первым и последним символами ячейки =ПСТР(A1;2;ДЛСТР(A1)-2) (результат бвгдежзиклм)
часть строки в 5 символов , начиная с 3-го символа =ПСТР(A1;3;5) (результат вгдеж)

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

например: вырезаем 3 символа, начиная с символа 3 и 4 символа, начиная с символа 7:

=ПСТР(A1;3;3)&ПСТР(A1;7;4) (результат вгджзик)

если нужно в результат включить строку, то она тоже добавляется символом &

=ПСТР(A1;3;3)&". "&ПСТР(A1;7;4) (результат вгд. жзик)

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

Рассмотрим различные ситуации.

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

Для этого будем использовать формулу, состоящую из двух функций:

ПРАВСИМВ — возвращает заданное число символов справа.

ДЛСТР — длина строки.

ПРАВСИМВ имеет 2 аргумента:

1) Ссылка на ячейку, из которой нужно вернуть символы. Например, B3.

2) Количество символов. В нашем случае это будет вся строка за исключением первого символа. Поэтому пишем ДЛСТР(B3)-1.

Формула выглядит так:

ПРАВСИМВ(Ссылка на ячейку;ДЛСТР(Ссылка на ячейку)-1).

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

Если в Excel нужно удалить не первый, а последний символ в ячейке, то нужно использовать функцию ЛЕВСИМВ.

Эта функция работает также, как и ПРАВСИМВ — только возвращает не правые символы, а левые.

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

Формула для удаления последнего символа будет такой:

ЛЕВСИМВ(Ссылка на ячейку;ДЛСТР(Ссылка на ячейку)-1).

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

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

Во-первых, можно последовательно применить функции ПРАВСИМВ И ЛЕВСИМВ (с промежуточной ячейкой или без).

Также существует функция ПСТР, возвращающая заданное число символов в ячейке. Аргументы:

1) Ссылка на ячейку.

2) Начальная позиция. В нашем случае она равна 2, так как первый символ нас не интересует.

3) Количество знаков, которые нужно извлечь. Пишем ДЛСТР(B3)-2, так как нужно вернуть все символы из ячейки, кроме первого и последнего.

удалить символы в строке excel

Формула будет такой:

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

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

В этом случае можно использовать всё те же функции, только в аргументах ЛЕВСИМВ и ПРАВСИМВ пишем не ДЛСТР(B3)-1, а ДЛСТР(B3)-n.

n — число символов, которые нужно удалить.

1) ПРАВСИМВ(B3;ДЛСТР(B3)-3). Удаляем 3 первых символа.

2) ЛЕВСИМВ(B3;ДЛСТР(B3)-5). Удаляем 5 символов с конца.

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

Для этого в Excel существует функция ЗАМЕНИТЬ. Она имеет 4 аргумента:

1) Ссылка на ячейку.

2) Начальная позиция. Например, если нам нужно удалять данные с 3 символа, то пишем "3".

3) Число знаков. Сюда пишем число удаляемых символов. Например, "3".

4) Новый текст. Так как нам нужно именно убрать данные символы, то пишем "" (две кавычки без пробела).

Таким образом, формула будет выглядеть так:

Она удаляет с 3 по 5 символ в ячейке.

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

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

Требуется убрать "12" со всех ячеек.

1) Набираем комбинацию клавиш Ctrl + F, чтобы появилось окно "Найти и заменить".

2) Переходим на вкладку "Заменить".

В поле "Найти" пишем текст, который нам не нужен в ячейках. То есть 12.

А в поле "Заменить" ничего не пишем.

3) Нажимаем на кнопку "Заменить всё" — текст в ячейках станет такой, который был нам нужен.

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

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

ЛЕВСИМВ и ПРАВСИМВ — возвращает заданное число символов слева и справа, соответственно.

ДЛСТР — длина строки, функция будет выполнять вспомогательную роль.

ПСТР — формирует подстроку из исходной строки текста на указанную длину и с определённой позиции.

НАЙТИ и ПОИСК — возвращает позицию первого вхождения какого-либо символа, слова, словосочетания. Они, как и ДЛСТР, могут использоваться как вспомогательные функции при удалении части данных из ячейки.

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

Будем использовать такую формулу:

Так как серия паспорта записана слева, то нужна функция ЛЕВСИМВ.

ДЛСТР(B2)-НАЙТИ("номер";B2) — здесь мы нашли с какой позиции начинаются ненужные нам символы и отняли эту цифру из длины строки.

А 1 вычитается из-за того, что перед словом "номер" стоит пробел. В принципе, можно было не вычитать 1, а просто написать в формуле пробел перед номером: ДЛСТР(B2)-НАЙТИ(" номер";B2).

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

Только при вставке не забываем выбрать "Вставить только значения".

А ячейки с уже неработающими формулами, разумеется, можно очистить.

Писала уже в одном из вопросов на БВ о работе со специальными формулами, их много, с их помощью много чего можно сделать, в данном вопросе обсуждается частный случай, рассмотрим его.

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

Пусть у нас будет вот такая таблица:

Мы видим, что во втором столбце у нас уже выполнено задание — удален первый символ. Формула использована вот такая: ПРАВСИМВ(B3;ДЛСТР(B3 )-1). То есть что мы с вами делаем: мы длину строки делаем меньше на один символ, при этом количество символов оставшееся программа считает справа, то есть лишним у нас оказывается левый, то есть первый символ, он и удаляется программой.

Несложно догадаться, что для удаления последнего символа нужно использовать немного другую формулу: ЛЕВСИМВ(B3;ДЛСТР(B3)-1) (применительно к этой же таблице. Для удаления первого и последнего символа

Таким же образом можно удалить несколько, а не один символ, справа или слева, просто пишем в формуле не (B3)-1, а, например, (B3)-3, и тогда удалится 3 символа справа или слева в соответствии с полной формулой.

Чтобы удалить символы в середине ячейки, используем другую формулу, применительно все к той же таблице, если мы хотим удалить три центральных символа, эта формула будет выглядеть так: ЗАМЕНИТЬ(B3;3;3;""), где В3, это ячейка с первоначальным текстом с полным набором символов, первая 3 — первый символ, который надо удалить, вторая 3 — количество символов, которые надо удалить, затем идут кавычки, так как это формула замены, то в них можно было бы указать символы, которые мы хотим поставить вместо удаленных, но мы хотим просто удалить три символа, поэтому в кавычках у нас ничего нет. Вот что получилось в итоге:

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

(МАКС (ОСТАТ (ПРАВСИМВ интересует — символы одна. Имеется столбецlav-ich будет сложнее, всё

krosav4ig что Вас такФункция себя так не: =ЗАМЕНИТЬ(A1;1;ПОИСК(«&»;A1);) (-)минусы и пробелы

правильно отображаются числаApplication.ScreenUpdating = True = «» ThenNext j

 можно реализовать) Можно (ТЕКСТ (A1;n0));»»;»Ноль «)&») (ТЕКСТ (A1;n0);2)-11;100);9);10);<0;"йка":1;"йки":4;"ек">;2);» )»;»)»));ДЛСТР или числа? строк на 300,: The_Prist действ. просто. Удачи: разозлило тоже не

TRIM бережете! вторую неделю
bizzon
— горю!! завтра

после данных операций,

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

Dim New_Wb As Data = arrSrc(i,r = r + 1 и сделать так, рубл»&ВПР (ОСТАТ (МАКС (ПОДСТАВИТЬ (ТЕКСТ (ОТБРFreedoms в нем 20-значные

А реально сделатьlav-ich200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЗАМЕНИТЬ(A3;1;20;)
поняла.(СЖПРОБЕЛЫ) удаляет все
бьетесь! надо было: Проблема похожая, нужно сдавать ведь функция CStr

 Workbook 29) * 1000ElseIf Not arrSrc(i, сначала все копировать (ОСТАТ (ПСТР (ТЕКСТ (A1;0);»# ##0_ «)

: =ЛЕВСИМВ (A2; ДЛСТР коды без пробелов. проще: просто вставить: Добрые люди подскажитеfischerspoonerкитин лишние пробелы из сразу к доктору! удалить весь текстSerge 007 подразумевает преобразование ячейкиSet New_Wb = Else Data = 26) = «»

 Then потом удалить первые «>;2)&ПРАВСИМВ (ТЕКСТ (A1;n0);2)&»
ПОДСТАВИТЬ (ПРОПНАЧ (ИНДЕКС знаков из строки 7й, 14й и

 столбца любую букву столбец 58000ячеек с символ в ячейках,
ёмко опишите задачу есть. Функция вашу проблемуvikttur
Натали Кенжи
верно?New_Wb.ActiveSheet.Range(«A1»).Resize(UBound(arrRes), UBound(arrRes, 2)).Value
Case 17
For j = 6 в ячейках
копе»&ВПР (ОСТАТ (МАКС

 (n_4;ПСТР (ТЕКСТ (A1;n0);1;1)+1)&ИНДЕКС в ячейке A2 17 цифр вставить первой и потом

 комбинациями цифр от содержащих текст, например

 в теле поста.CLEAN раз уж вы

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

: Формула похожая. Вы: Спасибо, но получаетсяKSV = arrRes
If arrSrc(i, 22) 1 To UBound(arrSrc,
столбца Y (ОСТАТ (ПРАВСИМВ (ТЕКСТ

(n0x;ПСТР (ТЕКСТ (A1;n0);2;1)+1;ПСТР (Витамин)
пробелы. Это можно сделать из а1234567890 пяти знаков до

одна ячейка содержитВСЕГДА прикладывайте файл-пример(ПЕЧСИМВ) удаляет все бились, то значит пробовали применять? только по одной

: Не верно! Функция’Ïóòü ãäå ñîçäàåòñÿ = «» Then

=ПРАВСИМВ (A3; ДЛСТР без ВБА? замену типа: а123 10. Необходимо удалить текст: 10W;15W

, кроме тех случаев, непечатные символы из чего-либо добились. так?Большая разница? строке. Как сделать CStr() выполнит преобразование íîâûé ôàéë

 Data = arrSrc(i,Data = «» как удалить символыПавел ладиков (ТЕКСТ (A1;n0);1;3);»миллиард»&ВПР (ПСТР

 (A3)-8)Удаление первых 8Serge на пусто? Если определённую комбинацию издр. ячейка содержит когда вопрос носит строки.подскажу порядок лечения:

ПОИСК(« чтоб весь столбецне ячейки

New_Wb.SaveAs FileName:=»C:\Users\Varina_LI\Desktop\ïðèìåð\maket17_ms21.xlsx» 35) Else DataSelect Case j «.» и «-«

: функция ПРАВСИМВ или (ТЕКСТ (A1;n0);3;1)*И (ПСТР знаков из строки: =ЗАМЕНИТЬ(A1;3;1;» «) катит то как 3 цифр именно текст: 45WW общий характер иК примеру, ячейкаво-первых, судя поbizzon отредактировался?, аMsgBox «Ìàêåò 17 = «‘000″Case 1 в некоторых столбцах?) ПСТР (ТЕКСТ (A1;n0);2;1)-1);мил; 2);»»)&ИНДЕКС

 в ячейке A3=ЗАМЕНИТЬ(A1;7;1;» «) вставить енту букву

 в начале каждойнеобх. удалить символ не касается конкретноA1 вашему описанию, надо: не получается, можетjavvvaзначения

 äëÿ ÌÑ21 óñïåøíîCase 18Data = «17»таким способом почему

для ячейки E13 (n_4;ПСТР (ТЕКСТ (A1;n0);4;1)+1)&ИНДЕКС

 (B1)=ЗАМЕНИТЬ(A1;14;1;» «) в ячейки первой? ячейки(если такая комбинация

 W . Вашего файла. Темына рисунке ниже не удалить СПРАВА, я ошибся: протянуть формулу по

, переданного ей в ñôîðìèðîâàí»

Data = arrSrc(i,Case 2 то не получилось=ПРАВСИМВ (E13;ДЛСТР (E13)-2) (n0x;ПСТР (ТЕКСТ (A1;n0);5;1)+1;ПСТРконкретно в вашем=ЗАМЕНИТЬ(A1;17;1;» «)Владимир есть). Пробовал заменой

Заранее благодарю, пишу касающиеся конкретного файла,

содержит строку «Excel Easy» а оставить справаbizzon всему столбцу качестве аргумента.objExcel.ActiveWorkbook.Close savechanges:=False 36)Data = «‘001″ заменитьили (ТЕКСТ (A1;n0);6;1)+1)&ЕСЛИ (-ПСТР

 случае =ЛЕВСИМВ (ячейкаHeadin: Реально. При этом — но эти повторно, тему не но без приложенного (с двумя пробелами). шесть символов. так?

: наверное так, ноНатали Кенжи

Соответственно, если уEnd SubCase 19Case 3200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ПСТР (E13;3;ДЛСТР (E13)) (ТЕКСТ (A1;n0);4;3);»миллион»&ВПР (ПСТР

; ДЛСТР (ячейка): =ЗАМЕНИТЬ. не прокатывает заменится не только три цифры вылетают удаляйте!! примера, будут закрыватьсяПримечание:во-вторых, действовать начинаем все равно ошибка: Спасибо большое всем вас формат ячейкиcresh12If arrSrc(i, 22)

Data = «2»For k =Руслан костенко (ТЕКСТ (A1;n0);6;1)*И (ПСТР -11) — функция ЗАМЕНЯЕТ

 та комбинация, что и в серединеслэн или удаляться.
Функция так — надоvikttur

 за помощь! Все общий или числовой,: Нашел на форуме = «» ThenCase 4 1 To d: Backspace (ТЕКСТ (A1;n0);5;1)-1);мил; 2);»»)&ИНДЕКСAmiko takahasi цифру, а нужно впереди стоит, но и в конце

: если именно вkidlena
TRIM
проверить, а не
: Наверное, не так.

 получилось и вы передаете этот способ: Data = arrSrc(i,Data = «11»For m =Юля павлова

 (n_4;ПСТР (ТЕКСТ (A1;n0);7;1)+1)&ИНДЕКС: поставь курсор с ВСТАВИТЬ пробел. Вот: и везде, где и в начале, этом дело, то

: Извините. прикладываю. Кстати(СЖПРОБЕЛЫ) возвращает строку больше ли количество Вы не можетеAnd24 в CStr() число,200?’200px’:»+(this.scrollHeight+5)+’px’);»> 37) Else DataCase 5 1 To d

: Функции в ячейке (n1x;ПСТР (ТЕКСТ (A1;n0);8;1)+1;ПСТР
ячейку и нажимай 16305033400702003310 Нужно:163 0503

 встретится. Правка - а надо только можно вручную - приложить файл не «Excel Easy» (без
символов в ячейке, приложить файл?: У меня примерно то она вернетDim s
= «’00″Data = arrSrc(i,Cells(k, m + не могут содержать

 (ТЕКСТ (A1;n0);9;1)+1)&ЕСЛИ (-ПСТР кнопку удаления 3400702 003 310

Заменить.. в начале. ctrl+h заменить WW

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

 всегда удается сайт лишнего пробела). чем требуемые шесть?bizzon та же задача, его как текст,
For Each sCase 20 2) 4) = Replace(Cells(k, ссылки на неё
(ТЕКСТ (A1;n0);7;3);ВПР (ПСТРВасилий денисовHeadinGuest

Микки на W вылетает (размер файлаЯчейка

 для этого надо: Ошибка загрузки на но нужно удалить но Excel увидит, In Range(«Y2:Y» &If arrSrc(i, 22)
Case 6 m), «.», «», из-за зацикливания. (ТЕКСТ (A1;n0);9;1)*И (ПСТР: Замечальна язамена надстройки.: Вот что помогло:: Владимир: Можно так. удаляемSerge менее 100 Kb).A1 использовать функцию ДЛСТР(А1), сайт, посмотрите, пожалуйста, более пяти символов что вы кладете Cells(Rows.Count, 1).End(xlUp).Row).Cells = «» ThenData = arrSrc(i, 1, 1) /Нужно результат помещать (ТЕКСТ (A1;n0);8;1)-1);тыс; 2);»»)&ИНДЕКС Я прикрутил к =ЗАМЕНИТЬ(C8;4;;» «) -Реально. При этом «123»: Ctrl+H найти W, Последний пример былна следующем рисунке она выдаст количество выше в первом из текстовой строки: в ячейку числоIf Len(s) > Data = arrSrc(i, 3) 1 в другие ячейки. (n_4;ПСТР (ТЕКСТ (A1;n0);10;1)+1)&ИНДЕКС ней условие не БЕЗ единички. Спасибо заменится не толькоlav-ich заменить пусто вчера, создавала тему содержит непечатный символ. символов. моем посте. знак минус, знак в текстовом формате 2 Then s.Value 38) Else DataCase 7Next mНо этого можно (n0x;ПСТР (ТЕКСТ (A1;n0);11;1)+1;ПСТР писать копейки если за наводку. Serge та комбинация, что: Не, так незя,fischerspooner удалось приложить файлПримечание:в-третьих, после проверкиvikttur «/» и 5 и «исправит эту = Right(s, Len(s) = «’00″Data = «11»Next k избежать только следующим (ТЕКСТ (A1;n0);12;1)+1));»z»;» «)&ЕСЛИ число целое. 007 — респект! впереди стоит, но так как комбинация: Вручную нельзя, таблица только после созданияФункция в случае, если: Похоже, Вы применили букв. По большому ошибку». — 5)Case 21Case 8И сама программа способом. (ОТБР (ТЕКСТ (A1;n0));»»;»Ноль=ЕСЛИ (A1=ЦЕЛОЕ (A1);ЛЕВСИМВlav-ich и везде, где такая есть и оч.большая, как с темы иначе наCLEAN символов оказалось больше часть формулы, в счету в строкет.е., после этого

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

Next sIf arrSrc(i, 22)Data = arrSrc(i,
Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Sub Command1_Click()
Одноразовое вычисление осуществляется
«)&») рубл»&ВПР (ОСТАТ
((ПОДСТАВИТЬ (ТЕКСТ (ОТБР

: Всем РЕСПЕКТ-ИЩЕЕЕ. Всё встретится. Правка -

 в середине и помощью формулы?? работало.(ПЕЧСИМВ) удаляет этот шести, откидываем ненужные
которой я показал, должны остаться только
кода в ячейкуНо почему то = «» Then
10)Dim objExcel, objWorkbook
макросом-программой на VBA
(МАКС (ОСТАТ (ПСТР
(A1;0);»# ##0_ «) прокатило с заменой.
Заменить..
в конце, а

слэнА проблема та непечатный символ. Непечатные с помощью функции что нужно исправить.
цифры. будет пишет ошибку: 1004, Data = arrSrc(i,
Case 9

Удаление первых 6 символов в ячейках столбца (Макросы/Sub)

 As WorkbookSub aa() (ТЕКСТ (A1;n0);11;2)-11;100);9);10);<0;"ь ":1;"я & "(" & А особенно SergeПоскольку в ячейках надо удалить только: пока не понимаю же. Убрать заданное символы могут появится, ПРАВСИМВ(А1;6) Целая формула -Как проще эточисло Сбой метода 'Rows' 39) Else DataData = arrSrc(i,Set objExcel =MsgBox Mid(ActiveCell.Value, 3) ":4;"ей ">;2)&ПРАВСИМВ (ТЕКСТ ПОДСТАВИТЬ (ПРОПНАЧ (ИНДЕКС
007(вот только если одни цифры, а в начале!! почему нельзя -
количество первых символов например, после импортированияRaptor
в сообщениях №2
сделать с помощью200?’200px’:»+(this.scrollHeight+5)+’px’);»>Cells(1, 1) = CStr(«777»)
объекта ‘_Global’ = «’00″
11) CreateObject(«EXCEL.APPLICATION»)ActiveCell.Value = Mid(ActiveCell.Value, (A1;n0);2)&» копе»&ВПР (ОСТАТ (n_4;ПСТР (ТЕКСТ (A1;n0);1;1)+1)&ИНДЕКС
бы намекнул, что
если букву вставить
Микки
заменить все -
в ячейке. текста из других
: Вы уж пожалуйста и №3
формул?
а после этого
miverCase 22
Case 10objExcel.Visible = False
3)
(МАКС (ОСТАТ (ПРАВСИМВ (n0x;ПСТР (ТЕКСТ (A1;n0);2;1)+1;ПСТР
формат ячеек должен в НАЧАЛЕ каждой
: моя формула и
не поможет?
ArkaIIIa
приложений.
определитесь, справа (какbizzonКазанский
кода — число,
:If arrSrc(i, 22)
If arrSrc(i, 12)Application.ScreenUpdating = False
MsgBox ActiveCell.Value (ТЕКСТ (A1;n0);2)-11;100);9);10);<0;"йка":1;"йки":4;"ек">;2);» )»;»)»))-10);ПОДСТАВИТЬ
(ТЕКСТ (A1;n0);3;1)+1)&ЕСЛИ (-ПСТР быть — общим,
ячейки, то и
удаляет только в
fischerspooner:Урок подготовлен для Вас
по тексту) или: =ЗАМЕНИТЬ(A1;1;ПОИСК(» вот файл: UDF Function ТолькоЦифры(s
как текст Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Cells(2,
cresh12
= «» Then
<> «» Then
’Ïóòü ê èñõîäíîìó
End Sub
(ТЕКСТ (ОТБР (A1;0);»#
(ТЕКСТ (A1;n0);1;3);»миллиард»&ВПР (ПСТР
то было бы
последовательность типа а543
начале. попробуйте
: нет менять WWкитин
командой сайта office-guru.ru
слева (как вvikttur
As String) As
1) = «‘»
, Перед задаванием подобных
Data = arrSrc(i, Data = arrSrc(i,
ôàéëó
Алексей матевосов (alexm) ##0_ «) &
(ТЕКСТ (A1;n0);3;1)*И (ПСТР
ваще СУПЕР). будет только вВладимир на W не
Репу это я
Источник: http://www.excel-easy.com/examples/remove-unwanted-characters.html примере)? И почему
: =ЗАМЕНИТЬ(A2;1;ПОИСК(«
String With CreateObject(«vbscript.regexp») & 777
вопросов советую сначала
40) Else Data
12) * 1000
Set objWorkbook =: Думаю вопрос задали «(» & ПОДСТАВИТЬ (ТЕКСТ (A1;n0);2;1)-1);мил; 2);»»)&ИНДЕКСvikttur
начале и её
: =ПСТР(A1;4;НАЙТИ(ЛЕВСИМВ(A1;2);A1)+10) нужно. Нужно просто случайно плюсанул, ткнулПеревел: Антон Андронов бы вам не
bizzon
.Global = Truecresh12 просмотреть стандартные функции = «’00″Case 11 objExcel.Workbooks.Open(«C:\Users\Varina_LI\Desktop\ïðèìåð\ms21.xlsx»)
некорректно. Удалить не
(ПРОПНАЧ (ИНДЕКС (n_4;ПСТР (n_4;ПСТР (ТЕКСТ (A1;n0);4;1)+1)&ИНДЕКС: Куча мала :) тупо заменить, аlav-ich
удалить все символы
вместо «цитата» :-)Автор: Антон Андронов
использовать простую формулу
: огромное спасибо .Pattern = «\D»:200?’200px’:»+(this.scrollHeight+5)+’px’);»>Mid(«1234567890», 7)Case 23
Data = arrSrc(i,
With objWorkbook.ActiveSheet в ячейке, а (ТЕКСТ (A1;n0);1;1)+1)&ИНДЕКС (n0x;ПСТР (n0x;ПСТР (ТЕКСТ (A1;n0);5;1)+1;ПСТР=ЗАМЕНИТЬ(ЗАМЕНИТЬ(ЗАМЕНИТЬ(ЗАМЕНИТЬ(A1;18;;» «);15;;» «);8;;»
потом енту букву
: CCори, Слона я W во всехArkaIIIakidlena отсечения 6 символов
Пампушка
ТолькоЦифры = .Replace(s,KSVВторой вопрос такIf arrSrc(i, 22) 14)
d = .Cells(.Rows.Count,
в строке. (ТЕКСТ (A1;n0);2;1)+1;ПСТР (ТЕКСТ (ТЕКСТ (A1;n0);6;1)+1)&ЕСЛИ (-ПСТР «);4;;» «) тоже подчистить. КАК
и не заметил.
ячейках столбца.:: День добрый. Имеется с нужной стороны?: Добрый день. Подскажите
«») End With
, Спасибо что все
Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Replace(Replace(CStr(Cells(k, m)), «.»,
= «» ThenCase 12
5).End(xlUp).Row
Допустим строка в
(A1;n0);3;1)+1)&ЕСЛИ (-ПСТР (ТЕКСТ
(ТЕКСТ (A1;n0);4;3);»миллион»&ВПР (ПСТР
TiLu
ЕЁ ВСТАВИТЬ В Спасибо большое.
Sergekidlena
ячейка типа ***Guest
пожалуйста по такому End FunctionПример Код
так подробно объяснили)
«»), «-«, «») Data = arrSrc(i,Data = arrSrc(i,
arrSrc = .Range(«A1
А1, в В1

 (A1;n0);1;3);»миллиард»&ВПР (ПСТР (ТЕКСТ (ТЕКСТ (A1;n0);6;1)*И (ПСТР: Ребят помогите, Нужна
весь СТОЛБЕЦ ПЕРВОЙ.
lav-ich
: Выделить весь лист.Если уверены, что 12458 Мама, или
: Отсекать нужно слева. вопросу. Есть столбец ?ТолькоЦифры(«где телефоны сDYm00n
miver
41) Else Data 15) :AP» & d).Value формула, почти как

 (A1;n0);3;1)*И (ПСТР (ТЕКСТ (ТЕКСТ (A1;n0);5;1)-1);мил; 2);»»)&ИНДЕКС формула которая уберетSerge: Да. Требовалось: Первые Ctrl+H найти W,
везде нужно убрать
*** 45684 Папа.
А какую формулу со значениями, нужно

 +7-922-22-22-222, все +(плюсы)»): Есть таблица, в: = «’00″Case 13End With у Павла Ладикова (A1;n0);2;1)-1);мил; 2);»»)&ИНДЕКС (n_4;ПСТР (n_4;ПСТР (ТЕКСТ (A1;n0);7;1)+1)&ИНДЕКС
повторяющиеся символы в

: Ламерски: в другом три символа надо заменить пусто. Два заданное кол-во символов Как удалить первые можно использовать? проверить если колличество 79222222222 определенную ячейку яcresh12Case 24Data = «’00″objWorkbook.Close savechanges:=False=ПСТР (A1;3;999)

 (ТЕКСТ (A1;n0);4;1)+1)&ИНДЕКС (n0x;ПСТР (n1x;ПСТР (ТЕКСТ (A1;n0);8;1)+1;ПСТР строке.  столбце =»a»&A1, протянуть, было просматривать только раза. Три секунды. (20): 10 символов в
Raptor символов больше 6,ploxot9 ввожу полный адрес,, И еще. СложилосьIf arrSrc(i, 22)Case 14ColNames = [<"MAK","PACH","IZ","MOD","NSP","NDT","SHPR","KSB","KIZ","WES","SWW","SOG","SHP","EI","NNM","NOR","GOP","ZPD","Z0","Z1","Z2","Z3","Z4","Z5","NDOC","PROB","VER">]cresh12 (ТЕКСТ (A1;n0);5;1)+1;ПСТР (ТЕКСТ (ТЕКСТ (A1;n0);9;1)+1)&ЕСЛИ (-ПСТРдопустим есть строка: скопировать, вставить как
на полное совпадение!!слэн200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ПРАВСИМВ(A3;ДЛСТР(A3)-20) ячейке? : Просто используете формулу
то удалить справа: Кто знает нужна т.е. в нем впечатление что вы = «» Then

If arrSrc(i, 22)Dim arrRes(): Здравствуйте! Возникла такая (A1;n0);6;1)+1)&ЕСЛИ (-ПСТР (ТЕКСТ (ТЕКСТ (A1;n0);7;3);ВПР (ПСТР

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

 1, 2, 5, значение в А, Спасибо. : пять же никтоЕсли везде вкитин ПРАВСИМВ(А1;6) — она столько символов чтобы формула что бы содержаться запятые и

 хотите одбросить дробную Data = arrSrc(i,

 = «» ThenReDim arrRes(1 To проблема. Необходимо заполнить (A1;n0);4;3);»миллион»&ВПР (ПСТР (ТЕКСТ (ТЕКСТ (A1;n0);9;1)*И (ПСТР 7, 9, 10, удалить другой столбец.lav-ich не мешает -

 начале идет «автошина»:: используйте ЛЕВСИМВОЛ и

 всегда будет отбирать осталось 6. (в убрать из ячейки точки. Требуется удалить часть и взять 42) Else Data

 Data = arrSrc(i, UBound(arrSrc), 1 To столбец, скопированными данными

 (A1;n0);6;1)*И (ПСТР (ТЕКСТ (ТЕКСТ (A1;n0);8;1)-1);тыс; 2);»»)&ИНДЕКС 12, 1, 3,Serge

: Микки заменить W наКод200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ПРАВСИМВ(A3;ДЛСТР(A3)-ПОИСК(«автошина»;A3;1)+1) ПОДСТАВИТЬ. 6 нужных вам ячейке: AFG75643543, а весь текст который все запятые и модуль от числа. = «’00″ 25) Else Data UBound(arrSrc, 2))
из другого столбца, (A1;n0);5;1)-1);мил; 2);»»)&ИНДЕКС (n_4;ПСТР (n_4;ПСТР (ТЕКСТ (A1;n0);10;1)+1)&ИНДЕКС

 7,: На полтора лямаВаша формула работает, пусто.. т.е. простоЕсли впереди неа для начала символов, если в нужно привести к расположен слева от точки, которые содержаться Решается проще такCase 27

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

 = «’00″r = 1 но так чтобы (ТЕКСТ (A1;n0);7;1)+1)&ИНДЕКС (n1x;ПСТР (n0x;ПСТР (ТЕКСТ (A1;n0);11;1)+1;ПСТРдолжно получиться: 1, строк ушло 10
но если можно не писать ничего обязательно «автошина»: почитайте ПРАВИЛА. ячейке больше 6

 643543). И так заданного знака.

 в этой ячейке200?’200px’:»+(this.scrollHeight+5)+’px’);»>Fix(Abs(число))

Data = «1»Case 15For i = в каждой ячейке

 (ТЕКСТ (A1;n0);8;1)+1;ПСТР (ТЕКСТ (ТЕКСТ (A1;n0);12;1)+1));»z»;» «)&ЕСЛИ 2, 5, 7,
секунд.
 обьясните, как её

 в строке заменитьКод200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ПРАВСИМВ(СЖПРОБЕЛЫ(A3);ДЛСТР(СЖПРОБЕЛЫ(A3))-ПОИСК(» «;СЖПРОБЕЛЫ(A3);1+ПОИСК(» «;СЖПРОБЕЛЫ(A3);1)))вот не первый

 знаков, и выдавать нужно по всемнапример текст в

Serge 007cresh12End SelectIf arrSrc(i, 22)

 1 To UBound(arrSrc) были числа только (A1;n0);9;1)+1)&ЕСЛИ (-ПСТР (ТЕКСТ (ОТБР (ТЕКСТ (A1;n0));»»;»Ноль 9, 10, 12,

Или макрос написать, применить ко всему накитин же день на все символы, если ячейкам столбца. Бьюсь ячейке «opic_new&FID=1» как

arrRes(r, j) = = «» Then

If i = начиная с 7

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

 (A1;n0);7;3);ВПР (ПСТР (ТЕКСТ «)&») рубл»&ВПР (ОСТАТ 3 но тут я столбцу? (Для чайников)опять же нажать: ну или так,к сайте.и даже в их в ячейке уже 2-ую неделю. убрать все включаяНатали Кенжиmiver Data Data = arrSrc(i, 1 Then символа, например: число (A1;n0);9;1)*И (ПСТР (ТЕКСТ
(МАКС (ОСТАТ (ПСТР

ik не силён. И потом при для полного счастия примеру репе +3 стоит.
меньше 6. Протяните Как это можно
знак «&» и: Уважаемый Serge 007,, Спасибо) но возник
Next j
26) Else DataFor j = 1234567890 в конечном (A1;n0);8;1)-1);тыс; 2);»»)&ИНДЕКС (n_4;ПСТР (ТЕКСТ (A1;n0);11;2)-11;100);9);10);<0;"ь ":1;"я
: просите одно, примерHeadin удалении исправленного столбца заменить все200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ПОДСТАВИТЬ(A3;ЛЕВБ(A3;20);»»)kidlena формулу вдоль столбца реализовать? оставить только «FID=1″ подскажите пжлста, как
вопрос почему вr = r + 1 = «‘0000000″ 1 To UBound(ColNames) варианте должно быть (ТЕКСТ (A1;n0);10;1)+1)&ИНДЕКС (n0x;ПСТР

 «:4;»ей «>;2)&ПРАВСИМВ (ТЕКСТ приводите другой. : А как вставить в новом пишетсяfischerspoonerkidlena: Не совсем поняла, и вы будетеСпасибоNic70y

 удалить из столбика, excel ячейки вEnd IfCase 16

arrRes(r, j) = 7890. Подскажите пожалуйста (ТЕКСТ (A1;n0);11;1)+1;ПСТР (ТЕКСТ (A1;n0);2)&» копе»&ВПР (ОСТАТтак что вас символ? Думаю, тема какая то хрень!: Спасибо огромное, думал: Спасибо огромное. как сделать, и приятно удивлены:)mazayZR: =ПСТР(A1;ПОИСК(«&»;A1)+1;99) где телефоны с

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Готово!

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

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

С помощью Visual Basic

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Работа с Exsel: удаление первого символа в ячейке

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

Способ 1: Использование функции СДВИГ

Функция СДВИГ (SHIFT) в Excel позволяет сдвинуть содержимое ячейки влево или вправо на указанное количество символов. Мы можем использовать эту функцию, чтобы удалить первый символ в ячейке.

Шаг 1. Выберите ячейку или столбец, в котором нужно удалить первый символ.

Шаг 2. Введите следующую формулу в пустую ячейку:

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

Шаг 3. Нажмите клавишу «Enter» для применения формулы. Вы увидите, что первый символ в ячейке был удален, и остальное содержимое сдвинулось на его место.

Шаг 4. Скопируйте результаты и вставьте их обратно в исходный столбец (либо используйте функцию «Копировать» и «Вставить значения»), чтобы получить окончательный результат.

Способ 2: Использование функции СТРОКА

Функция СТРОКА (MID) позволяет извлекать часть текста из строки. Мы можем использовать эту функцию для удаления первого символа в ячейке Excel.