Вычленить Имя из большого списка ФИО

Вход

Регистрация

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

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

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Вычленить Имя из большого списка ФИО (Макросы/Sub)

Вычленить Имя из большого списка ФИО

Заяц6628

Дата: Четверг, 18.07.2024, 09:07 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 35

Репутация: 0 ±

Замечаний: 0% ±

Добрый день! Мне нужно вычленить Имя из большого списка ФИО, код написан, помогите пожалуйста подправить его, файл приложила.

К сообщению приложен файл: primer1.xlsm (13.3 Kb)

Ответить

NikitaDvorets

Дата: Четверг, 18.07.2024, 09:57 | Сообщение № 2

Группа: Авторы

Ранг: Ветеран

Сообщений: 614

Репутация: 142 ±

Замечаний: 0% ±

Excel 2019

Заяц6628, добрый день.
Проще использовать udf.

К сообщению приложен файл: ew_izvlech_imja_iz_spiska_18_0.xlsm (15.2 Kb)

Ответить

Nic70y

Дата: Четверг, 18.07.2024, 10:02 | Сообщение № 3

Группа: Друзья

Ранг: Экселист

Сообщений: 9028

Репутация: 2374 ±

Замечаний: 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))