Macro que busque valores repetidos en una columna, inserte una fila y siga buscando

[serya1107]

Hola a todos, espero hacerme entender sobre esta duda que tengo..

Tengo una hoja de calculo (excel 2007) ordenada por digamos numero de seguridad social. En algunos casos los registros se repiten, (estoy hablando de mas de 2000 registros, por lo que manualmente seria muy complicado hacerlo), necesito crear una macro, que busque en la columna de números de seg. social, y al encontrar un registro repetido (los que se repiten unicamente se repiten dos veces), inserte una fila antes del primer registro repetido, y luego continue buscando hacia abajo haciendo esto hasta llegar a la ultima fila con datos..

No se si es mucho lo que pido o incluso si es posible hacerlo ja ja ja.. en fin.
Ejemplo:
(la columna en la que hay que buscar es la A y la celda primera es A1)
===A====

1 A1105
2 X8971
3 S8793
4 T9631
5 S1111 Aqui el S1111, se repite, entonces necesito una fila aqui..
6 S1111

y que quede asi mas o menos:

1 A1105
2 X8971
3 S8793
4 T9631
5
6 S1111
7 S1111

y continue buscando hacia abajo, hasta encontrar todos y pare al llegar a la ultima fila..


Ya hace un tiempo intente hacer esto, pero por un problema de salud me aleje de la computadora un tiempo y al regresar ya no le pude dar seguimiento.. pero me interesa aprender a hacer esto.

Saludos y gracias de Antemano

Sergio de

[mrocf]

Hola! Sergio. Intenta con:

Código Java:

Sub Intercalar()
Dim i%, Q&, R&, Mat1, Mat2
Mat1 = Range([a1], [a1].End(xlDown)): Q = UBound(Mat1)
ReDim Mat2(1 To Q + Evaluate("sum(if(a1:a" & Q - 1 & " = a2:a" & Q & ", 1))"), 1 To 1)
For i = 1 To Q - 1
  R = IIf(Mat1(i, 1) = Mat1(1 + i, 1), 2, 1) + R
  Mat2(R, 1) = Mat1(i, 1)
Next
Mat2(1 + R, 1) = Mat1(i, 1)
[d1].Resize(1 + R) = Mat2: Erase Mat1, Mat2
End Sub
 

[Perr0]

Hace una tabla dinámica por el registro social en "Row Labels", lo mismo en "Values" y el tipo de cálculo que sea "Count", luego copias la hoja y la pegas como valor, después insertas una columna en tu tabla y con el "VLOOKUP" haces un cruce en lo que era la tabla dinámica, seleccionando las dos columnas y devolviendo la columna 2. Listo, fácil cierto?

lo de la macro si quieres ayuda, ten algo hecho y aclara en que topas, esto es ayuda, caso contrario paga.

salu2