Excel - Para Armando

 
Vista:

Para Armando

Publicado por francisco (26 intervenciones) el 29/04/2010 13:13:12
Hola a todos/as
Armando me dirijo a ti por que e estado leyendo en el foro y e
encontrado una posible solucion a mi problema con crear una linea
nueva pero no se como colocar el codigo para que me funcione
ya que soy novato en programar .Te agradeceria una breve explicacion
para que se ejecute con facilidad.

El codigo es

Sub InsRow()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
With Range("A" & i)
If .Value <> .Offset(-1).Value Then Rows(i).Insert
End With
Next i
End Sub

Gracias y perdona las molestias

UN SALUDO DE UN NOVATO
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