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

Preguntas similare

Mostrar todos los temas similares

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.

Responder a este mensaje

#2 KL

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

Hola NOE´S,

Prueba el siguiente macro.

Saludos,
KL

Sub test()
Dim fila As Long
Dim rng As String
With ActiveSheet
For fila = 1 To .Range("A65536").End(xlUp).Row Step 2
If rng <> "" Then rng = rng & ","
rng = rng & "a" & fila
Next fila
.Range(rng).EntireRow.Insert Shift:=xlDown
End With
End Sub

"NOE´S" wrote in message
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.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida