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

Вход

Регистрация

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

 

= Мир MS Excel/Требуется перенести данные из одной ячейки в 3 разные - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Требуется перенести данные из одной ячейки в 3 разные (Формулы/Formulas)
Требуется перенести данные из одной ячейки в 3 разные
hometigrica Дата: Понедельник, 03.07.2017, 07:37 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Ребят, есть проблемка, с Экселем не дружу, требуется помощь. Имеется таблица (прилагаю), необходимо как то отделить в другие ячейки дома и квартиры
Если кто поможет, буду очень признательна :)
К сообщению приложен файл: 2268309.xls(17Kb)


Сообщение отредактировал hometigrica - Понедельник, 03.07.2017, 11:58
 
Ответить
СообщениеРебят, есть проблемка, с Экселем не дружу, требуется помощь. Имеется таблица (прилагаю), необходимо как то отделить в другие ячейки дома и квартиры
Если кто поможет, буду очень признательна :)

Автор - hometigrica
Дата добавления - 03.07.2017 в 07:37
vikttur Дата: Понедельник, 03.07.2017, 08:40 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2387
Репутация: 412 ±
Замечаний: 0% ±

Покажите больше вариантов написания адреса. Обычно там черт ногу сломит и извлечение данных из таких текстов большая головоморока. Но, возможно, у Вас все проще и поможет пара простых формул:
Код
=ПСТР(ПСТР(J2;ПОИСК(",";J2)-4;4);ПОИСК(" ";ПСТР(J2;ПОИСК(",";J2)-4;4))+1;4)

Код
=ПСТР(J2;ПОИСК("кв.";J2)+3;5)


Сообщение отредактировал vikttur - Понедельник, 03.07.2017, 08:40
 
Ответить
СообщениеПокажите больше вариантов написания адреса. Обычно там черт ногу сломит и извлечение данных из таких текстов большая головоморока. Но, возможно, у Вас все проще и поможет пара простых формул:
Код
=ПСТР(ПСТР(J2;ПОИСК(",";J2)-4;4);ПОИСК(" ";ПСТР(J2;ПОИСК(",";J2)-4;4))+1;4)

Код
=ПСТР(J2;ПОИСК("кв.";J2)+3;5)

Автор - vikttur
Дата добавления - 03.07.2017 в 08:40
hometigrica Дата: Понедельник, 03.07.2017, 12:00 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Излишнее цитирование удалено. Прочитайте Правила форума

Я вложила новый файл, гляните?
К сообщению приложен файл: 9658607.xls(17Kb)
 
Ответить
СообщениеИзлишнее цитирование удалено. Прочитайте Правила форума

Я вложила новый файл, гляните?

Автор - hometigrica
Дата добавления - 03.07.2017 в 12:00
buchlotnik Дата: Понедельник, 03.07.2017, 12:18 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2985
Репутация: 836 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
Вариант с UDF: [vba]
Код
Function dom(t)
    With CreateObject("VBScript.RegExp")
        .Pattern = "\s\d+"
        If .test(t) Then dom = Trim(.Execute(t)(0)) Else dom = "-"
    End With
End Function

Function kvartira(t)
    With CreateObject("VBScript.RegExp")
        .Pattern = "кв.\d+"
        If .test(t) Then kvartira = Trim(.Execute(t)(0)) Else kvartira = "-"
    End With
End Function
[/vba]
К сообщению приложен файл: 5723845.xls(42Kb)


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru
 
Ответить
СообщениеВариант с UDF: [vba]
Код
Function dom(t)
    With CreateObject("VBScript.RegExp")
        .Pattern = "\s\d+"
        If .test(t) Then dom = Trim(.Execute(t)(0)) Else dom = "-"
    End With
End Function

Function kvartira(t)
    With CreateObject("VBScript.RegExp")
        .Pattern = "кв.\d+"
        If .test(t) Then kvartira = Trim(.Execute(t)(0)) Else kvartira = "-"
    End With
End Function
[/vba]

Автор - buchlotnik
Дата добавления - 03.07.2017 в 12:18
hometigrica Дата: Вторник, 04.07.2017, 06:46 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
Кстати а вот незадача № и квартиры все равно с улицами остаются, получается убирать ручками?
 
Ответить
СообщениеКстати а вот незадача № и квартиры все равно с улицами остаются, получается убирать ручками?

Автор - hometigrica
Дата добавления - 04.07.2017 в 06:46
buchlotnik Дата: Вторник, 04.07.2017, 07:52 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2985
Репутация: 836 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
Цитата
необходимо как то отделить в другие ячейки дома и квартиры
что и было сделано :)
Цитата
убирать ручками?
можно, но лучше формулами
Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(J3;L3;"");N3;"");",";""))
К сообщению приложен файл: 9649776.xls(45Kb)


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru
 
Ответить
Сообщение
Цитата
необходимо как то отделить в другие ячейки дома и квартиры
что и было сделано :)
Цитата
убирать ручками?
можно, но лучше формулами
Код
=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(J3;L3;"");N3;"");",";""))

Автор - buchlotnik
Дата добавления - 04.07.2017 в 07:52
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Требуется перенести данные из одной ячейки в 3 разные (Формулы/Formulas)
Страница 1 из 11
Поиск:

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