1 al 30 e inicie o continue con 1 2 ... 30

hola,

prefentemente con formluas

a mi solo se me ocurre esta:

=(ENTERO(FILA()/30)+1)-SI(Y(FILA()>30;RESIDUO(FILA();30)=0);
1;0)&","&SI(FILA()<31;FILA();FILA()-(30*ENTERO(FILA()/30)))
+SI(Y(FILA()>30;RESIDUO(FILA();30)=0);30;0)

ojo: debe ir en una sola linea y debes ponerla en una celda de la fila
1 y arrastrarla hasta la fila 900

se trata de dos digitos que se separan por una coma

1.- 1,1 1,2 ... 1,30 2,1 2,2 ... 2,30 3,1

hasta ... 30,30

asi como relllenar en serie o un macro

tambien puedes probar estas macros que te la pondrian a partir de la
celda activa (ojo que te queden al menos 900 filas por debajo)

esta te lo devuelve como texto:

Sub Series30_Texto()
Dim n As Byte, m As Byte, f As Integer, c As Byte
f = ActiveCell.Row: c = ActiveCell.Column
For n = 1 To 30
For m = 1 To 30
Cells(f, c) = n & "," & m
f = f + 1
Next
Next
End Sub

y esta como nº aunque formateado para ver los ceros finales

Sub Series30_Numeros()
Dim n As Byte, m As Byte, f As Integer, c As Byte
f = ActiveCell.Row: c = ActiveCell.Column
For n = 1 To 30
For m = 1 To 30
With Cells(f, c)
If m <= 9 Then .NumberFormat = "#.0" Else _
.NumberFormat = "#.00"
.Value = CSng(n & "," & m)
End With
f = f + 1
Next
Next
End Sub


pegalas en un modulo normal y llamalas desde una hoja (ya sabes, con
la celda activa al menos 900 filas antes de la ultima)

espero te ayude, aunque seguro que hay formas mas sencillas

un saludo
Ivan