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?
yks2
2
207
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
Riikka Purran kaudella nousi bensan hinta yli 2 euron
Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal1464906Veli Sofia teki urosmehiläisen työn
Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa183537Mitäs nyt sijoittajat?
Pörssit laskevat maailmalla Iranin sodan takia ja muutenkin ovat olleet Trumpin vallan alla epävarmat. Ainoa, mikä on no1583347Hjallis Harkimon, 72, Jasmine-rakas, 37, paljastaa suhteen alusta: "Vähän..."
Liikemies, kansanedustaja Hjallis Harkimo ja tuottaja-juontaja Jasmine Pajari ovat pariskunta. He asuvat yhdessä Sipooss322818Unisex-vessat
Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu952578Jutta Larm, 52, haluaa kumota tämän piintyneen ikämyytin
Oletko samaa mieltä? Jutta Larm on 52-vuotias ja tehnyt pitkän uran yrittäjänä. Hän haluaa kumota tämän piintyneen ikämy181853Jäit kiinni siitä
että katselet minua. Käänsin pääni, minäkin etsin sinua, ja meidän katseemme kohtasivat. Eikä se haittaa - molemmat ky81488Henri Alen tilittää yllättäen Vappu Pimiän uudesta MasterChef -pestistä: "Vaikka hän ei..."
Vappu Pimiä on uusi MasterChef Suomi -tuomari. Hän liittyi uudella MasterChef Suomi -kaudella arvovaltaiseen tuomaristoo101472Vastuun ottaminen omasta hyvinvoinnista
Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh1381402Minkä kouluarvosanan 4-10 annat Beck-leffoille?
Vähiin käy ennen kuin loppuu... Beck-elokuvia on tullut tv:stä jopa 2-3 viikossa. Nyt leffojen esitystiheys on muuttunut111267