Ymhlith yr offer safonol Microsoft Excel, mae yna lawer o wahanol ffyrdd o amlygu copïau dyblyg â lliw. Y ffordd hawsaf a chyflymaf yw fformatio amodol. I wneud hyn, dewiswch ystod o gelloedd a dewiswch ar y tab Cartref — Fformatio Amodol — Rheolau Dewis Cell — Gwerthoedd Dyblyg (Cartref - Fformatio Amodol - Amlygu Rheolau Celloedd - Gwerthoedd Dyblyg):
Fodd bynnag, yn yr achos hwn, bydd lliw llenwi'r holl gelloedd yr un fath, hy mae'n dangos yn syml bod yr elfen wedi dyblygu rhywle arall yn yr ystod, ond nid yw'n gwneud dim i helpu i ddod o hyd iddynt. Gallwch chi atgyweirio'r sefyllfa gyda macro bach a fydd yn llenwi pob pâr (neu fwy) o ddyblygiadau ailadroddus gyda'i liw ei hun:
Cymaint cliriach, iawn? Wrth gwrs, gyda nifer fawr o gelloedd yn ailadrodd, bydd yn anodd gwahaniaethu rhwng arlliwiau, ond gyda nifer gymharol fach o ddyblygiadau, bydd y dull hwn yn gweithio'n berffaith.
I ddefnyddio'r macro hwn, pwyswch y llwybr byr bysellfwrdd Alt + F11 neu botwm Visual Basic tab Datblygwr, mewnosod modiwl gwag newydd trwy'r ddewislen Mewnosod – Modiwl a chopïwch god y macro hwn yno:
Sub DuplicatesColoring() Dim Dupes() 'Datgan arae i storio dyblygiadau ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Dileu'r llenwad os i = 3 Ar gyfer Pob cell Mewn Dewis Os Taflen WaithFunction.CountIf(Selection, cell.Value) > 1 Yna Ar gyfer k = LBound(Dupes) I UBound(Dupes) 'os yw'r gell eisoes yn y gyfres o ddyblygiadau, llenwch If Dupes(k, 1) = cell Yna cell.Interior. ColorIndex = Dupes(k, 2) Nesaf k 'os yw'r gell yn cynnwys dyblyg, ond heb fod yn yr arae eto, ychwanegwch ef at yr arae a'i llenwi Os cell.Interior.ColorIndex = -4142 Yna cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 Diwedd Os Diwedd Os Diwedd cell Nesaf Diwedd Is
Nawr gallwch ddewis unrhyw ystod gyda data ar y ddalen a rhedeg ein macro gan ddefnyddio'r llwybr byr bysellfwrdd Alt + F8 neu drwy'r botwm Macros (Macros) tab datblygwr (Datblygwr).
- Amlygu dyblygu gyda lliw
- Beth yw macros, ble i fewnosod cod macro yn Visual Basic, sut i'w rhedeg
- Sut i gyfrif nifer y gwerthoedd unigryw mewn ystod benodol o gelloedd