shinshan

Yo he pensado ésto: Dim i As Integer Dim j As Integer For i = 1 To 500 For j = 1 To 4 ActiveSheet.Cells((i - 1) * 4 + j, 1) = i ActiveSheet.Cells((i - 1) * 4 + j, 2) = j Next j Next i El 500 del bucle i era por poner un ejemplo. Incluso se lo puedes...