Разделить текст на ФИО, должность , адрес

Пользователь

Сообщений: 8 Регистрация: 03.08.2017

07.09.2017 09:59:54

Коллеги, пожалуйста помогите разделить текст в ячейке по условиям.
Конструкция текста всегда одна - ФИО в начале, должность после первой запятой, адрес в скобках.

Спасибо!!!

Прикрепленные файлы

Книга1.xlsx (8.58 КБ)

Сергей Пользователь Сообщений: 11251 Регистрация: 01.01.1970	#2 07.09.2017 10:12:02 один вариант из множества Прикрепленные файлы Книга1.xlsx (8.74 КБ) Лень двигатель прогресса, доказано!!!

Kuzmich

Пользователь

Сообщений: 8057 Регистрация: 21.12.2012

07.09.2017 10:18:29

Цитата
разделить текст в ячейке по условиям

Код

Sub Razlelenie()
Dim i As Long
Dim iLastRow As Long
 iLastRow = Cells(Rows.Count, 2).End(xlUp).Row
  For i = 2 To iLastRow
    Cells(i, 3) = Split(Cells(i, 2), ",")(0)
    Cells(i, 4) = Split(Split(Cells(i, 2), ",")(1), "(")(0)
    Cells(i, 5) = Left(Split(Cells(i, 2), "(")(1), Len(Split(Cells(i, 2), "(")(1)) - 1)
  Next
End Sub

omul Пользователь Сообщений: 8 Регистрация: 03.08.2017	#4 07.09.2017 10:22:58 Вы просто великолепны!!!! СПАСИБО!

Jack Famous Пользователь Сообщений: 12064 Регистрация: 07.11.2014 OS: Win 10 Корп. x64 \| Excel 2016 x64: \| Browser: Chrome	#5 07.09.2017 10:38:44 omul, доброго утра! Решение универсальными макрофункциями: понадобится Substring и ВзятьИзРазделителей Прикрепленные файлы Разделить текст по условию.xlsm (17.67 КБ) Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄