Текст по столбцам после первого пробела

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Текст по столбцам после первого пробела (Макросы/Sub)

ant6729

Дата: Пятница, 31.05.2019, 10:54 | Сообщение № 1

Группа: Проверенные

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

Сообщений: 533

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

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

Excel 2010

Всем привет, времени мало
Но...

Условно в списке вниз на 10 строк в одной колонке любые строково-цифровые значения с пробелом
Требуется отделить во вторую колонку то, что только после первого пробела в строке первой колонки.

Спасибо.

Ответить

китин

Дата: Пятница, 31.05.2019, 11:20 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 7014

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

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

Excel 2007;2010;2016

Цитата ant6729, 31.05.2019 в 10:54, в сообщении № 1 ()

Всем привет, времени мало

и файла нет

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

_Boroda_

Дата: Пятница, 31.05.2019, 11:30 | Сообщение № 3

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Без файла так
[vba]

Код

Sub tt()
    n_ = Cells(Rows.Count, 1).End(3).Row
    ar = Cells(1, 1).Resize(n_)
    For i = 1 To UBound(ar)
        ar(i, 1) = Split(ar(i, 1), , 2)(1)
    Next i
    Cells(1, 2).Resize(n_) = ar
End Sub

[/vba]

Код

=ПСТР(A1;ПОИСК(" ";A1)+1;999)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995