Estoy intentando de hacer un pequeño algoritmo para ordenar una columna de una manera peculiar:
Tengo un número impar de filas (por ejemplo 5), la primera fila quiero que vaya a la tercera fila, la segunda a la 4ª fila, la tercera a la 2ª, la cuarta a la 5ª y la quinta a la primera. Es decir ir alternando un valor de abajo a arriba, he probado con este script:
Cita:
Pero así no puedo hacerlo ya que el segundo sumatorio no me funciona bien...Alguien me da alguna solución¿?Sub Botón1_Haga_clic_en()
Dim i, j, num, xxx, precip As Single
precip = Cells(3, 7)
num = precip / 2 + 0.5
xxx = precip / 2 - 0.5
' pones la primera en el centro
Cells(num + 4, 7) = Cells(5, 6)
For i = 1 To xxx
For j = 1 To precip - 1
Cells(num + 4 + i, 7) = Cells(5 + j, 6)
Cells(num + 4 - 1, 7) = Cells(5 + j, 6)
Next j
Next i
End Sub
Dim i, j, num, xxx, precip As Single
precip = Cells(3, 7)
num = precip / 2 + 0.5
xxx = precip / 2 - 0.5
' pones la primera en el centro
Cells(num + 4, 7) = Cells(5, 6)
For i = 1 To xxx
For j = 1 To precip - 1
Cells(num + 4 + i, 7) = Cells(5 + j, 6)
Cells(num + 4 - 1, 7) = Cells(5 + j, 6)
Next j
Next i
End Sub
Gracias
