Cómo rellenar automáticamente una fila en Excel con números basados ​​en un valor de celda específico

Puede intentar copiar una fórmula como esta:

= SI (FILA () <= B $ 2, FILA (), "")

También es posible hacer esto con una macro Worksheet_Change en VBA. Haga clic con el botón derecho en la pestaña del nombre de la hoja de trabajo y elija Ver … Código. Pega la macro allí.

‘Este código debe instalarse en el panel de códigos de la hoja de trabajo que se está viendo. ¡No funcionará en ningún otro lugar!
Private Sub Worksheet_Change (Por valor de objetivo como rango)
Dim rg As Range, targ As Range
Establecer targ = Rango (“B2”) ‘Mire esta celda para ver los cambios de valor
Establecer targ = Intersecar (targ, Target)
Si no targ no es nada entonces
Application.EnableEvents = False
Establecer rg = Rango (“A: A”) ‘Los números van aquí
rg.ClearContents
If IsNumeric (targ) Entonces
Establezca rg = rg.Cells (1) .Resize (CLng (targ.Value))
rg.FormulaR1C1 = “= ROWS (R” & rg.Row & “: R)”
rg.Formula = rg.Value
Terminara si
Application.EnableEvents = True
Terminara si
Sub final