LibreOffice Calc. Как прибавить число сразу ко всем ячейкам?

Question

[Сергей Горячев]

Привет.
Как в LibreOffice Calc прибавить ко всем ячейкам определенное число?
У меня более 800 строк в прайсе, нужно добавить ко всем +60 рублей.
Как это сделать быстро?
Также нужно учесть, что между позициями есть и пустые строки.

Answer 1

[Антон Федорян]

Sub Main
	Dim inc, row As Integer
	Dim rows, col As Integer
	Dim x As Object
	
	inc = 60  ' На сколько увеличить число
	rows = 20 ' Количество просматриваемых строк
	col = 0   ' Номер столбца для увеличения значений
	
	oDoc = ThisComponent
	row = 0
	Do While (row < rows)
		x = oDoc.Sheets(0).getCellByPosition(col, row) ' Первая страница текущего элемента (индекс 0)
		
		'  Проверка типа ячейки
		Select Case x.Type
			' Если число
			Case com.sun.star.table.CellContentType.VALUE
				oDoc.Sheets(0).getCellByPosition(col, row).setValue(x.Value + inc)
			' Если текст
			'Case com.sun.star.table.CellContentType.TEXT
			' Если пусто
			'Case com.sun.star.table.CellContentType.EMPTY
			' Если формула
			'Case com.sun.star.table.CellContentType.FORMULA
				
		End Select
		
		row = row + 1
	Loop
End Sub

Answer 2

[Елена]

В отдельной ячейке поставить сумму на размер которой нужно увеличить все остальный ( в данном случае 60). Далее кнопку копировать (скопировали ячейку 60). Выделить все цифры которые нужно увеличить, далее функция "Специальная вставка" выбрать операция "Сложить" и кнопка ОК