Note: The other languages of the website are Google-translated. Back to English

Sut i dynnu gwerthoedd unigryw o sawl colofn yn Excel?

Gan dybio bod gennych sawl colofn â gwerthoedd lluosog, mae rhai gwerthoedd yn cael eu hailadrodd yn yr un golofn neu golofn wahanol. Ac yn awr rydych chi am ddod o hyd i'r gwerthoedd sy'n bresennol yn y naill golofn neu'r llall unwaith yn unig. A oes unrhyw driciau cyflym i chi dynnu gwerthoedd unigryw o sawl colofn yn Excel?


Tynnwch werthoedd unigryw o sawl colofn gyda fformiwla arae

Dyma fformiwla arae hefyd a all eich helpu i echdynnu'r gwerthoedd unigryw o sawl colofn.

1. Gan dybio bod eich gwerthoedd mewn amrediad A2: C9, rhowch y fformiwla ganlynol i mewn i gell E2:

=INDIRECT(TEXT(MIN(IF(($A$2:$C$9<>"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&""

Nodyn: Yn y fformiwla uchod, A2: C9 yn nodi'r ystod o gelloedd rydych chi am echdynnu'r gwerthoedd unigryw, E1: E1 yw cell gyntaf y golofn rydych chi am roi'r canlyniad, $ 2: $ 9 mae standiau i'r rhesi yn cynnwys y celloedd rydych chi am eu defnyddio, a $ A: $ C. yn nodi bod y colofnau'n cynnwys y celloedd rydych chi am eu defnyddio. Newidiwch nhw i'ch un chi.

2. Yna pwyswch Shift + Ctrl + Enter allweddi gyda'i gilydd, ac yna llusgwch yr handlen llenwi i echdynnu'r gwerthoedd unigryw nes bod celloedd gwag yn ymddangos. Gweler y screenshot:


Tynnwch werthoedd unigryw o golofnau lluosog gyda Pivot Table

Os ydych chi'n gyfarwydd â'r tabl colyn, gallwch chi dynnu'r gwerthoedd unigryw o golofnau lluosog yn hawdd gyda'r camau canlynol:

1. Ar y dechrau, mewnosodwch un golofn wag newydd ar ochr chwith eich data, yn yr enghraifft hon, byddaf yn mewnosod colofn A wrth ymyl y data gwreiddiol.

2. Cliciwch un gell yn eich data, a gwasgwch Alt + D allweddi, yna pwyswch P allwedd ar unwaith i agor y Dewin PivotTable a PivotChart, dewiswch Amrywiadau cydgrynhoi lluosog yn y dewin step1, gweler y screenshot:

3. Yna cliciwch Digwyddiadau botwm, gwirio Creu maes un dudalen i mi opsiwn yn dewin step2, gweler y screenshot:

4. Ewch ymlaen i glicio Digwyddiadau botwm, cliciwch i ddewis yr ystod ddata sy'n cynnwys y golofn newydd chwith o gelloedd, yna cliciwch Ychwanegu botwm i ychwanegu'r ystod ddata i'r Pob ystod blwch rhestr, gweler y screenshot:

5. Ar ôl dewis yr ystod ddata, parhewch i glicio Digwyddiadau, yng ngham 3 y dewin, dewiswch ble rydych chi am roi'r adroddiad PivotTable fel y dymunwch.

6. O'r diwedd, cliciwch Gorffen i gwblhau'r dewin, ac mae tabl colyn wedi'i greu yn y daflen waith gyfredol, yna dad-diciwch yr holl feysydd o'r Dewiswch feysydd i'w hychwanegu at yr adroddiad adran, gweler y screenshot:

7. Yna gwiriwch y maes Gwerth neu llusgwch y Gwerth i'r Rhesi label, nawr fe gewch y gwerthoedd unigryw o'r colofnau lluosog fel a ganlyn:


Tynnwch werthoedd unigryw o sawl colofn gyda chod VBA

Gyda'r cod VBA canlynol, gallwch hefyd echdynnu'r gwerthoedd unigryw o sawl colofn.

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Ffenestr Modiwl.

VBA: Tynnu gwerthoedd unigryw o sawl colofn

Sub Uniquedata()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
Set dt = CreateObject("Scripting.Dictionary")
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
For Each rng In InputRng
    If rng.Value <> "" Then
        dt(rng.Value) = ""
    End If
Next
OutRng.Range("A1").Resize(dt.Count) = Application.WorksheetFunction.Transpose(dt.Keys)
End Sub

3. Yna pwyswch F5 i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis yr ystod ddata rydych chi am ei defnyddio. Gweler y screenshot:

4. Ac yna cliciwch OK, bydd blwch prydlon arall yn ymddangos i adael i chi ddewis lle i roi'r canlyniad, gweler y screenshot:

5. Cliciwch OK i gau'r ymgom hon, ac mae'r holl werthoedd unigryw wedi'u tynnu ar unwaith.


Tynnwch werthoedd unigryw o un golofn sengl gyda nodwedd anhygoel

Weithiau, mae angen i chi dynnu'r gwerthoedd unigryw o un golofn, ni fydd y dulliau uchod yn eich helpu chi, yma, gallaf argymell teclyn defnyddiol-Kutools ar gyfer Excel, Gyda'i Tynnwch gelloedd â gwerthoedd unigryw (cynnwys y dyblyg cyntaf) cyfleustodau, gallwch chi echdynnu'r gwerthoedd unigryw yn gyflym.

Nodyn:I gymhwyso hyn Tynnwch gelloedd â gwerthoedd unigryw (cynnwys y dyblyg cyntaf), yn gyntaf, dylech lawrlwytho'r Kutools ar gyfer Excel, ac yna cymhwyswch y nodwedd yn gyflym ac yn hawdd.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Cliciwch cell lle rydych chi am allbwn y canlyniad. (Nodyn: Peidiwch â chlicio cell yn y rhes gyntaf.)

2. Yna cliciwch Kutools > Cynorthwyydd Fformiwla > Cynorthwyydd Fformiwla, gweler y screenshot:

3. Yn y Cynorthwyydd Fformiwlâu blwch deialog, gwnewch y gweithrediadau canlynol:

  • dewiswch Testun opsiwn gan y Fformiwla math rhestr ostwng;
  • Yna dewiswch Tynnwch gelloedd â gwerthoedd unigryw (cynnwys y dyblyg cyntaf) oddi wrth y Dewiswch fromula blwch rhestr;
  • Yn y dde Mewnbwn dadleuon adran, dewiswch restr o gelloedd rydych chi am dynnu gwerthoedd unigryw.

4. Yna cliciwch Ok botwm, a llusgwch y ddolen llenwi i'r celloedd rydych chi am restru'r holl werthoedd unigryw nes bod celloedd gwag yn cael eu harddangos, gweler y screenshot:

Lawrlwytho Am Ddim Kutools ar gyfer Excel Nawr!


Erthyglau mwy cymharol:

  • Cyfrif Nifer y Gwerthoedd Unigryw ac Unigryw O Restr
  • Gan dybio, mae gennych chi restr hir o werthoedd gyda rhai eitemau dyblyg, nawr, rydych chi am gyfrif nifer y gwerthoedd unigryw (y gwerthoedd sy'n ymddangos yn y rhestr unwaith yn unig) neu werthoedd penodol (pob gwerth gwahanol yn y rhestr, mae'n golygu unigryw gwerthoedd + gwerthoedd dyblyg 1af) mewn colofn fel y dangosir y llun chwith. Yr erthygl hon, byddaf yn siarad am sut i ddelio â'r swydd hon yn Excel.
  • Detholiad Gwerthoedd Unigryw Yn Seiliedig ar Feini Prawf Yn Excel
  • Gan dybio, mae gennych yr ystod ddata ganlynol yr ydych am ei rhestru dim ond enwau unigryw colofn B yn seiliedig ar faen prawf penodol yng ngholofn A i gael y canlyniad fel y dangosir isod y screenshot. Sut allech chi ddelio â'r dasg hon yn Excel yn gyflym ac yn hawdd?
  • Dim ond Caniatáu Gwerthoedd Unigryw Yn Excel
  • Os ydych chi am gadw gwerthoedd unigryw yn unig sy'n mynd i mewn i golofn o daflen waith ac atal y dyblygu, bydd yr erthygl hon yn cyflwyno rhai triciau cyflym i chi ddelio â'r dasg hon.
  • Swm Gwerthoedd Unigryw Yn Seiliedig ar Feini Prawf Yn Excel
  • Er enghraifft, mae gen i ystod o ddata sy'n cynnwys colofnau Enw a Threfn, nawr, i grynhoi gwerthoedd unigryw yn unig yng ngholofn y Gorchymyn yn seiliedig ar y golofn Enw fel y screenshot canlynol a ddangosir. Sut i ddatrys y dasg hon yn gyflym ac yn hawdd Yn Excel?

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (29)
Wedi graddio 5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is this formula complete? =INDIRECT(TEXT(MIN(IF(($A$2:$C$9"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&"",
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw hyn yn sefydlog eto :trist:
Lleihawyd y sylw hwn gan y safonwr ar y wefan
am wastraff amser..... NID yw fformiwla yn gweithio
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch!!! Rwyf wedi bod yn treulio oriau yn ceisio gwneud hyn ac i ddarganfod beth ddigwyddodd i'r Dewin Pivot (erthygl arall).
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio'ch cod VBA, ond nid wyf am i'r blwch ymddangos. Yn hytrach, rwyf am ddiffinio'n union pa amrediad celloedd i'w ddefnyddio bob tro ac yn union pa flwch i roi'r allbwn ynddo. Byddai'r amrediad mewnbwn a'r allbwn ar ddwy ddalen wahanol. sut ydw i'n diweddaru'r VBA i wneud hynny? Diolch!!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hei! A oes unrhyw un yn gwybod pam mae'n ymddangos bod y fformiwla hon yn arwain at gamgymeriad ar ôl rhes 87? Fel, mae'n gweithio'n berffaith ac yna ar adeg benodol mae'n dychwelyd gwallau i mi ar gyfer pob rhes .. sef y gwaethaf! Achos rydw i mor agos at yr union beth sydd ei angen arnaf yma...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
=INDIRECT(TEXT(MIN(IF(($A$2:$C$9"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&"" It doesn't work
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, rydw i eisiau tynnu celloedd unigryw o'r golofn gyntaf pan fyddaf yn ei gymharu â cholofn arall (mae gen i dair colofn anghyfartal), sut alla i ei wneud?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo mae gennyf dair colofn anghyfartal ac rwyf am echdynnu celloedd unigryw y golofn gyntaf. sut alla i ei wneud ?? Diolch ymlaen llaw
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n caru

Echdynnu Gwerthoedd Unigryw O Golofnau Lluosog Gyda Thabl Colyn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A allwch chi gyflwyno'r fformiwla gywir os gwelwch yn dda... mae swyddogaeth VBA yn gweithio'n iawn.
Dim ond ar gyfer fy mhrosiect, mae'n well gen i ddefnyddio'r fformiwla gywir.


diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a oes unrhyw un yn gwybod, ar gyfer yr allbwn, sut i'w wneud yn sawl llinell ond nid yn un llinell? (ar hyn o bryd mae un canlyniad llinell yn cael ei gyflawni gan worksheetfunction.transpose, ond yr hyn yr wyf am ei gyflawni (o ganlyniad) yw pan ddewisir ar gyfer 3 colofn, mae'r canlyniad a ddychwelwyd hefyd yn 3 colofn, yn hytrach un
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r fformiwla arae hon yn GYWIR. Data mewn colofnau A i C, fformiwla canlyniad cyntaf yng nghell D2... Mae'r un hon yn wahanol i fformiwla arae arall y mae'r olaf yn cael ei chopïo'r fformiwla i lawr a Ctrl+Shift+Rhowch y fformiwla i gyd. Fodd bynnag, dylid gwneud y fformiwla arae hon gyda'r Ctrl + Shift + Enter yn y gell gyntaf a chopïo i lawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch yn fawr am y macro!!! mi fue muy util
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi addasu i fy nhaflen ond dim ond y gwerth cyntaf yn yr arae diffiniedig yr wyf yn dychwelyd ... beth ydw i ar goll?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Cody,
Mae'r fformiwla uchod yn gweithio'n dda yn fy nhaflen waith, a allech chi roi screenshot o'ch problem data yma?
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
O ran fersiwn y fformiwla, a allech chi egluro'n fanylach beth mae'r gyfran hon yn ei wneud? *100+COLUMN($A:$C),7^8)),"R0C00") Yn benodol, beth yw'r * 100, 7 ^ 8, a "R0C000" gwneud? Rwy'n deall popeth arall, ond ni allaf ddarganfod beth yw pwrpas y rhain.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ychydig yn hwyr ar gyfer fy ymateb yma ond...
ROW($2:$9)*100 - mae hyn yn lluosi rhif y rhes *100, felly os yw yn rhes 5, y rhif nawr yw 500
COLUMN ($A:$C) - mae hwn yn cael ei ychwanegu at y rhif rhes * 100, felly os mai rhes 5 col 2 ydyw, yna 502 yw'r rhif.
7^8)), - mae hyn (rwy'n meddwl) i gael gwerth mwyaf ar gyfer y datganiad min o gynharach.
"R0C00") - mae hyn yn fformatio'r testun yn seiliedig ar y rhif. Yn yr enghraifft, roedd gennym 502 felly mae hyn yn rhoi R5C02 (rhes 5, col 02).

Os oes gennych chi lawer o golofnau ond dim llawer o resi, yna fe allech chi ei newid i ROW($2:$9)*1000+COLUMN($A:$C),7^8)),"R0C000")
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am y cod. Rwy'n defnyddio cod VBA y dudalen hon. A oes ffordd i ychwanegu cod didoli ar ôl i'r gwerthoedd unigryw gael eu tynnu fel ei fod yn ei ddidoli'n awtomatig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
gallwn greu swyddogaeth uniqdata yn lle macro?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, İlhan,Os ydych chi'n hoffi Swyddogaeth a Ddiffiniwyd gan Ddefnyddiwr i greu fformiwla ar gyfer datrys y broblem hon, efallai y bydd y cod isod yn eich helpu chi: Ar ôl mewnosod y cod, dewiswch restr o gelloedd lle rydych chi am roi'r canlyniadau. Yna teipiwch y fformiwla hon:=Unigrywiau(A1:C4)  yn y bar fformiwla.Press Ctrl + Shift + Enter allweddi gyda'i gilydd. 


Function Uniques(ByVal inputRange As Range)
Dim inputArray As Variant
Dim myColl As New Collection
Dim xVal As Variant
Dim outArray() As Variant
On Error Resume Next
With inputRange
inputArray = Application.Intersect(.Cells, .Parent.UsedRange).Value
End With
On Error GoTo 0
On Error Resume Next
For Each xVal In inputArray
myColl.*** Item:=xVal, Key:=(CStr(xVal) & TypeName(xVal))
Next xVal
myColl.Remove "String"
On Error GoTo 0
ReDim outArray(1 To Application.Max(myColl.Count, Application.Caller.Cells.Count))
For xVal = 1 To UBound(outArray)
outArray(xVal) = vbNullString
Next xVal
For xVal = 1 To Application.Min(myColl.Count, Application.Caller.Cells.Count)
outArray(xVal) = myColl(xVal)
Next xVal
If Application.Caller.Columns.Count = 1 Then
Uniques = Application.Transpose(outArray)
Else
Uniques = outArray
End If
End Function
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ystyr geiriau: Czy i żart?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r fformiwla arae ar y brig yn gweithio'n wych pan gaiff ei ddefnyddio gyda data yn yr un ddalen, fodd bynnag pan fyddaf yn ceisio ei ddefnyddio i gyfeirio at yr un union ddata o ddalen arall nid yw'r fformiwla yn dychwelyd dim. Ni allaf ddarganfod pam. A oes cyfyngiad ar swyddogaethau arae sy'n eich atal rhag cyfeirio at ystodau mewn dalen wahanol?

Diolch am unrhyw fewnwelediad y gallwch ei ddarparu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Erin,

Falch i helpu. Mae'r swyddogaeth INDIRECT yn y fformiwla hon yn fwy cymhleth i'w defnyddio wrth gyfeirio at ddata mewn taflenni gwaith eraill. Ni argymhellir defnyddio'r nodwedd hon wrth gyfeirio at ystodau mewn gwahanol daflenni gwaith.

Er enghraifft: Nawr bod y data yn Nhaflen 1, rwyf am gyfeirio at gynnwys cell C2 o Daflen1 yn Nhaflen2. Yn gyntaf, mewn unrhyw ddwy gell yn Nhaflen 2, megis D1 a D2, rhowch Daflen 1 a C2, yn y drefn honno. Ar y pwynt hwn, nodwch y fformiwla yng nghell wag Sheet2:
=INDIRECT ("'"&D1&"'!"&D2), yna gellir dychwelyd cynnwys cell C2 yn Nhaflen1.

Fel y gallwch weld, mae'n gwneud pethau'n llawer mwy cymhleth. Gobeithio y gall fy esboniad helpu. Cael diwrnod braf.

Yn gywir,
Mandy
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Syr! Gweithiodd y VBA ryfeddodau, diolch yn fawr iawn am hynny! Roeddwn i'n meddwl, Os byddaf yn newid y data gwreiddiol, a yw'n bosibl adnewyddu'r golofn gyda'r gwerthoedd unigryw yn awtomatig?
Wedi graddio 5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ioannis,

Falch i helpu. Ar ôl i chi newid y data gwreiddiol, ni all y VBA adnewyddu'r canlyniad yn awtomatig. A'r ffordd hawsaf y gallaf feddwl yw pwyso Ctrl + Alt + F9 i adnewyddu'r holl ganlyniadau mewn taflenni gwaith ym mhob llyfr gwaith agored. Cael diwrnod braf.

Yn gywir,
Mandy
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch am yr erthygl wych hon.

Ar gyfer pobl sy'n defnyddio'r fformiwlar arae mewn Excel nad yw'n Saesneg rhaid cymryd gofal arbennig o'r llinyn fformat testun: yn eich enghraifft: "R0C00".
Ar gyfer Almaeneg byddai hyn yn cyfieithu i "Z0S00". Fodd bynnag, mae "S" yn gymeriad arbennig sy'n cyfeirio at eiliadau ar gyfer fformatio amser. Mae angen dianc rhag y nod hwn ac felly y llinyn fformat cywir ar gyfer Almaeneg Excel yw "Z0\S00".

Gobeithio bod hyn yn helpu rhywun yn y dyfodol :-)
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir