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

Вход

Регистрация

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

 

= Мир MS Excel/Извлечь данные из ячейки - Мир MS Excel

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

Excel 2013
Здравствуйте, помогите пожалуйста )))

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

Огромная благодарность кто поможет! )))
К сообщению приложен файл: 9609698.xlsx (8.0 Kb)


Сообщение отредактировал dimss - Пятница, 06.10.2017, 02:01
 
Ответить
СообщениеЗдравствуйте, помогите пожалуйста )))

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

Огромная благодарность кто поможет! )))
Автор - dimss
Дата добавления - 06.10.2017 в 01:40
buchlotnik Дата: Пятница, 06.10.2017, 01:53 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Здравствуйте, прочитайте Правила форума и приложите файл-пример. А так можете глянуть регулярки - вас execute интересует


Сообщение отредактировал buchlotnik - Пятница, 06.10.2017, 01:57
 
Ответить
СообщениеЗдравствуйте, прочитайте Правила форума и приложите файл-пример. А так можете глянуть регулярки - вас execute интересует
Автор - buchlotnik
Дата добавления - 06.10.2017 в 01:53
Che79 Дата: Пятница, 06.10.2017, 04:11 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1649
Репутация: 306 ±
Замечаний: 0% ±

2013 Win, 365 Mac
dimss, ну и пример у Вас... Хотя бы, тему повнятней назовите.
Если размеры товара всегда двузначные, то для Вашего примера можно так
Код
=ПСТР(A$1;1+3*(СТРОКА()=3)+3*(ДЛСТР(A1)=0);2)
:)

Делай нормально и будет нормально!

Сообщение отредактировал _Boroda_ - Пятница, 06.10.2017, 09:29
 
Ответить
Сообщениеdimss, ну и пример у Вас... Хотя бы, тему повнятней назовите.
Если размеры товара всегда двузначные, то для Вашего примера можно так
Код
=ПСТР(A$1;1+3*(СТРОКА()=3)+3*(ДЛСТР(A1)=0);2)
:)
Автор - Che79
Дата добавления - 06.10.2017 в 04:11
vikttur Дата: Пятница, 06.10.2017, 09:09 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Репутация: 526 ±
Замечаний: 0% ±

Che79, зачем такие извращения, если можно прописать простую формулу в каждой ячейке? Подсовываете утяжеленное решение :)
Код
=ПСТР(A$1;4;2)

Если все-таки нужна протягиваеемая:
Код
=ПСТР(A$1;(СТРОКА(A1)-1)*3+1;2)

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


Сообщение отредактировал _Boroda_ - Пятница, 06.10.2017, 09:29
 
Ответить
СообщениеChe79, зачем такие извращения, если можно прописать простую формулу в каждой ячейке? Подсовываете утяжеленное решение :)
Код
=ПСТР(A$1;4;2)

Если все-таки нужна протягиваеемая:
Код
=ПСТР(A$1;(СТРОКА(A1)-1)*3+1;2)

Но смысла в таком протягивании не вижу - значения должны быть размещены по горизонтали.
Автор - vikttur
Дата добавления - 06.10.2017 в 09:09
sv2014 Дата: Пятница, 06.10.2017, 09:12 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация: 61 ±
Замечаний: 0% ±

Excel 2013
dimss, вариант макроса,кнопка test

[vba]
Код
Sub test()
  Dim i&, t$: t = Range("A1")
  With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True
        For i = 0 To .Execute(t).Count - 1: Range("B1").Offset(, i).Value = .Execute(t)(i): Next
  End With
End Sub
[/vba]


Сообщение отредактировал _Boroda_ - Пятница, 06.10.2017, 09:29
 
Ответить
Сообщениеdimss, вариант макроса,кнопка test

[vba]
Код
Sub test()
  Dim i&, t$: t = Range("A1")
  With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True
        For i = 0 To .Execute(t).Count - 1: Range("B1").Offset(, i).Value = .Execute(t)(i): Next
  End With
End Sub
[/vba]
Автор - sv2014
Дата добавления - 06.10.2017 в 09:12
buchlotnik Дата: Пятница, 06.10.2017, 09:13 | Сообщение № 6
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
Цитата
подсовываете утяжеленное решение
какой подсунули пример (а точнее издевательскую отписку), такое и решение


Сообщение отредактировал buchlotnik - Пятница, 06.10.2017, 09:15
 
Ответить
Сообщение
Цитата
подсовываете утяжеленное решение
какой подсунули пример (а точнее издевательскую отписку), такое и решение
Автор - buchlotnik
Дата добавления - 06.10.2017 в 09:13
_Boroda_ Дата: Пятница, 06.10.2017, 09:28 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 16881
Репутация: 6593 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
- Прочитайте Правила форума
- Исправьте название темы согласно п.2 Правил форума
До исправления ответы скрыты, файлы удалены

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение- Прочитайте Правила форума
- Исправьте название темы согласно п.2 Правил форума
До исправления ответы скрыты, файлы удалены
Автор - _Boroda_
Дата добавления - 06.10.2017 в 09:28
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Извлечь данные из ячейки (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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