LibreOffice Calc. How to add a number to all cells at once?

Question

excel

Hello.
How to add a certain number to all cells in LibreOffice Calc?
I have more than 800 lines in the price list, I need to add +60 rubles to all.
How to do it quickly?
You also need to take into account that there are empty lines between the positions.

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