Как разделить текст пустыми строчками.

Дата: Среда, 01.05.2013, 18:36 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

Доброго время суток.

Помогите решить проблему, у меня есть таблица в каждой строчке текст, как добавить после каждой строчки в таблице пустую строку. Я понимаю что можно вручную, но там очень много строк.
Пример:
строка-1
строка-2
строка-3
А нужно преобразовать в :
строка-1

строка-2

строка-3

и т.д. Спасибо

Сообщение отредактировал Sergey81a - Среда, 01.05.2013, 18:37

Дата: Среда, 01.05.2013, 18:39 | Сообщение № 2

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Только макросом

А зачем Вам это нужно?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 01.05.2013, 18:48 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

В каждую строчку нужно добавить ндс, пример

строка-1 100
строка-2 200

строка-1 100
20
строка-2 200
40

ну т.д. Все можно вручную, но это долго, а так добавить пустую строку и дальше просто формулу. На счет макроса я догадывался biggrin

Сообщение отредактировал Sergey81a - Среда, 01.05.2013, 18:49

Дата: Среда, 01.05.2013, 19:00 | Сообщение № 4

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата (Sergey81a)

В каждую строчку нужно добавить ндс

И что Вы потом с этим бардаком делать будете? Или нужно просто распечатать и забыть про эти данные?

Цитата (Sergey81a)

На счет макроса я догадывался

Тогда почему вопрос в неподходящем разделе задали?

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 01.05.2013, 19:09 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

именно распечатать и забыть. Ну я не знал на 100%, что только макросом можно решить вопрос. Потому и задал в этом разделе.

Дата: Среда, 01.05.2013, 19:12 | Сообщение № 6

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата (Sergey81a)

распечатать и забыть

Давайте пример формы и исходных данных

ЮMoney:41001419691823 | WMR:126292472390

Дата: Среда, 01.05.2013, 19:20 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

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

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

вот часть данных.

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

Дата: Среда, 01.05.2013, 19:30 | Сообщение № 8

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

[vba]

Код

Sub InsertRows()
Dim i As Integer
Application.ScreenUpdating = False
For i = 7 To 25 Step 2
Cells(i, 1).EntireRow.Insert
Next i
Application.ScreenUpdating = True
End Sub

[/vba]

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

ЮMoney:41001419691823 | WMR:126292472390

M73568

Дата: Четверг, 02.05.2013, 08:52 | Сообщение № 9

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

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

Сообщений: 197

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

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

2007-2013

Если бы не группировка, то можно было бы скопировать данные первого столбца там же под последним значением, установить в скопированных ячейках белый цвет текста, затем соседние ячейки справа от скопированных заполнить пробелом (Ctrl-C, Ctrl-V), выделить диапазон и дорисовать границы, а после через сортировку: "столбец1" по возрастанию, "столбец2" от Я до А. Вот только будет ли это быстрее?

К сообщению приложен файл: 5682417.jpg (50.5 Kb)

Сообщение отредактировал M73568 - Четверг, 02.05.2013, 08:54