Borrar filas

25/08/2004 - 10:19 por periodico | Informe spam
Soy nuevo en Excel, asi que perdonen si la pregunta que hago es demasiado
sencilla...
Estoy haciendo una macro para un tratamiento de archivos, y necesito en un
momento determinado "doblar" la mitad exacta de las filas que hay (cada
archivo puede tener diferente numero de filas) , es decir, cortarla por la
mitad y despues debo invertir el orden de esta, de abajo a arriba... y no es
alfabetico!!.¿Como lo hago? He intentado de todo, pero no se como cortar o
borrar refirirendome a CONTARA(A:A), (que me da el numero de filas de la
columna.)
Por ejemplo:
Tengo y necesito
A A B
1 1 2
2 2 1
3 3 4
4
1
2
 

Leer las respuestas

#1 Héctor Miguel
25/08/2004 - 11:26 | Informe spam
hola, [?] !

... "doblar" la mitad exacta de las filas que hay (cada archivo puede tener diferente numero de filas)
... y despues debo invertir el orden de esta, de abajo a arriba... y no es alfabetico!!. [...]
Tengo y necesito
A A B
1 1 2
2 2 1
3 3 4
4
1
2



suponiendo que el rango 'va' desde 'A1:A[n]'
macro en un modulo de codigo 'normal' ==Sub Invertir_Borrar()
Dim Fila As Integer, Siguiente As Integer
With Range(Range("a1"), Range("a65536").End(xlUp))
For Fila = .Rows.Count To Application.Round(.Rows.Count / 2, 0) + 1 Step -1
Siguiente = Siguiente + 1
Range("b" & Siguiente) = .Cells(Fila)
.Cells(Fila).ClearContents
Next
End With
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

Preguntas similares