Intercalar filas en blanco en un rango de datos

hola, Mbaeijhapa !

... insertar, en forma automatica filas en blanco en un rango de datos. Por ej.:
F.1 aaaaaaaaaaa
F.2 ccccccccccccc
F.3 aaaaaaaaaaa
F.n bbbbbbbbbbb
... insertar en forma intercalada filas en blanco
F.1 aaaaaaaaaaa
F.2
F.3 ccccccccccccc
F.4
F.5 aaaaaaaaaaa
F.n-1
F.n bbbbbbbbbb

una forma +/- rapida es 'simular' que vas seleccionando cada celda como rango 'discontinuo'
[a partir de la segunda celda 'no vacia'] y al final ejecutas un solo comando de insertar filas [p.ej.]
en un modulo de codigo 'normal' ==Sub InsertarFilasEnRango()
Dim EsteRango As String, Fila As Long
For Fila = 2 To Range("a65536").End(xlUp).Row
If EsteRango <> "" Then EsteRango = EsteRango & ","
EsteRango = EsteRango & "a" & Fila
Next
Range(EsteRango).EntireRow.Insert
End Sub

si se trata de muchas filas, el tipo de datos 'String' podria 'quedarse corto' :(
haz la prueba y... ¿comentas?
saludos,
hector.

Hola Héctor Miguel
He probado las instrucciones que me has enviado y se adapta perfectamente a
lo que necesito. Creo que más de 200 filas no tendrá el rango de trabajo, son
muchas ?
Muchas Gracias.
Mbaeijhapa.


"Héctor Miguel" escribió:

hola, Mbaeijhapa !

> ... insertar, en forma automatica filas en blanco en un rango de datos. Por ej.:
> F.1 aaaaaaaaaaa
> F.2 ccccccccccccc
> F.3 aaaaaaaaaaa
> F.n bbbbbbbbbbb
> ... insertar en forma intercalada filas en blanco
> F.1 aaaaaaaaaaa
> F.2
> F.3 ccccccccccccc
> F.4
> F.5 aaaaaaaaaaa
> F.n-1
> F.n bbbbbbbbbb

una forma +/- rapida es 'simular' que vas seleccionando cada celda como rango 'discontinuo'
[a partir de la segunda celda 'no vacia'] y al final ejecutas un solo comando de insertar filas [p.ej.]
en un modulo de codigo 'normal' ==> Sub InsertarFilasEnRango()
Dim EsteRango As String, Fila As Long
For Fila = 2 To Range("a65536").End(xlUp).Row
If EsteRango <> "" Then EsteRango = EsteRango & ","
EsteRango = EsteRango & "a" & Fila
Next
Range(EsteRango).EntireRow.Insert
End Sub

si se trata de muchas filas, el tipo de datos 'String' podria 'quedarse corto' :(
haz la prueba y... ¿comentas?
saludos,
hector.