Numeração de linhas Calc LibreOffice

Boa tarde, Galera!

Estou com uma duvida em como fazer a numeração de linhas, exemplo:

Preciso numerar a coluna A1 de 1 a 100.000, tem como fazer de maneira automática?

Agradeço a atenção!

Selecione o intervalo 1 a 100.000 e acione Editar - Preencher - Series… e escolha Linear, sem indicar o valor final.

Muito Obrigado Olivier, salvou minha vida!! Vou ter que fazer de 100.000 até 1.000.000 para fazer alguns testes aqui e sua dica foi de enorme ajuda!!

Valeu Oliver. Muito obrigado por esta dica tão boa. Um grande abraço!!

Para quem quiser uma macro para enumerar a partir de uma célula até a ÚLTIMA LINHA USADA e adicionar em um botão, segue abaixo uma que pode ajudar:

SUB ENUMERAR
dim primeiraCelula as string, oColuna as string, nomePlanilha as string
dim iniciarNumero as integer
dim oCel as object, oCel2 as string
Dim oCurs As object
Dim LastRow&

primeiraCelula = "A7" 'nome da primeira celula'
oColuna = "A" 'nome da coluna para enumerar'
nomePlanilha = "ALFA" 'nome da planilha a enumerar'
iniciarNumero = 1 'numero para iniciar a enumeracao'
oCel2 = "B7" 'selecionar celula apos a enumeracao'

oCurs = ThisComponent.Sheets.GetByName(nomePlanilha).createCursor()
oCurs.gotoEndOfUsedArea(False)
LastRow = oCurs.getRangeAddress().EndRow + 1

oCel = ThisComponent.Sheets.getByName(nomePlanilha).getCellRangeByName(primeiraCelula)
oCel.setValue(iniciarNumero)
rem define variables
dim document   as object
dim dispatcher as object

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = primeiraCelula
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "EndCell"
args3(0).Value = "" & oColuna & "" & LastRow & ""
dispatcher.executeDispatch(document, ".uno:AutoFill", "", 0, args3())

dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = oCel2
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())

end sub

Preencher apenas o dados iniciais (primeiraCelula, oColuna, nomePlanilha, iniciarNumero, oCel2)

Segue código para preenchimento de valores em células utilizando o laço “For”:
Fiz algumas alterações para implementação da última linha.

Option Explicit
'**************************************************************
Sub PreencherCelula
	Dim oDoc as Object 
	Dim oPlan As Object 
	Dim oCel As Object 
	Dim i As Long
	Dim oCursor As Object
	Dim LastRow As Integer
	Dim FirstRow As Integer
	
	oDoc = ThisComponent
	oPlan = oDoc.getSheets().getByIndex ( 0 )
	oCursor = oPlan.createCursor()
	oCursor.gotoEndOfUsedArea(False)
	FirstRow = 1
	LastRow = oCursor.getRangeAddress().EndRow
			
		For i = 0 To LastRow
		
			oCel = oPlan.getCellByPosition ( 0 , FirstRow - 1 + i )
			oCel.setString( i + 1 )		
		Next i
	MsgBox "Foram incluídos " & i & " Itens" , 64 , "Título"
 
End Sub
'**************************************************************

Link para o arquivo: Planilha