Добавить новые строки между имеющимися

Автор And589, 1 февраля 2018, 05:42

0 Пользователи и 1 гость просматривают эту тему.

And589

Есть лист, где 500-1000 строк, какой командой можно добавить пустые строки (ячейки) между текущими в выделении. Добавить одним разом. Команда после которой например все имеющиеся строки-ячейки становятся нечетными, все новые добавленные становятся четными, общее количество строк увеличивается в два раза.

Есть ли такая команда в calc?

economist

Такой команды нет. Даже если отфильтровать нечетные строки - команда Лист - Вставить строки (будет неактивна).
Значит только макрос или хитрость...

Скажем, можно "схитрить", вставив Промежуточные итоги при каждой смене № в столбце, заполненном 1,2,3 итд (см. вложение).     
Руб. за сто, что Питоньяк
Любит водку и коньяк!
Потому что мне, без оных, -
Не понять его никак...

bigor

#2
Можно макросом типа такого

Sub InsRows
Dim oSheet As Variant, i As Long
Dim oSelection As Variant, oActiveCell As Variant, oRow As Variant

oSelection = ThisComponent.getCurrentSelection()
oSpreadsheet = oSelection.getSpreadsheet()
k=1
For i =oSelection.RangeAddress.StartRow To oSelection.RangeAddress.EndRow
'msgbox i & "  " & i+k
oSpreadsheet.Rows.insertByIndex(i+k,1)
k=k+1
Next i

End Sub


Выделяем нужный диапазон и запускаем
если условия четности нечетности обязательны, то нужно чуть подшаманить
Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут

JohnSUN

Можно по-всякому...
Можно перенумеровать имеющиеся строки, повторить нумерацию нужное количество раз (сколько пустых строк нужно вставить - столько раз и повторить), отсортировать по этой колонке и тут же её удалить
Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне

And589

Спасибо за ответы и особенно за макрос, то что нужно.