Разделение предложения на слова

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

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

row

Дата: Вторник, 03.01.2012, 11:30 | Сообщение № 1

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

Ранг: Форумчанин

Сообщений: 136

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

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

Уважаемые Форумчане. Хочу разделить предложения в нижней срочке. Ни как не могу сообразить. Прошу Вас помочь. Посмотрите файл (отмечено желтым цветом).Спасибо.

К сообщению приложен файл: 1508665.xls (32.0 Kb)

Ответить

light26

Дата: Вторник, 03.01.2012, 11:44 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1351

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

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

2007, 2010, 2013

Посмотрите тут.

Я не волшебник. Я только учусь

Ответить

Serge_007

Дата: Вторник, 03.01.2012, 11:45 | Сообщение № 3

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Проще всего - Данные - Текст по столбцам - разделитель - пробел

ЮMoney:41001419691823 | WMR:126292472390

Ответить

nerv

Дата: Вторник, 03.01.2012, 11:48 | Сообщение № 4

Группа: Редакторы

Ранг: Обитатель

Сообщений: 431

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

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

row, сперва бьете по переводу строки, затем по пробелам

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Ответить

IgorGo

Дата: Вторник, 03.01.2012, 12:12 | Сообщение № 5

Группа: Друзья

Ранг: Форумчанин

Сообщений: 108

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

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

а еще до этого заменить все знаки препинания на "", если Вас действительно интересуют только слова.

Ответить

KuklP

Дата: Вторник, 03.01.2012, 12:27 | Сообщение № 6

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

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Для примера.

К сообщению приложен файл: 7328809.xls (50.0 Kb)

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

row

Дата: Вторник, 03.01.2012, 13:02 | Сообщение № 7

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

Ранг: Форумчанин

Сообщений: 136

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

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

KuklP. Спасибо. А если точно так только по-рускии (первая строка) Возможно?

Ответить

row

Дата: Вторник, 03.01.2012, 13:05 | Сообщение № 8

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

Ранг: Форумчанин

Сообщений: 136

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

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

KuklP. Спасибо. А если точно так только по-рускии (первая строка) Возможно?

Ответить

nilem

Дата: Вторник, 03.01.2012, 13:39 | Сообщение № 9

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

Вот здесь вместо единицы нолик напишите:

Code

Public Sub www()
Dim r As Range, a
On Error Resume Next
For Each r In Me.UsedRange.Columns(1).Cells
a = Split(Split(Application.Trim(r), vbLf)(0))' здесь последний нолик
r(, 2).Resize(, UBound(a) + 1) = a: ReDim a(0)
Next
End Sub

Это я просто теги ищу. Нету sad