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
- 1521878
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1301741Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1021497Anna 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 tunnet171203- 681187
- 641151
- 219965
- 66787
- 45730
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv191704