Excel - insertar filas y copiar a 1ra dos veces

   
Vista:

insertar filas y copiar a 1ra dos veces

Publicado por Jorge Luis (23 intervenciones) el 24/05/2010 00:35:17
N°Fila
1 cod PM FECHA PM FECHA
2 MY01 PM3 1-ene
3 MY02 PM2 2-ene
4 MY03 PM2 3-ene
5 FY01 PM3 1-feb
6 FY02 PM2 2-feb
7 SY01 PM2 3-feb
8 SY02
9 SY03
10 SY04
11 SY05 PM2 4-ene
12 SY06 PM3 5-ene
13 SY07 PM2 6-ene
14 SY08 PM2 4-feb
15 SY10 PM2 5-feb
16 SY11 PM3 6-feb
.....
tiene que dar así , lo que hago es de la fila 2 inserto dos filas y copia la fila 2 en la 3 y la 4 y así para cada valor
2 MY01 PM3 1-ene
3 MY01 PM3 1-ene
4 MY01 PM3 1-ene
5 MY02 PM2 2-ene
6 MY02 PM2 2-ene
7 MY02 PM2 2-ene
8 MY03 PM2 3-ene
9 MY03 PM2 3-ene
10 MY03 PM2 3-ene
11 FY01 PM3 1-feb
12 FY01 PM3 1-feb
13 FY01 PM3 1-feb
14 FY02 PM2 2-feb
15 FY02 PM2 2-feb
1|6 FY02 PM2 2-feb
17 SY02
18 SY02
19 SY02
20 SY03
21 SY03
22 SY03
23 SY04
24 SY04
25 SY04
26 SY05 PM2 4-ene
27 SY05 PM2 4-ene
28 SY05 PM2 4-ene
....

Ojala que puedan ayudarme como les indique lo hice manuealmente y fue bastante tedioso
Gracia
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:insertar filas y copiar a 1ra dos veces

Publicado por jcs (494 intervenciones) el 24/05/2010 08:31:25
Muy buenas,
mira a ve si te sirve esto:

Sub Macro1()
fila = Range("A1").End(xlDown).Row * 3
For i = 1 To fila Step 3
Rows(i).Select
Selection.Copy
Rows(i + 1 & ":" & i + 2).Select
Selection.Insert Shift:=xlDown
Next
End Sub

Que conste, que la mayor parte del trabajo lo ha hecho la grabadora de macros.

Un saludo. Juanjo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar