filteren

[Robert_hfstd]

Hallo,
weet iemand een manier om van alles maar een waarde eruit te filteren

Ik heb een reeks (A1:A16888) met nummers waarvan de meeste er zo'n 8 keer in voor komen. Nu wil ik een reeks waar alle cijfers maximaal 1 keer in voorkomen, zodat de reeks aanzienlijk kleiner wordt.
Kan dit?

 

[Jerry Deladik]

Hoi,

ik weet niet of dit de slimste/snelste manier is, maar ik doe dat meestal met een draaitabel.

Kolom Nummer zet je links en (bijv) optelling in data veld. Als je niets wilt optellen dan kun je bijv een count van de nummers doen, weet je gelijk hoe vaak ieder nummer voorkomt.

 

[jpvs]

Nog een voorbeeld :

Met Uitgebreid filter. Activeer een willekeurige cel binnen de lijst en kies Data / Filter / Uitgebreid filter.
In het venster "Uitgebreid Filter" selecteert u "Kopiëren naar een andere locatie" en geeft u een nieuwe locatie op in het vak "Kopiëren naar" (de nieuwe locatie moet wel op hetzelfde werkblad staan). Selecteer de optie "Alleen unieke records" en klik op OK.

OF gebruik deze macro :

Public Sub DeleteDuplicateRows()
'
' This macro deletes duplicate rows in the selection. Duplicates are
' counted in the COLUMN of the active cell.

Dim Col As Integer
Dim r As Long
Dim C As Range
Dim N As Long
Dim V As Variant
Dim Rng As Range

On Error GoTo EndMacro
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Col = ActiveCell.Column

If Selection.Rows.Count > 1 Then
Set Rng = Selection
Else
Set Rng = ActiveSheet.UsedRange.Rows
End If

N = 0
For r = Rng.Rows.Count To 1 Step -1
V = Rng.Cells(r, 1).Value
If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then
Rng.Rows(r).EntireRow.Delete
N = N + 1
End If
Next r

EndMacro:

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub




Pierre

 

[jpvs]

Juist gevonden op het net,

Haalt dubbele records weg uit een gesorteerde
database.

Sub Haal_dubbele_weg()
laatste = Range("A65000").End(xlUp).Row
For i = laatste To 2 Step -1
If Range("A" & i) = Range("A" & i - 1) Then
Range("A" & i).EntireRow.Delete
End If
Next i
End Sub

of dit

Haalt alle meervoudige regels weg uit een gesorteerde lijst..
Dus: alleen regels die slechts één maal voorkomen, blijven over.

Sub Haal_dubbele_weg()

Range("A1").EntireRow.Insert
plaats = Range("A65000").End(xlUp).Row
Do While plaats > 1
If dubbel = 0 Then
startrij = Range("A" & plaats).Row
End If
Range("A" & plaats).Select
stoprij = ActiveCell.Row
If Range("A" & plaats) = Range("A" & plaats - 1) Then
dubbel = dubbel + 1
Else
If dubbel >= 1 Then
Range("A" & startrij & ":A" & stoprij).Select
Selection.EntireRow.Delete
dubbel = 0
End If
End If
plaats = plaats - 1
Loop

Range("A1").EntireRow.Delete
End Sub

Pierre

 

[dbouhuijs]

Ik wil ook meervoudige vermeldingen verwijderen alleen staat alle data gescheiden door een komma in 1 cel.
Hoe is dit op te lossen ?

 

[Wigi]

Begin met Data > Tekst naar kolommen.

Vervolgens Kopiëren en Bewerken > Plakken Speciaal... > Transponeren.

Dan verder gaan met de oplossing van hierboven.

Wigi