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

Вход

Регистрация

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

 

= Мир MS Excel/Вытащить данные из ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вытащить данные из ячейки (Формулы/Formulas)
Вытащить данные из ячейки
Leeloo Дата: Понедельник, 24.08.2015, 20:26 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Нужна помощь вытащить данные из ячейки в отдельный столбик.
1120206 Космос хром 6*60W Е14 220 V люстра - Нужно вытащить цифру перед звездочкой , в данном случае это - 6
К сообщению приложен файл: 4139648.xlsx (8.5 Kb)
 
Ответить
СообщениеНужна помощь вытащить данные из ячейки в отдельный столбик.
1120206 Космос хром 6*60W Е14 220 V люстра - Нужно вытащить цифру перед звездочкой , в данном случае это - 6
Автор - Leeloo
Дата добавления - 24.08.2015 в 20:26
Nic70y Дата: Понедельник, 24.08.2015, 20:32 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8761
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
если это цифра, то можно так (как вариант):
Код
=--ПРАВБ(ЛЕВБ(A1;ПОИСК("~*";A1)-1))
, а если число:
Код
=--ПРАВБ(ПОДСТАВИТЬ(ЛЕВБ(A1;ПОИСК("~*";A1)-1);" ";ПОВТОР(" ";15));15)
К сообщению приложен файл: 0-12.xlsx (9.8 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщениеесли это цифра, то можно так (как вариант):
Код
=--ПРАВБ(ЛЕВБ(A1;ПОИСК("~*";A1)-1))
, а если число:
Код
=--ПРАВБ(ПОДСТАВИТЬ(ЛЕВБ(A1;ПОИСК("~*";A1)-1);" ";ПОВТОР(" ";15));15)
Автор - Nic70y
Дата добавления - 24.08.2015 в 20:32
МВТ Дата: Понедельник, 24.08.2015, 21:13 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
Можно такую UDF попробовать (возвращает цифру/число как текст, в том числе воспринимает "." и "," как разделители)
[vba]
Код
Function GetDigit(Text As String)
Dim Text1 As String
With CreateObject("VBScript.RegExp")
.Pattern = "[\d.,]+\*\d+"
Text1 = Application.WorksheetFunction.Trim(.Execute(Text).Item(0))
GetDigit = Left(Text1, InStr(Text1, "*") - 1)
End With
End Function
[/vba]


Сообщение отредактировал МВТ - Понедельник, 24.08.2015, 21:16
 
Ответить
СообщениеМожно такую UDF попробовать (возвращает цифру/число как текст, в том числе воспринимает "." и "," как разделители)
[vba]
Код
Function GetDigit(Text As String)
Dim Text1 As String
With CreateObject("VBScript.RegExp")
.Pattern = "[\d.,]+\*\d+"
Text1 = Application.WorksheetFunction.Trim(.Execute(Text).Item(0))
GetDigit = Left(Text1, InStr(Text1, "*") - 1)
End With
End Function
[/vba]
Автор - МВТ
Дата добавления - 24.08.2015 в 21:13
Leeloo Дата: Понедельник, 24.08.2015, 21:20 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Цитата Nic70y, 24.08.2015 в 20:32, в сообщении № 2
а если число:
[Перевод / Translate]
=--ПРАВБ(ПОДСТАВИТЬ(ЛЕВБ(A1;ПОИСК("~*";A1)-1);" ";ПОВТОР(" ";15));15)


Супер!! все получилось!
 
Ответить
Сообщение
Цитата Nic70y, 24.08.2015 в 20:32, в сообщении № 2
а если число:
[Перевод / Translate]
=--ПРАВБ(ПОДСТАВИТЬ(ЛЕВБ(A1;ПОИСК("~*";A1)-1);" ";ПОВТОР(" ";15));15)


Супер!! все получилось!
Автор - Leeloo
Дата добавления - 24.08.2015 в 21:20
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вытащить данные из ячейки (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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