Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Оставить текст перед последней запятой в Excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Оставить текст перед последней запятой в Excel (Макросы/Sub)
Оставить текст перед последней запятой в Excel
parovoznik Дата: Среда, 25.10.2017, 16:12 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 450
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Добрый день.
Имеется список ТМЦ. Нужно получить два значения в столбцах : ТМЦ и единицу измерения(отдельно). В наименовании ТМЦ имеется в некоторых позициях две запятые. Как прописать правильно формулы для получения отдельно ТМЦ и единицу измерения?
Прилагаю файл. Желтым цветом отмечены данные с неверным ТМЦ.
К сообщению приложен файл: 7769415.xlsm (19.3 Kb)
 
Ответить
СообщениеДобрый день.
Имеется список ТМЦ. Нужно получить два значения в столбцах : ТМЦ и единицу измерения(отдельно). В наименовании ТМЦ имеется в некоторых позициях две запятые. Как прописать правильно формулы для получения отдельно ТМЦ и единицу измерения?
Прилагаю файл. Желтым цветом отмечены данные с неверным ТМЦ.
Автор - parovoznik
Дата добавления - 25.10.2017 в 16:12
_Boroda_ Дата: Среда, 25.10.2017, 16:18 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 17006
Репутация: 6667 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Так нужно?
Код
=СЖПРОБЕЛЫ(ЛЕВСИМВ(A2;ДЛСТР(A2)-ДЛСТР(C2)-2))

Если Вам нужна формула, то наверное тему нужно перенести из ветки VBA?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
Код
=СЖПРОБЕЛЫ(ЛЕВСИМВ(A2;ДЛСТР(A2)-ДЛСТР(C2)-2))

Если Вам нужна формула, то наверное тему нужно перенести из ветки VBA?
Автор - _Boroda_
Дата добавления - 25.10.2017 в 16:18
parovoznik Дата: Среда, 25.10.2017, 16:36 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 450
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Boroda_,спасибо работает.
Может я неверно описал , я думал ,что предложат вариант с формулой или UDF hands
Я думаю ,что перенос в раздел Excel не нужен.
 
Ответить
СообщениеBoroda_,спасибо работает.
Может я неверно описал , я думал ,что предложат вариант с формулой или UDF hands
Я думаю ,что перенос в раздел Excel не нужен.
Автор - parovoznik
Дата добавления - 25.10.2017 в 16:36
InExSu Дата: Вторник, 14.11.2017, 22:56 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 650
Репутация: 96 ±
Замечаний: 0% ±

Excel 2010, 365
Цитата parovoznik, 25.10.2017 в 16:12, в сообщении № 1 ()
формулы для получения отдельно ТМЦ

Код
=ЕСЛИОШИБКА(ЛЕВСИМВ(A2;НАЙТИ(",";A2;НАЙТИ(",";A2)+1)-2);ЛЕВСИМВ(A2;НАЙТИ(",";A2)-1))

Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
 
Ответить
Сообщение
Цитата parovoznik, 25.10.2017 в 16:12, в сообщении № 1 ()
формулы для получения отдельно ТМЦ

Код
=ЕСЛИОШИБКА(ЛЕВСИМВ(A2;НАЙТИ(",";A2;НАЙТИ(",";A2)+1)-2);ЛЕВСИМВ(A2;НАЙТИ(",";A2)-1))
Автор - InExSu
Дата добавления - 14.11.2017 в 22:56
Kuzmich Дата: Вторник, 14.11.2017, 23:21 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 717
Репутация: 159 ±
Замечаний: 0% ±

Excel 2003
Цитата
предложат вариант с формулой или UDF

UDF
[vba]
Код
Function TextComma(cell As String) As String
   TextComma = Left(cell, InStrRev(cell, ",") - 1)
End Function
[/vba]
 
Ответить
Сообщение
Цитата
предложат вариант с формулой или UDF

UDF
[vba]
Код
Function TextComma(cell As String) As String
   TextComma = Left(cell, InStrRev(cell, ",") - 1)
End Function
[/vba]
Автор - Kuzmich
Дата добавления - 14.11.2017 в 23:21
parovoznik Дата: Вторник, 14.11.2017, 23:55 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 450
Репутация: 26 ±
Замечаний: 0% ±

Excel 2013
Kuzmich, Ваш результат c UDF верный,СПАСИБО hands
InExSu, применил Вашу формулу - некоторые позиции некорректно отражены. :o
Смотрите файл.
К сообщению приложен файл: 3670830.xlsm (19.4 Kb)
 
Ответить
СообщениеKuzmich, Ваш результат c UDF верный,СПАСИБО hands
InExSu, применил Вашу формулу - некоторые позиции некорректно отражены. :o
Смотрите файл.
Автор - parovoznik
Дата добавления - 14.11.2017 в 23:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Оставить текст перед последней запятой в Excel (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2026 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!