Necesito un algoritmo para excel!
Hola expertos,
Estoy medio complicada en mi trabajo porque me pidieron que generara unos valores usando una macro, el asunto es que no logro dar con el algoritmo correcto... Tengo que generar listas de con la siguiente estructura tipo:
1 1
1 2
1 3
1 4
2 1
2 2
2 3
2 4
3 1
3 2
3 3
3 4...
Y así, podría hacerlo a mano pero tengo que hacerlo más de 600 veces.
A ver si alguien me puede ayudar!
Gracias!
Menita
Estoy medio complicada en mi trabajo porque me pidieron que generara unos valores usando una macro, el asunto es que no logro dar con el algoritmo correcto... Tengo que generar listas de con la siguiente estructura tipo:
1 1
1 2
1 3
1 4
2 1
2 2
2 3
2 4
3 1
3 2
3 3
3 4...
Y así, podría hacerlo a mano pero tengo que hacerlo más de 600 veces.
A ver si alguien me puede ayudar!
Gracias!
Menita
1 Respuesta
Respuesta de shinshan
1
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 pasar por parámetro.
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 pasar por parámetro.
