Datuve :: Forums :: Arhīvs :: Vēl par MsExcel

Datuve

Mana Datuve

Reģistrācija | Noteikumi | Paroles atjaunošana



Forums

Ieskaties


Raksti

Lietotāji online

Lietotāji online: 92

Reģistrētie lietotāji online: 0

Viesi online: 92

Datuve.lv video
Top.LV

Vēl par MsExcel

Ievietoja: kapars @ 2011.02.04 13:39  

Dots saraksts ar telefona numuriem, daudzi no kuriem atkārtojas 1; 2 ... x reizes. Lai atlasītu numurus, kuri atkārtojas, es B kolonnā izmantoju  komandu =COUNTIF(A:A;A2)>1 un ieguvu FALSE vai TRUE.
Jautājums: kā automātiski izdzēst numurus, kuri atkārtojas, lai paliktu sarakstā pa vienam numuram.
P.s. Paldies (īpaši jjanim) par iepriekšējo risinājumu).

Komentāri:

#1 Gurķis @ 2011.02.04 14:32

Ja lieto Exceli sākot no 2007 versijas tad tur bija funkcija "remove duplicates" vai kaut kā tā. Ja tabulā ir tikai tel.numuri un nav citi papilddati, tad var izmantot Pivot table. A savādāk var čakarēties ar kārtošanu, formulām, subtotaliem utt.

#2 kapars @ 2011.02.04 16:42

Gurķis rakstīja:

Ja lieto Exceli sākot no 2007 versijas tad tur bija funkcija "remove duplicates" vai kaut kā tā. Ja tabulā ir tikai tel.numuri un nav citi papilddati, tad var izmantot Pivot table. A savādāk var čakarēties ar kārtošanu, formulām, subtotaliem utt.

Ir Excel 2003.
Ar Privot table, es varu sašķirot, redzēt, cik reizes atkārtojas utt., bet, ja numuri ir tūkstošos, tad nepieciešams dzēšanu automatizēt.

#3 Aizver_muti @ 2011.02.04 18:40

Domāju, ka parastam lietotājam visvienkāršākais veids ir palaist makrosu.
Šis piemērs strādā uz A kolonu(ja numuri ir sakārtoti)

Sub dzest_atkartotos()
Dim enkurs As String
rinda = 1

Do Until Range("a" & rinda) = ""
If Range("a" & rinda) <> Range("a" & rinda + 1) Then GoTo 5
enkurs = Range("a" & rinda)

rinda = rinda + 1
Do While Range("a" & rinda) = enkurs
Range("a" & rinda).ClearContents
rinda = rinda + 1
Loop
GoTo 6
5
rinda = rinda + 1
6
Loop
End Sub