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

Вход

Регистрация

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

 

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

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

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

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

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

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

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

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

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

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

Текст имеет особенность- наличие в тексте "нажатий на Enter" (то есть спуск на строку вниз).
Автор - RipVanWinkel
Дата добавления - 09.05.2017 в 19:01
KuklP Дата: Вторник, 09.05.2017, 19:16 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
[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им! kuklp60@gmail.com
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
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 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
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

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

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

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