[Alex Dark]

Сообщение от earcher

p.s. куда ещё понятнее и так всё разжевал уже)

Спокойнее. Ты в "своем котле варишься" давно, а совета спрашиваешь у людей не имеющих представления ни о тебе ни о том чем ты занимаешься и тем более для чего.

PS Почитай внимательно первый пост. Если просят файл, значит он нужен

Тебе нужно делать бирки.
1. границу меджду строк делай из двойной линии у тебя получится вместо
-------
| 1 |
-------
| 2 |
-------
| 3 |
-------
вот так
-------
| 1 |
======
| 2 |
======
| 3 |
-------
и после работы с ножницами получишь
-------
| 1 |
------
и
------
| 2 |
-------


2. макросом. встань в ячейку с нее всё и начнется. Если в ячейку А1 напишешь цифру (например 10, подберешь сам нужную величину) то сможешь регулировать расстояние между строк.
И самое главное. Работать будет до первой пустой ячейки в колонке на которую встанешь

Sub макрос()
    r = ActiveCell.Row
    c = ActiveCell.Column
    r1 = r
    Do While Not IsEmpty(Cells(r1, c).Value)
        ActiveSheet.Rows(r1 + 1).Select
        Selection.Insert Shift:=xlDown
        If IsNumeric(Cells(1, 1).Value) Then
            If (Cells(1, 1).Value) > 0 Then
                Selection.RowHeight = Cells(1, 1).Value
            End If
        End If
        r1 = r1 + 1
        r1 = r1 + 1
    Loop
End Sub