Ongelma,, esim. A-sarakkeessa vaikkapa 200 numerosarjaa, siis 200 rivillä pelkkiä numeroita, ei kirjaimia.
Haluaisin varmistaa, ettei samaa numerosarjaa ole kuin kerran. Esiintyessään useammin, ne tuplat erottuisi jotenkin / kopiot niistä esim B-sarakkeeseen.. tietäisikö joku kuinka onnistuisi?
Helppo?
2
183
Vastaukset
moduuliin...
Option Explicit
Sub KorostaJaSiirräTuplat()
Dim solu As Range
Dim Vika As Double
Dim Alue As Range
Dim i As Long
Vika = Range("A65536").End(xlUp).Row
Set Alue = Range("A1:A" & Vika)
i = 1
'tyhjennetään arvot B-sarakkeesta
Range("B:B") = ""
' värjätään tuplat A-sarakkeessa
For Each solu In Alue
If WorksheetFunction.CountIf(Alue, solu.Value) = 1 Then
' ei taustaväriä uniikiarvoille
solu.Interior.ColorIndex = xlNone
Else
' keltainen tupla-arvoille, vaihda värinumeroa tarvittaessa
solu.Interior.ColorIndex = 6
' siirretään tupla-arvot B-sarakkeeseen
' muistettava tarkistaa aluksi tyhjänä oleva alue kanssa!!!
If WorksheetFunction.CountIf(Range("B:B"), solu.Value) = 0 Then
Range("B" & i) = solu.Value
i = i 1
End If
End If
Next solu
'lajitellaan lopuksi
Columns("B:B").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End Sub
@Keep Excelling
Kunde- yks2
Kiitos paljon!!
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Mikä on kaivattusi etunimi?
Otsikossa siis on kysymys eriteltynä. Vain oikeat vastaukset hyväksytään.1703506En kestä katsoa
Sitä miten sinusta on muut kiinnostuneita. Olen kateellinen. Siksi pitäisi lähteä pois1011859- 1431767
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1281652Peräti 95 % persujen kannattajista rasisteja
Kertoo EVA:n teettämä kysely. Pakollista yhdenvertaisuuskoulutusta tarvitsee siis paljon laajempi joukko kuin pelkästää3941591Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021447Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet171163- 631086
- 621083
On minulla suunitelma
Siitä ei vain tiedä kukaan muu kuin tällä hetkellä minä. Suunnitelma ja varasuunnitelma. Sinun takiasi nainen. Vain s541001