taulukossa on alekkain merkkejä, aakkosjärjestyksessä...A B C D D D E F G G H I jne. Nämä kaikki A "rivillä". Minkälaisella makrolla saan postettua samat arvot. siten että riville jäisi: A B C D E F G H I.
samat arvot pois listalta
niilo
2503
0Äänestä
Muut lukivat myös
Odottaa vastausta
Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.
Vastaukset 2
Vanhimmat
Onnistuu ilman makroakin. Erikoissuodatuksella, kun panet täpän kohtaan vain ainutkertaiset tietueet.
Ilmeisesti tarkoitit saraketta eikä riviä.
tässä makro joka poistaa rivit joissa on sama-arvo.
Sub Makro1()
Worksheets("Taul1").Range("A1").Sort _
Key1:=Range("A1")
Set m = Range("A1")
Do While Not IsEmpty(m)
Set ss = m.Offset(1, 0)
If ss.Value = m.Value Then
m.EntireRow.Delete
End If
Set m = ss
Loop
End Sub
Tässä makro joka poistaa arvon ja jättää solun tyhjäksi.
Sub Makro1()
Worksheets("Taul1").Range("A1").Sort _
Key1:=Range("A1")
Set m = Range("A1")
Do While Not IsEmpty(m)
Set ss = m.Offset(1, 0)
If ss.Value = m.Value Then
m.ClearContents
End If
Set m = ss
Loop
End Sub
Nyt "puhdistuu" listat.
Paljon vaan kiitoksia.