I am trying to create a data base in libreOffice spreed-sheet application. And what I need is, the first column to be Id’s, but each Id has to fill 100 cells. So I would like to have 2000 Id’s and each Id takes up 100 cells, we have 200 000 cells. (Id’s values = range(1,2000))
row#1 : row#100 = Id#1 // row#101 : row#200 = Id#2 ….// row#199900 : row#200000 = Id#2000
What I simply want is to assign the value
1 to the first 100 cells in the first column, the value
2 to the next 100 cells in the same column and so on, until I have the 2000 Id’s in the first column.
So I would like to find a formula to achieve that with out having to select and scroll manually 2000 times the sheet.
If the ID is in A column:
The formula adds 1 to integer part of the number of row divided by 100.
Apply with a loop?
Public Sub test() Dim i As Long For i = 1 To 2000 Range("A1:A100").Offset((i - 1) * 100, 0) = i Next End Sub