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

Вход

Регистрация

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

 

= Мир MS Excel/Разбивка текста по предложениям. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разбивка текста по предложениям. (Макросы/Sub)
Разбивка текста по предложениям.
RipVanWinkel Дата: Вторник, 09.05.2017, 19:01 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день, форумчане.
Помогите с непростой проблемой.

Я ввожу в одну ячейку B4 - многостраничный текст.

Как макросом - заставить этот текст разбиться в соседнем столбце (D : D)- построчно ?
Разделитель - это разделитель предложений точка "."

В принципе - в экселе есть похожий способ разбивки - но без участия макросов.
Мне же нужно именно использование макроса.

Текст имеет особенность- наличие в тексте "нажатий на Enter" (то есть спуск на строку вниз).
К сообщению приложен файл: 564.xls(30Kb)
 
Ответить
СообщениеДобрый день, форумчане.
Помогите с непростой проблемой.

Я ввожу в одну ячейку B4 - многостраничный текст.

Как макросом - заставить этот текст разбиться в соседнем столбце (D : D)- построчно ?
Разделитель - это разделитель предложений точка "."

В принципе - в экселе есть похожий способ разбивки - но без участия макросов.
Мне же нужно именно использование макроса.

Текст имеет особенность- наличие в тексте "нажатий на Enter" (то есть спуск на строку вниз).

Автор - RipVanWinkel
Дата добавления - 09.05.2017 в 19:01
KuklP Дата: Вторник, 09.05.2017, 19:16 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2111
Репутация: 453 ±
Замечаний: 0% ±

[vba]
Код
Public Sub www()
    Dim a
    a = Application.Transpose(Split([b4], "."))
    [e1].Resize(UBound(a)+1) = a
End Sub
[/vba]
P.S. таки да, Андрей прав - UBound(a)+1


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Вторник, 09.05.2017, 19:20
 
Ответить
Сообщение[vba]
Код
Public Sub www()
    Dim a
    a = Application.Transpose(Split([b4], "."))
    [e1].Resize(UBound(a)+1) = a
End Sub
[/vba]
P.S. таки да, Андрей прав - UBound(a)+1

Автор - KuklP
Дата добавления - 09.05.2017 в 19:16
RAN Дата: Вторник, 09.05.2017, 19:16 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4419
Репутация: 872 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub мяу()
    Dim spl
    spl = Split(Selection(1), ".")
    Selection(1).Next.Resize(UBound(spl) + 1) = Application.Transpose(spl)
End Sub
[/vba]
выделяем, запускаем...


Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Sub мяу()
    Dim spl
    spl = Split(Selection(1), ".")
    Selection(1).Next.Resize(UBound(spl) + 1) = Application.Transpose(spl)
End Sub
[/vba]
выделяем, запускаем...

Автор - RAN
Дата добавления - 09.05.2017 в 19:16
RipVanWinkel Дата: Вторник, 09.05.2017, 19:25 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
KuklP, спасибо - все работает
 
Ответить
СообщениеKuklP, спасибо - все работает

Автор - RipVanWinkel
Дата добавления - 09.05.2017 в 19:25
RipVanWinkel Дата: Вторник, 09.05.2017, 19:25 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
RAN, работает, спасибо.
 
Ответить
СообщениеRAN, работает, спасибо.

Автор - RipVanWinkel
Дата добавления - 09.05.2017 в 19:25
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Разбивка текста по предложениям. (Макросы/Sub)
Страница 1 из 11
Поиск:

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