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

Вход

Регистрация

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

 

= Мир MS Excel/Вычленить Имя из большого списка ФИО - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Вычленить Имя из большого списка ФИО
Заяц6628 Дата: Четверг, 18.07.2024, 09:07 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

Добрый день! Мне нужно вычленить Имя из большого списка ФИО, код написан, помогите пожалуйста подправить его, файл приложила.
К сообщению приложен файл: primer1.xlsm (13.3 Kb)
 
Ответить
СообщениеДобрый день! Мне нужно вычленить Имя из большого списка ФИО, код написан, помогите пожалуйста подправить его, файл приложила.

Автор - Заяц6628
Дата добавления - 18.07.2024 в 09:07
NikitaDvorets Дата: Четверг, 18.07.2024, 09:57 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 612
Репутация: 142 ±
Замечаний: 0% ±

Excel 2019
Заяц6628, добрый день.
Проще использовать udf.
К сообщению приложен файл: ew_izvlech_imja_iz_spiska_18_0.xlsm (15.2 Kb)
 
Ответить
СообщениеЗаяц6628, добрый день.
Проще использовать udf.

Автор - NikitaDvorets
Дата добавления - 18.07.2024 в 09:57
Nic70y Дата: Четверг, 18.07.2024, 10:02 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 9010
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub Primer()
    a = Cells(Rows.Count, "B").End(xlUp).Row 'Определяем сколько заполнено строк
    For i = 2 To a
        b = Range("b" & i).Value    'значение очередной ячейки
        c = InStr(b, " ")           'положение 1го пробела
        d = InStrRev(b, " ")        'положение 2го пробела
        Range("a" & i) = Mid(b, c + 1, d - c - 1) 'имя
    Next
End Sub
[/vba]
или формула
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(B2;" ";ПОВТОР(" ";99));99;99))


ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 18.07.2024, 10:05
 
Ответить
Сообщение[vba]
Код
Sub Primer()
    a = Cells(Rows.Count, "B").End(xlUp).Row 'Определяем сколько заполнено строк
    For i = 2 To a
        b = Range("b" & i).Value    'значение очередной ячейки
        c = InStr(b, " ")           'положение 1го пробела
        d = InStrRev(b, " ")        'положение 2го пробела
        Range("a" & i) = Mid(b, c + 1, d - c - 1) 'имя
    Next
End Sub
[/vba]
или формула
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(B2;" ";ПОВТОР(" ";99));99;99))

Автор - Nic70y
Дата добавления - 18.07.2024 в 10:02
doober Дата: Четверг, 18.07.2024, 10:03 | Сообщение № 4
Группа: Друзья
Ранг: Ветеран
Сообщений: 982
Репутация: 338 ±
Замечаний: 0% ±

Excel 2010
Добрый
К сообщению приложен файл: 8761638.xlsm (14.0 Kb)


 
Ответить
СообщениеДобрый

Автор - doober
Дата добавления - 18.07.2024 в 10:03
  • Страница 1 из 1
  • 1
Поиск:

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