Найти второй пробел в ячейке excel - Word и Excel - помощь в работе с программами

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

Найдите положение n-го пространства по формуле

Удалить начальные / конечные / дополнительные / все пробелы из строки

Найдите положение n-го пространства по формуле

Чтобы найти положение n-го пробела, вы можете применить эти формулы.

Найдите позицию первого пробела	= НАЙТИ («»; A1)
Найдите положение второго пробела	= НАЙТИ («»; A1; НАЙТИ («»; A1) +1)
Найдите положение третьего пробела	= НАЙТИ («»; A1; НАЙТИ («»; A1; НАЙТИ («»; A1) +1) +1)
Найдите положение четвертого пространства	= НАЙТИ («», A1, НАЙТИ («», A1, НАЙТИ («», A1, НАЙТИ («», A1) +1) + 1) +1)

Возьмем, к примеру, положение второго пробела в строках.

Выберите пустую ячейку C2, введите эту формулу = НАЙТИ («»; A2; НАЙТИ («»; A2) +1), затем перетащите дескриптор автозаполнения вниз к ячейке, для которой нужна эта формула. Смотрите скриншот:

Удалить начальные / конечные / дополнительные / все пробелы из строки

Но в большинстве случаев вам может потребоваться удалить начальные, конечные, дополнительные или все пробелы из списка строк. В Excel нет встроенной функции, которая может ее решить, но с Kutools for Excel — удобный и мощный инструмент для добавления в Excel, его утилита Remove Spaces может быстро выполнять указанные выше операции по мере необходимости.

После бесплатная установка Kutools for Excel, пожалуйста, сделайте следующее:

1. Выберите строки, в которых нужно удалить пробелы, и нажмите Кутулс > Текст > Удалить пробелы. Смотрите скриншот:

2. в Удалить пробелы диалог, отметьте опцию в Тип пространства как вам нужно, и вы можете просмотреть удаленный результат в предварительный просмотр раздел. Смотрите скриншот:

3. Нажмите Ok or Применить, теперь из выбранных строк удаляются пробелы.

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (0)

Оценок пока нет. Оцените первым!

Источник

0 / 0 / 0

Регистрация: 18.07.2018

Сообщений: 29

Поиск второго пробела в строке, функции =ПОИСК или =НАЙТИ

07.08.2018, 16:07. Показов 17608. Ответов 8

Всем доброго времени суток. Есть строка

ул. Северная д15

и в ней необходимо определить позицию второго пробела, того, который после названия улицы. Функции =ПОИСК и =НАЙТИ почему-то находят только позицию первого пробела. Пробовал дописывать «+1» к начальной позиции поиска, всё равно не помогает.
Заранее благодарю за помощь!

92 / 69 / 16

Регистрация: 22.01.2010

Сообщений: 311

07.08.2018, 16:26

Сообщение от Testingtest

… необходимо определить позицию второго пробела

Цель какая — что? для чего? почему? А если (по правилам) пробелу будет предшествовать запятая?!.

772 / 615 / 294

Регистрация: 05.01.2014

Сообщений: 1,338

07.08.2018, 16:31

Может так?

Код

=ПОИСК(" ";A1;ПОИСК(" ";A1)+1)

0 / 0 / 0

Регистрация: 18.07.2018

Сообщений: 29

07.08.2018, 16:33

[ТС]

AleksSid, да так, но я забыл добавить, что эта строка ул. Северная д.15 находится внутри другого текста. То есть на самом деле это не первый и не второй пробелы. Вот с этим не знаю как поступить.

772 / 615 / 294

Регистрация: 05.01.2014

Сообщений: 1,338

07.08.2018, 16:44

Выложите пример строк 10-15 текста, что есть и что должно получиться.

0 / 0 / 0

Регистрация: 18.07.2018

Сообщений: 29

07.08.2018, 16:45

[ТС]

AleksSid, «Москва, НЗ — 556, ЛР — 0,4 кВ, Секция трансформатора №15, Отходящие линии ВЛ, Р.?, ул. Северная д.15, Учет на опоре правый»

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

772 / 615 / 294

Регистрация: 05.01.2014

Сообщений: 1,338

07.08.2018, 17:21

Сообщение от Testingtest

Вот такая строка.

А при чем здесь второй пробел? Вообще не понятно что это вам дает? Можно еще так.

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

0 / 0 / 0

Регистрация: 18.07.2018

Сообщений: 29

07.08.2018, 17:30

[ТС]

AleksSid, вам вообще какая разница что это мне даёт? В общем понятно, если не можете помочь, то и не отвечайте больше.

92 / 69 / 16

Регистрация: 22.01.2010

Сообщений: 311

07.08.2018, 17:38

Сообщение от Testingtest

В общем понятно

Не по теме:

OFF Остыньте немного, спокойно подумайте и потрудитесь толково объяснить и на примере (файле) покажите — что, из чего, куда, как желательно вам получить. Когда известна цель, то и проще найти ЦЕЛЕСООБРАЗНЫЕ пути решения вопроса. Согласны?

Источник

Содержание:

1 Синтаксис функции
2 Примеры
3 Функция НАЙТИ() vs ПОИСК()
4 Связь с функциями ЛЕВСИМВ() , ПРАВСИМВ() и ПСТР()
- 4.1 Извлечение первого слова из строки
- 4.2 Извлечение последнего слова строки
- 4.3 Извлечение всего, кроме первого слова строки
5 Синтаксис функции СЖПРОБЕЛЫ в Excel
6 Пример использования функции СЖПРОБЕЛЫ
7 СЖПРОБЕЛЫ с другими функциями
8 Как еще можно удалить лишние пробелы в Excel?

Синтаксис функции

ПОИСК(искомый_текст;просматриваемая_строка;[нач_позиция])

Искомый_текст — текст, который требуется найти.

Просматриваемая_строка — текст, в которой ищется Искомый_текст.

Нач_позиция — позиция знака в просматриваемой_строке, с которой должен начинаться поиск. Если аргумент нач_позиция опущен, то предполагается значение 1.

В аргументе искомый_текст можно использовать подстановочные знаки — вопросительный знак (?) и звездочку (*). Вопросительный знак соответствует любому знаку; звездочка — любой последовательности знаков. Если нужно найти в тексте вопросительный знак или звездочку, следует поставить перед ними тильду (

Если искомый_текст не найден, возвращается значение ошибки #ЗНАЧ!

Функция ПОИСК() не учитывает РЕгиСТР букв. Для поиска с учетом регистра следует воспользоваться функцией НАЙТИ() .

Примеры

Формула =ПОИСК(«к»;»Первый канал») вернет 8, т.к. буква к находится на 8-й позиции слева.

Пусть в ячейке А2 введена строка Первый канал — лучший. Формула =ПОИСК(СИМВОЛ(32);A2) вернет 7, т.к. символ пробела (код 32) находится на 7-й позиции.

Формула =ПОИСК(«#. #»;»Артикул #123# ID») будет искать в строке «Артикул #123# ID» последовательность из 5 символов, которая начинается и заканчивается на знак #.

Чтобы найти позицию второго вхождения буквы «а» в строке «мама мыла раму» используйте формулу =ПОИСК(«а»;»мама мыла раму»;ПОИСК(«а»;»мама мыла раму»)+1). Чтобы определить есть ли третье вхождение буквы «м» в строке «мама мыла раму» используйте формулу =ЕСЛИ(ДЛСТР(ПОДСТАВИТЬ(«мама мыла раму»;»м»;»»;3))=ДЛСТР(«мама мыла раму»);»Нет третьего вхождения м»;»Есть третье вхождение м»)

Формула =ПОИСК(«клад?»;»докладная») вернет 3, т.е. в слове «докладная» содержится слово из 5 букв, первые 4 из которых клад (начиная с третьей буквы слова докладная).

Функция НАЙТИ() vs ПОИСК()

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

Связь с функциями ЛЕВСИМВ() , ПРАВСИМВ() и ПСТР()

Функция ПОИСК() может быть использована совместно с функциями ЛЕВСИМВ() , ПРАВСИМВ() и ПСТР() .

Например, в ячейке А2 содержится фамилия и имя «Иванов Иван», то формула =ЛЕВСИМВ(A2;ПОИСК(СИМВОЛ(32);A2)-1) извлечет фамилию, а =ПРАВСИМВ(A2;ДЛСТР(A2)-ПОИСК(СИМВОЛ(32);A2)) — имя. Если между именем и фамилией содержится более одного пробела, то для работоспособности вышеупомянутых формул используйте функцию СЖПРОБЕЛЫ() .

трюки • приёмы • решения

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

Извлечение первого слова из строки

Чтобы извлечь первое слово из строки, формула должна найти позицию первого символа пробела, а затем использовать эту информацию в качестве аргумента для функции ЛЕВСИМВ. Следующая формула делает это: =ЛЕВСИМВ(A1;НАЙТИ(» «;A1)-1) .

Эта формула возвращает весь текст до первого пробела в ячейке A1. Однако у нее есть небольшой недостаток: она возвращает ошибку, если текст в ячейке А1 не содержит пробелов, потому что состоит из одного слова. Несколько более сложная формула решает проблему с помощью новой функции ЕСЛИОШИБКА, отображая все содержимое ячейки, если произошла ошибка:
=ЕСЛИОШИБКА(ЛЕВСИМВ(A1;НАЙТИ(» «;A1)-1);A1) .

Если вам нужно, чтобы формула была совместима с более ранними версиями Excel, вы не можете использовать ЕСЛИОШИБКА. В таком случае придется обойтись функцией ЕСЛИ и функцией ЕОШ для проверки на ошибку:
=ЕСЛИ(ЕОШ(НАЙТИ(» «;A1));A1;ЛЕВСИМВ(A1;НАЙТИ(» «;A1)-1))

Извлечение последнего слова строки

Извлечение последнего слова строки — более сложная задача, поскольку функция НАЙТИ работает только слева направо. Таким образом, проблема состоит в поиске последнего символа пробела. Следующая формула, однако, решает эту проблему. Она возвращает последнее слово строки (весь текст, следующий за последним символом пробела):
=ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(«*»;ПОДСТАВИТЬ(A1;» «;»*»;ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;»»;»»)))))

Но у этой формулы есть такой же недостаток, как и у первой формулы из предыдущего раздела: она вернет ошибку, если строка не содержит по крайней мере один пробел. Решение заключается в использовании функции ЕСЛИОШИБКА и возврате всего содержимого ячейки А1, если возникает ошибка:
=ЕСЛИОШИБКА(ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(«*»;ПОДСТАВИТЬ(A1;» «;»*»;ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;» «;»»)))));A1)

Следующая формула совместима со всеми версиями Excel:
=ЕСЛИ(ЕОШ(НАЙТИ(» «;A1));A1;ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(«*»;ПОДСТАВИТЬ(A1;»»;»*»;ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;» «;»»))))))

Извлечение всего, кроме первого слова строки

Следующая формула возвращает содержимое ячейки А1, за исключением первого слова:
=ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(» «:A1;1)) .
Если ячейка А1 содержит текст 2008 Operating Budget, то формула вернет Operating Budget.

Формула возвращает ошибку, если ячейка содержит только одно слово. Следующая версия формулы использует функцию ЕСЛИОШИБКА, чтобы можно было избежать ошибки; формула возвращает пустую строку, если ячейка не содержит более одного слова:
=ЕСЛИОШИБКА(ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(» «;A1;1));»»)

А эта версия совместима со всеми версиями Excel:
=ЕСЛИ(ЕОШ(НАЙТИ(» «;A1));»»;ПРАВСИМВ(A1;ДЛСТР(A1)-НАЙТИ(» «;A1;1)))

Лишние пробелы в тексте замечают не все. И не для всех это, в общем-то, важно. Но в Excel это может обернуться серьезной проблемой, потому что при выполнении команд программа просто не будет учитывать ячейки с дополнительными пробелами.

Как удалить лишние пробелы в Excel в автоматическом режиме? Чтобы не испортить зрение, вглядываясь в каждую ячейку и убирая лишние доступы клавишей Backspace, можно воспользоваться специальной функцией – СЖПРОБЕЛЫ.

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

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

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

Пример использования функции СЖПРОБЕЛЫ

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

Невооруженным глазом видно, что некоторые позиции написаны с явными лишними пробелами. Рассмотрим, к чему это может привести.

Подсчитывать общее количество позиций по каждому виду игрушек будем через функцию СУММЕСЛИ. Вводим ее, протягиваем на остальные ячейки и смотрим результат. Программа выдала ответ по плюшевым зайцам: 3. Хотя мы видим, что их должно быть 3+2=5. В чем проблема? В лишних пробелах.

Запишем функцию в ячейке D3. В качестве аргумента введем ячейку B3, в которой значится наименование игрушки.

Теперь протянем функцию до 14 строки и увидим, что тексты действительно выровнялись, потому что пробелы удалились. Проверим это наверняка, изменив диапазон в команде СУММЕСЛИ. Вместо B3:B14 пропишем D3:D14 и посмотрим результат. Теперь плюшевых зайцев действительно 5, медведей – 6 и т.п. Получается, символы табуляции играют важную роль, и их нужно подчищать.

СЖПРОБЕЛЫ с другими функциями

Использование функции СЖПРОБЕЛЫ вместе с другими функциями расширяет возможности пользователя. Логично, что она будет использоваться вместе с теми функциями, которые исследуют массивы и возвращают данные. В частности, это функции НАЙТИ, ЛЕВСИМВ, ПРАВСИМВ и др. На практике оказывается, что чаще всего СЖПРОБЕЛЫ используется вместе с ВПР.

Рассмотрим на примере той же таблицы. Задача: проставить цену напротив каждой позиции. Справа дана вспомогательная таблица, в которой прописана цена каждой игрушки. Теоретически мы можем вручную перепечатать нужные нам цифры, но раз мы в Excel, будем использовать ВПР.

Если мы протянем формулу до конца таблицы, увидим следующее:

Розовым цветом мы специально подсветили те позиции, которые написаны с лишними пробелами. Поэтому команда ВПР не выдала по ним результат. Чтобы исправить это, добавим к ВПР функцию СЖПРОБЕЛЫ и посмотрим, что получится.

Т.к. пробелы нам нужно удалить в искомом значении, команду СЖПРОБЕЛЫ поставим на первое место в синтаксисе ВПР. Формула немного видоизменилась, и если теперь мы протянем ее до низа таблицы, функция проставит нам все значения. Теперь все правильно.

Как еще можно удалить лишние пробелы в Excel?

Избавиться от лишних пробелов можно и без использования функции СЖПРОБЕЛЫ. Воспользуемся старым проверенным способом, который нам знаком еще из WORD – команда НАЙТИ-ЗАМЕНИТЬ.

Пример останется тот же самый. Выделяем столбец, в котором прописаны наименования игрушек и нажимаем CTRL+H. В появившемся окне напротив НАЙТИ проставляем пробел, а напротив ЗАМЕНИТЬ НА не пишем ничего.

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

Источник

На чтение 12 мин. Просмотров 18.3k.

Функция VBA InStr является одной из наиболее часто используемых функций в VBA. Он используется для нахождения текста внутри строки и действительно отлично справляется с работой.

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

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

Содержание

Краткое руководство к статье
Краткая справка
Введение
Когда VBA InStr, Left, Right и Mid полезны
Работа со строками различной длины
Использование функции VBA InStr с Mid
Функция Split
Пример 1: Получение части имени файла
Пример 2: диапазон IP-адресов
Пример 3. Проверьте правильность имени файла
Заключение

Краткое руководство к статье

В следующей таблице приведено краткое руководство к тому, что рассматривается в этой статье.

Строка	Тип	Задача	Как
1234ABC334	Фиксированный размер	Оставить слева 4 символа	Left(s,4)
1234ABC334	Фиксированный размер	Оставить справа 3 символа	Right(s,3)
1234ABC334	Фиксированный размер	Оставить 5, 6, 7 символы	Mid(s,5,3)
«Иван Петрович Сидоров»	Переменный размер	Оставить имя	Split(s,» «)(0)
«Иван Петрович Сидоров»	Переменный размер	Оставить отчество	Split(s,» «)(1)
«Иван Петрович Сидоров»	Переменный размер	Оставить фамилию	Split(s,» «)(2)
«Иван Петрович Сидоров»	Переменный размер	Оставить фамилию	Dim v As Variant v = Split(s, » «) lastname= v(UBound(v))

Краткая справка

Чтобы узнать больше об элементах, упомянутых в статье, перейдите по следующим ссылкам:

Если вы хотите узнать больше о функциях InStr или InStrRev, пожалуйста, прочитайте Поиск в строке.
Если вы хотите узнать больше о функциях Mid, Left или Right, посмотрите раздел Извлечение части строки.
Для получения дополнительной информации о функции Split проверьте Строка в массив, используя Split.
Оператор Like включен в Сравнение строк с шаблоном

Я использую Debug.Print в моих примерах. Он печатает значения в Immediate Window, которое вы можете просмотреть, нажав Ctrl + G (или выберите View-> Immediate Window)

Введение

В этой статье я собираюсь показать вам лучший способ извлечения символов из строки, чем использование функции VBA InStr с Left, Right или Mid.

Эта статья разбита следующим образом:

Раздел 1: Как извлечь из строк фиксированного размера.
Раздел 2: Как извлечь из строк переменного размера.
Раздел 3: Как извлечь из строки переменного размера, используя функцию Split.
Разделы с 4 по 6: некоторые примеры из реальной жизни.

Когда VBA InStr, Left, Right и Mid полезны

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

Использование InStr для проверки, содержит ли строка текст

В следующем примере мы проверяем, содержит ли ФИО «Петрович». Если возвращаемое значение InStr больше нуля, то строка содержит значение, которое мы проверяем.

' Проверьте, содержит ли строка Петрович
    If InStr("Иван Петрович Сидоров", "Петрович") > 0 Then
        Debug.Print "Найдено"
    End If

Извлечение с Left, Right и Mid

Функция Left используется для получения символов слева от строки.
Функция Right используется для получения символов справа от строки.
Функция Mid используется для середины строки. Она такая же, как
Left, за исключением того, что вы даете ему стартовую позицию.

Sub IzvlechTekst()

    Dim s As String: s = "ABCD-7789.WXYZ"

    Debug.Print Left(s, 2) ' Печатает AB
    Debug.Print Left(s, 4) ' Печатает ABCD

    Debug.Print Right(s, 2) ' Печатает YZ
    Debug.Print Right(s, 4) ' Печатает WXYZ

    Debug.Print Mid(s, 1, 2) ' Печатает AB
    Debug.Print Mid(s, 6, 4) ' Печатает 7789

End Sub

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

Используйте Left, Right или Mid, когда символы всегда будут в одной и той же позиции.

Работа со строками различной длины

Многие из строк, с которыми вы имеет дело, разной длины. Простой пример — когда у вас есть дело со списком имен. Длина строки и требуемая часть (например, имя) могут каждый раз отличаться. Например:

Brooke Hilt
Pamela Jurado
Zack Kinzel
Eddy Wormley
Kaitlyn Rainer
Jacque Trickett
Kandra Stanbery
Margo Hoppes
Berenice Meier
Garrett Hyre

(Если вам нужен случайный список имен, попробуйте этот генератор случайных имен)

Использование функции VBA InStr с Left

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

Мы используем функцию VBA InStr, чтобы получить позицию первого пробела. Мы хотим получить все символы до пробела. Мы вычитаем одну из позиции, так как это дает нам позицию последней буквы имени.

Sub PoluchitImya()

    Dim s As String, lPosition As Long

    s = "John Henry Smith"
    ' Печатает John
    lPosition = InStr(s, " ") - 1
    Debug.Print Left(s, lPosition)

    s = "Lorraine Huggard"
    ' Печатает Lorraine
    lPosition = InStr(s, " ") - 1
    Debug.Print Left(s, lPosition)

End Sub

Давайте посмотрим на первый пример в приведенном выше коде. Первый пробел находится в позиции 5. Мы вычтем 1, что дает нам позицию 4. Это позиция последней буквы John, т.е.

Затем мы даем 4 функции Left, и она возвращает первые четыре символа, например, «John»

Мы можем выполнить ту же задачу в одной строке, передав возвращаемое значение из InStr в функцию Left.

 Dim s As String
    s = "John Henry Smith"

    ' Печатает John
    Debug.Print Left(s, InStr(s, " ") - 1)

Использование функции VBA InStr с Right

В этом примере мы получим последнее слово в строке, то есть Smith. Мы можем использовать функцию InStrRev. Это то же самое, что InStr, за исключением того, что поиск выполняется с конца строки.

Важно отметить, что InStrRev дает нам позицию с начала строки. Поэтому нам нужно использовать его немного иначе, чем мы использовали InStr и Left.

Sub PoluchitFamiliyu()

    Dim s As String: s = "John,Henry,Smith"
    Dim Position As Long, Length As Long

    Position = InStrRev(s, ",")
    Length = Len(s)

    ' Печатает Smith
    Debug.Print Right(s, Length - Position)

    ' Альтернативный метод. Печатает Smith - делает в одну строку
    Debug.Print Right(s, Len(s) - InStrRev(s, ","))

End Sub

Как работает приведенный выше пример:

Мы получаем позицию последнего пробела, используя InStrRev: 11
Мы получаем длину строки: 16.
Вычитаем позицию из длины: 16-11 = 5
Мы даем 5 функции Right и возвращаем Smith

Использование функции VBA InStr с Mid

В следующем примере мы получим «Henry» из строки. Слово, которое мы ищем, находится между первым и вторым пробелом.

Мы будем использовать функцию Mid здесь.

Sub PoluchitVtoroeImya()

    Dim s As String: s = "John Henry Smith"

    Dim firstChar As Long, secondChar As Long
    Dim count As Long

    ' Найти пробел плюс 1. Результат 6
    firstChar = InStr(s, " ") + 1
    ' Найти 2-й пробел. Результат 11
    secondChar = InStr(firstChar, s, " ")
    ' Получить число символов. Результат 5
    count = secondChar - firstChar

    ' Печатает Henry
    Debug.Print Mid(s, firstChar, count)

End Sub

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

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

Функция Split

Мы можем использовать функцию Split для выполнения приведенных выше примеров. Функция Split разбивает строку на массив. Тогда мы можем легко получить доступ к каждому элементу.

Давайте попробуем те же три примера еще раз, и на этот раз мы будем использовать Split.

  Dim s As String: s = "John Henry Smith"

    Debug.Print Split(s, " ")(0) ' John
    Debug.Print Split(s, " ")(1) ' Henry
    Debug.Print Split(s, " ")(2) ' Smith

Ого! Какая разница с использованием Split. Как это работает:

Функция Split разбивает строку везде, где есть пробел.
Каждый элемент помещается в массив, начиная с нуля.
Используя номер местоположения, мы можем получить доступ к элементу массива.

В следующей таблице показано, как может выглядеть массив после использования Split.

Примечание: первая позиция в массиве равна нулю. Наличие нулевых массивов является стандартным в языках программирования.

0	1	2
John	Henry	Smith

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

Sub SplitName()
    Dim s As String: s = "John Henry Smith"
    Dim arr() As String
    arr = Split(s, " ")

    Debug.Print arr(0) ' John
    Debug.Print arr(1) ' Henry
    Debug.Print arr(2) ' Smith
End Sub

Если вы хотите узнать больше о массивах, я написал о них целую статью под названием «Полное руководство по использованию массивов в Excel VBA».

В следующих разделах мы рассмотрим примеры из реальной жизни. Вы увидите преимущество использования Split вместо функции InStr.

Пожалуйста, не стесняйтесь попробовать это сами. Это отличный способ учиться, и вы можете повеселиться, пытаясь понять их (или, может быть, только у меня так!)

Пример 1: Получение части имени файла

Представьте, что мы хотим извлечь числа из следующих имен файлов

«VB_23476_Val.xls»
«VV_987_Val.txt»
«VZZA_12223_Val.doc»

Это похоже на пример, где мы получаем второй элемент. Чтобы получить значения здесь, мы используем подчеркивание (то есть «_»), чтобы разбить строку. Смотрите пример кода ниже:

Sub PoluchitNomer()

    ' Печатает 23476
    Debug.Print Split("VB_23476_Val.xls", "_")(1)
    ' Печатает 987
    Debug.Print Split("VV_987_Val.txt", "_")(1)
    ' Печатает 12223
    Debug.Print Split("ABBZA_12223_Val.doc", "_")(1)

End Sub

В реальном мире вы обычно читаете такие строки из разных ячеек. Допустим, эти имена файлов хранятся в ячейках от А1 до А3. Мы немного изменим приведенный выше код:

Sub ChitatNomera()

    Dim c As Range
    For Each c In Range("A1:A3")
        ' Разделите каждый элемент по мере его прочтения
        Debug.Print Split(c, "_")(1)
    Next c

End Sub

Пример 2: диапазон IP-адресов

Пример здесь взят из вопроса на веб-сайте StackOverflow.

У пользователя есть строка с IP-адресом в формате «BE-ABCDDD-DDS 172.16.23.3».

Он хочет, чтобы IP в диапазоне от 172,16 до 172,31 был действительным. Так например:

«BE-ABCDDD-DDS 172.16.23.3» действителен
«BE-ABCDDD-DDS 172.25.23.3» действителен

«BE-ABCDDED-DDS 172.14.23.3» не действителен
«BE-ABCDDDZZ-DDS 172.32.23.3» не действителен

Вот как бы я это сделал. Сначала я разбил строку по периодам. Число, которое мы ищем, находится между первым и вторым периодом. Поэтому это второй пункт. Когда мы разделяем строку, она помещается на первую позицию в массиве (помните, что массив начинается с нулевой позиции).

Полученный массив будет выглядеть так:

0	1	2	3
BE-ABCDDD-DDS 172	31	23	3

Код ниже показывает, как это сделать.

Sub IPAdd()

    ' Проверьте номер, чтобы проверить разные IP-адреса
    Dim s1 As String: s1 = "BE-ABCDDD-DDS 172.31.23.3"

    ' Разбить строку, используя символ точки
    Dim num As Long
    num = Split(s1, ".")(1)

    ' Проверьте правильность номера
    Debug.Print num >= 16 And num <= 31

End Sub

Пример 3. Проверьте правильность имени файла

В этом последнем примере мы хотим проверить правильность имени файла. Есть три правила.

Должно заканчиваться на .pdf
Он должен содержать АА
Он должен содержать 1234 после А

В следующих таблицах показаны некоторые допустимые и недействительные элементы:

Имя файла	Статус
AA1234.pdf	Действителен
AA_ljgslf_1234.pdf	Действителен
AA1234.pdf1	Недействительно — не заканчивается на .pdf
1234 AA.pdf	Недействительно — АА не до 1234
12_AA_1234_NM.pdf	Действителен

Сначала мы сделаем это, используя функции InStr и Right.

Sub IspInstr()

    Dim f As String: f = "AA_1234_(5).pdf"

    ' Сначала найдите АА, так как 1234 должен идти после
    Dim lPos As Long: lPos = InStr(f, "AA")
    ' Ищите 1234 и убедитесь, что последние четыре символа - .pdf
    Debug.Print InStr(lPos, f, "1234") > 0 And Right(f, 4) = ".pdf"

End Sub

Этот код очень грязный. К счастью для нас, у VBA есть Сравнение с шаблоном. Мы можем проверить шаблон строки без необходимости искать элементы и позиции и т.д. Мы используем оператор Like в VBA для сопоставления с шаблоном. Пример ниже показывает, как это сделать.

Sub IspSravnenie()

    Dim f As String: f = "AA_1234_(5).pdf"

    ' Определить шаблон
    Dim pattern As String: pattern = "*AA*1234*.pdf"
    ' Проверьте каждый элемент по шаблону
    Debug.Print f Like pattern   ' ИСТИНА

End Sub

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

Давайте разберем этот паттерн * AA * 1234 * .pdf

*- любая группа символов
AA — точные символы AА

*- любая группа символов
1234 — точные символы 1234

*- любая группа символов
.pdf — точные символы .pdf

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

Sub IspSravnenieTest()

    ' Создать коллекцию имен файлов
    Dim coll As New Collection
    coll.Add "AA1234.pdf"
    coll.Add "AA_ljgslf_1234.pdf"
    coll.Add "AA1234.pdf1"
    coll.Add "1234 AA.pdf"
    coll.Add "12_AA_1234_NM.pdf"

    ' Определить шаблон
    Dim pattern As String: pattern = "*AA*1234*.pdf"

    ' Проверьте каждый элемент по шаблону
    Dim f As Variant
    For Each f In coll
        Debug.Print f Like pattern
    Next f

End Sub

На выходе:

ИСТИНА
ИСТИНА
ЛОЖЬ
ЛОЖЬ
ИСТИНА

Чтобы узнать больше о сопоставлении с шаблоном и ключевом слове Like, ознакомьтесь с этой публикацией.

Заключение

InStr и InStrRev действительно полезны только для простых задач, таких как проверка наличия текста в строке.

Left, Right и Mid полезны, когда положение текста всегда одинаково.

Функция Split — лучший способ извлечь переменную строку.

При попытке проверить формат строки, которая не является фиксированной по размеру, ключевое слово Like (т.е. Сопоставление с образцом) обычно обеспечивает более простое решение.

Источник

Ситуация:
Есть ячейка, в ней текст, например: «Слово1[пробел1]Слово2[пробел2][пробел3])» Как нужно написать код, чтобы:
Брался последний символ в ячейке, если это пробел, то берётся предпоследний итд (т.е. перебор справа-налево), пока не дойдёт до символа, отличного от пробела. Перебор справа-налево продолжается, пока не дойдёт до следующего пробела (в примере это [пробел1]). Затем всё, что находится правее этого пробела удаляется (в примере это Слово2).

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

Буду очень благодарен за ответ, т.к. хочу автоматизировать процесс, иначе в ручную буду месяц удалять, а нервы — они не железные )
PS: И как раньше люди без экселя жили?

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	=ЛЕВСИМВ(A1;НАЙТИ(» «;A1)-1)

	=ПСТР(A1;1;НАЙТИ(» «;A1;1)-1) Данная формула возвращает текст до первого пробела… =ЕСЛИ(ЕОШ(ПСТР(A1;1;НАЙТИ(» «;A1;1)-1));A1;ПСТР(A1;1;НАЙТИ(» «;A1;1)-1)) А здесь добавлена проверка на ошибку когда нет пробелов в строке…

Большое спасибо за ответ. Извиняюсь за назойливость, а можно то же самое, но на VBA сделать? Просто я хотел эту часть кода включить в перебор ячеек в выделеном диапазоне, и не ожидал, что вы ответите с исп. функций эксель)
Ещё раз простите, что сразу не сказал, что надо на VBA, совсем вылетело из головы.

Kuzmich Пользователь Сообщений: 7998 Регистрация: 21.12.2012	Используйте функцию MID(string, start, length) она извлекает определенное количество символов из строки и цикл до нахождения первого пробела

Pavel

Пользователь

Сообщений: 126
Регистрация: 01.01.1970

подскажите пожалуйста как быть если слов в ячейке много и надло разделаить по последнему пробелу? идельным вариантом было бы разделение по латинским буквам.
к примеру:
S1265 фара передняя левая AUDIRS5
нужно:
S1265 фара передняя левая

спасибо.

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Public Sub www() Dim a$ a = Left([A1], InStrRev([A1], » «)) MsgBox a End Sub =88088= Я сам — дурнее всякого примера! …

webley Пользователь Сообщений: 1995 Регистрация: 01.01.1970	С Вашего разрешения немного поправлю: Public Sub www() Dim a$ a = Left([A1], InStrRev([A1], » «) — 1) Debug.Print a End Sub

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	=ЛЕВСИМВ(A1;НАЙТИ(«/»;ПОДСТАВИТЬ(A1;» «;»/»;ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;» «;»»))))-1)

Pavel Пользователь Сообщений: 126 Регистрация: 01.01.1970	спасибо за ответы. можно ли формулой заменить последний пробел(или 2 последних пробела) на «@», а затем отделить через текст по столбцам?

The_Prist Пользователь Сообщений: 14182 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	Один последний пробел: =ПОДСТАВИТЬ(A1;» «;»@»;ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;» «;»»))) Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

	как вы меня все время выручаете! спасибо!

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Вы формулой меняете один пробел, потом разделение по столбцам, потом удаление лишнего. Формулой выше подтягиваете нужную первую часть. Если нужна и вторая, то =ПРАВСИМВ(A1;ДЛСТР(A1)-ДЛСТР(E1))

Pavel Пользователь Сообщений: 126 Регистрация: 01.01.1970

Eugeon Пользователь Сообщений: 51 Регистрация: 01.01.1970	{quote}{login=vikttur}{date=11.10.2010 09:17}{thema=}{post}=ЛЕВСИМВ(A1;НАЙТИ(«/»;ПОДСТАВИТЬ(A1;» «;»/»;ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;» «;»»))))-1){/post}{/quote} А что если нужно выделить слова идущие после 2-ого пробела

vikttur

Пользователь

Сообщений: 47199
Регистрация: 15.09.2012

Слова до второго пробела:
=ЛЕВСИМВ(A1;НАЙТИ(«/»;ПОДСТАВИТЬ(A1;» «;»/»;2)-1)
После второго — ПРАВСИМВ(): длина полной строки минус длина строки до второго пробела. Или ПСТР(): со второго пробела и до конца (можно задать максимальнім числом знаков).

	Вить, наверное, ты чуть ошибся в формуле про слова до 2-го пробела =ЛЕВСИМВ(A1;НАЙТИ(«/»;ПОДСТАВИТЬ(A1;» «;»/»;2))-1) Павел

k61 Пользователь Сообщений: 2441 Регистрация: 21.12.2012	В ячейке A1 исходный текст. В ячейку B1 пишем результат: Sub www() Cells(1, 2).Clear текст = «» НомерПробела = 2 For i = НомерПробела To UBound(Split(Cells(1, 1), » «)) текст = текст & » » & Split(Cells(1, 1), » «)(i) Next i Cells(1, 2) = Trim(текст) End Sub

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	{quote}{login=}{date=10.01.2012 08:46}{thema=}{post}Вить, наверное, ты чуть ошибся в формуле про слова до 2-го пробела{/post}{/quote} Ну да, «наколенный» вариант! Начинаешь изучать формулы?

ну, «средние» формулы я всегда знал (там НАЙТИ, ВПР, ГПР, ИНДЕКС, ПОИСКПОЗ, СУММПРОИЗВ и т.д).

А вот когда вы там «извращаетесь» с длинными формулами, то я пасс))
Если можно решить задачу «средними» формулами, я пишу формулы, а когда что-то посложнее, я пишу функции )) Функция более понятнее для меня.
Просто на нашем форуме я стараюсь на вопросы по формулам не отвечать, меня больше макросы интересуют )

забыл дописать, что так же умею пользоваться F9 в длинной формуле, чтобы понять результат какой-то её части. Ну. и конечно встроенный инструмент Excel «Вычислить формулу», когда пошагово показывается её вычислений )
Мне этого хватает )

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

MCH Пользователь Сообщений: 3875 Регистрация: 22.12.2012	Сделайте ссылку в функции СТРОКА абсолютной: СТРОКА($1:$999)

MCH Пользователь Сообщений: 3875 Регистрация: 22.12.2012	Вариант формулы (массивный ввод не требуется): =ПСТР(A1;ПРОСМОТР(100;ПОИСК(» «;» «&A1;СТРОКА($1:$99)));99)

	МСН? cпасибо!!! Работает!!! и спасибо за такой быстрый ответ!

	Мужики есть произвольная строка (предложение, кол-во пробелов разное нужно последнее слово вырезать в другую ячейку

Владимир Пользователь Сообщений: 8196 Регистрация: 21.12.2012	Да не проблема. Правила не поленитесь прочесть, чтоб я Вам не задавал массу вопросов. «..Сладку ягоду рвали вместе, горьку ягоду я одна.»

ShAM Пользователь Сообщений: 469 Регистрация: 05.01.2013	{quote}{login=Евменчик}{date=14.07.2012 12:57}{thema=}{post}Мужики есть произвольная строка (предложение, кол-во пробелов разное нужно последнее слово вырезать в другую ячейку{/post}{/quote}Вы формулу МСН от 11.01.2012, 20:26 пробовали? Она это и делает.

Nemo Пользователь Сообщений: 4 Регистрация: 01.01.1970	Здравствуйте! Объясните, пожалуйста, принцип формулы =ПСТР(A1;ПРОСМОТР(100;ПОИСК(» «;» «&A1;СТРОКА($1:$99)));99), которую привел MCH. Спасибо!

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#30 14.08.2012 12:54:41 Замените 99 на 9, 100 на 10 и вычислите формулу поэтапно. Почитайте справку по ПРОСМОТР и ПОИСК.

Источник