Страницы: 1
RSS
в отдельную строку данные из ячейки содержащей несколько данных, В ячейке содержится несколько данных - нужно выделить и перенести только номера телефона
 
В ячейке содержится несколько данных (знаки, номера телефона, номера карт) нужно в отдельную строку перенести только номера телефона - какую формулу для этого использовать  
 
Осмелюсь предложить решение с другого сайта.
*Или здесь.
Изменено: Светлый - 03.11.2019 09:48:42
 
Светлый, ни один из вариантов не работает с картинками :-)
По вопросам из тем форума, личку не читаю.
 
Во вторник человек один подскажет, выложу сюда решение  
 
А пример выложить вы не собираетесь?
 
vasiliytretyakov, Вы бы вместо картинки прикрепили небольшой Excel-файл - возможно, решение получите до вторника ))
 
Андей ‭+7 (953) 196-09-20‬
Уже звоню, до вторника я совершенно свободен

:D

По  данным примера достаточно просто
=IFERROR(TRIM(IFERROR(MID(B2;FIND(" 8";" "&B2);12);MID(B2;FIND("+7";B2);18)));"")
Изменено: БМВ - 03.11.2019 21:44:18
По вопросам из тем форума, личку не читаю.
 
Класс - номер карты с номером телефона, по которому вероятно не особо трудно пробить имя на карте. Осталось только узнать CVV код, и максимум с 48-й попытки угадать срок годности карты...
Вы вообще понимает что творите?
 
Hugo,  Кого берете, Саню с картой Сбера Visa 4276 **** **** 6472
или  Анрея 4276 **** **** 2807.
"Это служба безопасности банка, Вы совершали операции? Мы сейчас вас идентифицируем назовите ваш CVV код …. :-)"
Изменено: БМВ - 03.11.2019 22:07:02
По вопросам из тем форума, личку не читаю.
 
Вот вот...
Не особо сложно ведь сделать пример строк на десять с выдуманными номерами карт - чтоб не казалось что реальные - начинайте не на 4, 5 и 6 (+ я не в курсе с чего там в России МИР начинает, тоже нужно учесть), можно взять те же реальные и поменять пару первых цифр и тройку в середине, ну и телефоны тоже в середине цифры изменить.
А чтоб получить тот же текстовый формат как было - можно всё это заготовить в блокноте, и затем копипастом поместить в эксель.
 
Цитата
vasiliytretyakov написал:
какую формулу для этого использовать
я бы использовал функцию №Телефона(Txt As String) As String
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Как вариант для большинства случаев:
Код
Function №Телефона(Txt As String) As String
    Dim el
    №Телефона = ""
    For Each el In Split(Application.Trim(Txt))
        If Len(el) <> 16 Then
            If Len(el) > 7 Then
                №Телефона = el: Exit Function
            End If
        End If
    Next
End Function
Страницы: 1
Наверх