Miten saan poistettua rivejä siten, että sarakkeessa A esiintyisi vain kerran yksi arvo?
Nyt tilanne on siis tämä:
koira......10
koira......12
kissa......16
kissa......18
kissa......11
siili........15
hevonen..15
hevonen..14
Ja pitäisi päätyä:
koira......10
kissa......16
siili........15
hevonen..15
Suuri kiitos auttajille!!!!
Nyt tilanne on siis tämä:
koira......10
koira......12
kissa......16
kissa......18
kissa......11
siili........15
hevonen..15
hevonen..14
Ja pitäisi päätyä:
koira......10
kissa......16
siili........15
hevonen..15
Suuri kiitos auttajille!!!!
Vastaukset 4
Vanhimmat
Sub Poista()
Dim a As Long, c As Long
a = Cells(Rows.Count, 1).End(xlUp).Row
For c = a To 2 Step -1
If WorksheetFunction.CountIf(Range("A2:A" & c), Cells(c, 1)) > 1 Then
Rows(c).Delete shift:=xlUp
End If
Next c
End Sub
En mielelläni käyttäisi makroja, jos jokin muu keino olisi. Olen joskus aikoinani lukenut täältä keinon, ainakin muistelisin, mutta viesti on jo poistettu vanhuuttaan...=(
Kiitos kuitenkin tästä, se tulee nyt tarpeeseen.
Apuja kaivattaisiin kuitenkin vielä!
Tiedot -> Suodata -> Erikoissuodatus -> ja täppä kohtaan "Vain ainutkertaiset tietueet" ja OK.
Kiitos Paavali50! Juuri tätä toimintoa hain. Se on yksinkertainen ja helppo tapa. Pelastit päiväni.=)
Ja vielä oikein paljon kiitoksia!