Code:
Sub DepuraSatic5()
'macro para depurar los datos de trabajadores
'después de unir varios archivos de la misma obra
'de la relacion SATIC-5
'2010.06.18 ByPaco
Dim NumFil As Variant
Dim Cel1 As String
NumFil = ActiveCell.CurrentRegion.Rows.Count 'contamos el total de filas del rango
n = ActiveCell.Row
u = 1
Do Until n = NumFil
Cel1 = Cells(n, 3).Value
u = n + 1
Do Until u = NumFil 'hacer hasta el NumFil
Cel2 = Cells(u, 3).Value
If Cel1 = Cel2 Then 'si los nombres son iguales, entonces...
val1 = Cells(n, 5).Value 'copiamos valor de la primera celda
val2 = Cells(u, 5).Value 'copiamos valor de la segunda celda
Cells(n, 5) = val1 + val2 'sumamos los valores y lo pegamos en la primera celda
Cells(u, 1).EntireRow.Delete 'eliminamos la fila del segundo valor
NumFil = NumFil - 1 'como eliminamos una fila corregimos el total de las mismas
u = u - 1
End If
u = u + 1
Loop
n = n + 1
Loop
Call Numera
End Sub
Sub Numera()
Dim fil As Variant
fil = ActiveCell.CurrentRegion.Rows.Count
n = ActiveCell.Row 'n = 1
o = ActiveCell.Row - 1
Do Until n = fil
Cells(n, 2).Value = n - o
n = n + 1
Loop
End Sub
