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

Вход

Регистрация

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

 

= Мир MS Excel/Номера телефонов - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Номера телефонов
Mezhik Дата: Суббота, 19.01.2013, 16:42 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация: 0 ±
Замечаний: 20% ±

2019
Добрый день!
В одну ячейку внесено через запятую несколько номеров телефонов. При помощи какой формулы можно вытаскивать только первый номер телефона?
К сообщению приложен файл: 9668772.xlsx (9.2 Kb)


Сообщение отредактировал Mezhik - Суббота, 19.01.2013, 16:57
 
Ответить
СообщениеДобрый день!
В одну ячейку внесено через запятую несколько номеров телефонов. При помощи какой формулы можно вытаскивать только первый номер телефона?

Автор - Mezhik
Дата добавления - 19.01.2013 в 16:42
Michael_S Дата: Суббота, 19.01.2013, 16:52 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2012
Репутация: 373 ±
Замечаний: 0% ±

Excel2016
При помощи ЛЕВСИМВ() или ПСТР() и еще ПОИСК()
 
Ответить
СообщениеПри помощи ЛЕВСИМВ() или ПСТР() и еще ПОИСК()

Автор - Michael_S
Дата добавления - 19.01.2013 в 16:52
ikki Дата: Суббота, 19.01.2013, 17:07 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1906
Репутация: 504 ±
Замечаний: 0% ±

Excel 2003, 2010
(заодно и раскраску RC проверим)
Код
=ЛЕВСИМВ(RC[-1];ПОИСК(",";RC[-1])-1)


помощь по Excel и VBA
ikki@fxmail.ru, icq 592842413, skype alex.ikki
 
Ответить
Сообщение(заодно и раскраску RC проверим)
Код
=ЛЕВСИМВ(RC[-1];ПОИСК(",";RC[-1])-1)

Автор - ikki
Дата добавления - 19.01.2013 в 17:07
AlexM Дата: Суббота, 19.01.2013, 17:08 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4514
Репутация: 1129 ±
Замечаний: 0% ±

Excel 2003
Формула для В2
Код
=ЗАМЕНИТЬ(A2;17;99;"")



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеФормула для В2
Код
=ЗАМЕНИТЬ(A2;17;99;"")

Автор - AlexM
Дата добавления - 19.01.2013 в 17:08
_Boroda_ Дата: Суббота, 19.01.2013, 21:46 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16675
Репутация: 6481 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
А если это разовая операция, то можно выделить все нужные ячейки, нажать Ctrl+h, в "Найти" завести ,* (запятая и звездочка), в "Заменить на" - ничего, "Заменить все".


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА если это разовая операция, то можно выделить все нужные ячейки, нажать Ctrl+h, в "Найти" завести ,* (запятая и звездочка), в "Заменить на" - ничего, "Заменить все".

Автор - _Boroda_
Дата добавления - 19.01.2013 в 21:46
Ralf Дата: Воскресенье, 20.01.2013, 13:57 | Сообщение № 6
Группа: Пользователи
Ранг: Участник
Сообщений: 71
Репутация: 5 ±
Замечаний: 0% ±

можно ещё пользовательской функцией:

[vba]
Код

Public Function сплит(Текст As String, НомерСтроки As Long)
            сплит = Split(Текст, ",")(НомерСтроки - 1)
End Function
[/vba]

возвращает нужный по счёту элемент, причём в качестве разделителя можно задавать непечатные символы типа CHR(10)
 
Ответить
Сообщениеможно ещё пользовательской функцией:

[vba]
Код

Public Function сплит(Текст As String, НомерСтроки As Long)
            сплит = Split(Текст, ",")(НомерСтроки - 1)
End Function
[/vba]

возвращает нужный по счёту элемент, причём в качестве разделителя можно задавать непечатные символы типа CHR(10)

Автор - Ralf
Дата добавления - 20.01.2013 в 13:57
  • Страница 1 из 1
  • 1
Поиск:

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