¿buscar valores repetidos?

25/01/2005 - 14:23 por HUGO BORJA | Informe spam
formula para eliminar valores repetidos, dejando uno solo en una hoja de
calculo con mas de 10000 registros? utilizo office xp...
 

Leer las respuestas

#1 raul_s
25/01/2005 - 14:47 | Informe spam
Hola HUGO:

Yo tengo esta que no se ni dende la saque si alguien es el autor que cobre
los correspondientes derechos (je je je ).Como siempre ojo con puntos por
comas y dos puntos por punto y coma:

Sub DeleteColumnDupes(strSheetName As String, strColumnLetter As String)
Dim strColumnRange As String
Dim rngCurrentCell As Range
Dim rngNextCell As Range

strColumnRange = strColumnLetter & "1"

Worksheets(strSheetName).Range(strColumnRange).Sort _
Key1:=Worksheets(strSheetName).Range(strColumnRange)
Set rngCurrentCell = Worksheets(strSheetName).Range(strColumnRange)
Do While Not IsEmpty(rngCurrentCell)
Set rngNextCell = rngCurrentCell.Offset(1, 0)
If rngNextCell.Value = rngCurrentCell.Value Then
rngCurrentCell.EntireRow.Delete
End If
Set rngCurrentCell = rngNextCell
Loop
End Sub

Sub ORDEN()

Dim strColumnRange As String
Dim rngCurrentCell As Range
Dim rngNextCell As Range

strColumnRange = strColumnLetter & "1"

Worksheets("Hoja1").Range("A1").Sort _
Key1:=Worksheets("Hoja1").Range("A1")
Set rngCurrentCell = Worksheets("Hoja1").Range("A1")
Do While Not IsEmpty(rngCurrentCell)
Set rngNextCell = rngCurrentCell.Offset(1, 0)
If rngNextCell.Value = rngCurrentCell.Value Then
rngCurrentCell.EntireRow.Delete
End If
Set rngCurrentCell = rngNextCell
Loop
End Sub



"HUGO BORJA" escribió:

formula para eliminar valores repetidos, dejando uno solo en una hoja de
calculo con mas de 10000 registros? utilizo office xp...

Preguntas similares