Saltar al contenido

Insertar filas despues de datos repetidos

publicado

Que tal Buen Dia

 

Tengo un problema con crear una macro que se es algo sencilla pero no doy, les explica:

Tengo una base de datos donde la columna A es la informacion principal y en ocasiones se repite, la macro tiene que insertar dos filas al termino de cada lista repetida que encuentre (los datos ya estan ordenados).

Adjunto un ejemplo, problema en pestaña 1 y como queda en pestaña 2

Gracias.

Saludos!!!

ejemplo.xlsx

Featured Replies

publicado

prueba esta macro.

Sub agregar_fila()
Dim unicos As New Collection
Set datos = Range("a1").CurrentRegion
Set datos = datos.Offset(1, 0).Resize(datos.Rows.Count - 1, datos.Columns.Count)

For i = 1 To datos.Rows.Count
    sku = datos.Cells(i, 1)
    On Error Resume Next
    unicos.Add sku, CStr(sku)
    On Error GoTo 0
Next i

a = 1
For Each partn In unicos
    cuenta = WorksheetFunction.CountIf(datos.Columns(1), partn)
    If a = 1 Then Set part = datos.Resize(cuenta, 1)
    If a > 1 Then Set part = part.Rows(part.Rows.Count + 3).Resize(cuenta, 1)
    part.Rows(part.Rows.Count + 1).Resize(2, 1).EntireRow.Insert
a = a + 1
Next partn
End Sub
 

publicado
  • Autor

Que tal Dr Hyde.

Funciono perfectamente

Gracias por tu ayuda.

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.