Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Разбить данные по столбцам
 
#1
06.11.2019 12:20:18
Уважаемые форумчане, помогите пожалуйста со следующей задачей:
Нужно разбить имя фамилию отчество по разным столбцам, трудность в том что текст написан без пробелов, но с множеством переносов. Файл по ссылке https://yadi.sk/i/Mz-mNHZqpGKFlQ
 
 
 
#2
06.11.2019 12:28:03
У Вас трудность с тем, чтобы создать небольшой пример и прикрепить его к сообщению.
 
 
 
#3
06.11.2019 12:36:54
Не проходит файл более 100 Кб
Изменено: serega89 - 06.11.2019 12:49:20
 
 
 
#4
06.11.2019 12:44:04
serega89,
Цитата
vikttur написал:
создать небольшой пример и прикрепить его к сообщению.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#5
06.11.2019 12:46:14
А зачем гонять народ по ссылкам? Ведь можно же было прикрепить файл к сообщению.
См. вариант. Но в исходных данных есть ошибки, поэтому и результат будет с ошибками.
 
 
 
#6
06.11.2019 13:02:58
Цитата
serega89 написал:
трудность в том что текст написан без пробелов, но с множеством переносов
А какой символ отделяет слова (ФИО) друг от друга?
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
 
 
#7
06.11.2019 13:06:47
10
 
 
 
#8
06.11.2019 13:15:37
Цитата
Юрий М написал:
10
Эт понятно :) Я хотел это от создателя темы услышать. Хотел вот это же "...Но в исходных данных есть ошибки,..." по-другому сказать. Всё, ушел.....
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
 
 
#9
06.11.2019 13:18:44
Нужно (в моём варианте) добавить проверку: если более двух разделителей, то удалять их справа, пока не останется два ))
 
 
 
#10
07.11.2019 07:53:33
Цитата
Юрий М написал: если более двух разделителей, то удалять их справа, пока не останется два ))
... или использовать в ф-ции Split аргумент "Limit". Только это всё равно не поможет, т.к.
Цитата
Юрий М написал:
в исходных данных есть ошибки
Всё сложное - не нужно. Всё нужное - просто /М. Т. Калашников/
 
 
 
#11
07.11.2019 08:14:30
Можно еще так. Но из-за
Цитата
Михаил Лебедев написал:
.Но в исходных данных есть ошибки
так же не идеал. Но хоть что-то, а далее глазками.
Код
Sub main()
    Dim arr(), ikey, srow&, sarr$(), j&
    arr = [a1].CurrentRegion.Value
    For Each ikey In arr
        i = i + 1
        ikey = Replace(ikey, Chr(10), " ")
        sarr = Split(ikey, " ", 3)
        For j = 0 To UBound(sarr)
            sarr(j) = Trim(Replace(sarr(j), " ", ""))
        Next j
        Cells(i, "b").Resize(, 3).Value = sarr
    Next ikey
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
 
 
Страницы: 1
Наверх