Formula o macro

01/03/2005 - 20:00 por NOEŽS | Informe spam

Hola:_
Podrian ayudarme con esto, Tengo los siguientes
datos. en la celda A1.

A
1 1
2 2
3 3
4 4
5 5
6 6

Y los necesito de la siguiente manera o sea tengo un base
de datos que la quiero separar o partir ejemplo de 2 en 2 y
dejar un espacio entre cada division o sea como esta en
este ejemplo

A
1 1
2 2

3 1
4 2

5 1
6 2

hay alguna forma de hacer esto por formula o algun macro,
el problema es que en realidad son miles de datos y
separarlos manualmente me esta llevando mucho tiempo,
espero haberme explicado, de antemano gracias, por su ayuda.

Siga el debate

2 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Manuel Romero

01/03/2005 - 22:12 | Informe spam

Sub insert()
Const DESPLAZAMIENTO As Integer=2
Dim rng As Range

Set rng = [a1] ' suponiendo que empiecen en A1
Do Until rng.Value = ""
Set rng = rng.Offset(DESPLAZAMIENTO, 0)
rng.EntireRow.insert xlShiftDown
Loop
End Sub

"NOE´S" escribió en el mensaje
news:305801c51e91$014e5850$

Hola:_
Podrian ayudarme con esto, Tengo los siguientes
datos. en la celda A1.

A
1 1
2 2
3 3
4 4
5 5
6 6

Y los necesito de la siguiente manera o sea tengo un base
de datos que la quiero separar o partir ejemplo de 2 en 2 y
dejar un espacio entre cada division o sea como esta en
este ejemplo

A
1 1
2 2

3 1
4 2

5 1
6 2

hay alguna forma de hacer esto por formula o algun macro,
el problema es que en realidad son miles de datos y
separarlos manualmente me esta llevando mucho tiempo,
espero haberme explicado, de antemano gracias, por su ayuda.

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :