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

Вход

Регистрация

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

 

= Мир MS Excel/Текст по столбцам после первого пробела - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Текст по столбцам после первого пробела
ant6729 Дата: Пятница, 31.05.2019, 10:54 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

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

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

Спасибо.
 
Ответить
СообщениеВсем привет, времени мало
Но...

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

Спасибо.

Автор - ant6729
Дата добавления - 31.05.2019 в 10:54
китин Дата: Пятница, 31.05.2019, 11:20 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Всем привет, времени мало

и файла нет


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Всем привет, времени мало

и файла нет

Автор - китин
Дата добавления - 31.05.2019 в 11:20
_Boroda_ Дата: Пятница, 31.05.2019, 11:30 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

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
 
Ответить
СообщениеБез файла так
[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_
Дата добавления - 31.05.2019 в 11:30
ant6729 Дата: Пятница, 31.05.2019, 12:29 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 2 ±
Замечаний: 40% ±

Excel 2010
Таки да, все понятно, как всегда круто, спасибо


Сообщение отредактировал ant6729 - Пятница, 31.05.2019, 12:36
 
Ответить
СообщениеТаки да, все понятно, как всегда круто, спасибо

Автор - ant6729
Дата добавления - 31.05.2019 в 12:29
_Boroda_ Дата: Пятница, 31.05.2019, 12:38 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
А если бы была задача от начальной строки и до конца возможностей листа?
Это как?
Посмотрите в коде расчет для n_ - это последняя заполненная строка на листе


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
А если бы была задача от начальной строки и до конца возможностей листа?
Это как?
Посмотрите в коде расчет для n_ - это последняя заполненная строка на листе

Автор - _Boroda_
Дата добавления - 31.05.2019 в 12:38
  • Страница 1 из 1
  • 1
Поиск:

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