Markera dubbletter i Microsoft Excel-kalkylblad med FormatConditions fastigheten . Den FormatConditions egenskapen kan du utföra olika villkorsstyrd formatering uppgifter, inklusive lyfta dubblettvärden . Gå till VBA -kod i Microsoft Excel -gränssnittet för att använda den här egenskapen för att utföra en uppgift . Dubblettvärden
Du kanske vill identifiera dina dubbletter att ta bort , redigera eller analysera dem . Om du markerar dubbletter , kan du använda en kolumn filter för att visa bara de poster . Dubblerade värden kan vara ett problem om du upplever dataredundans . Dataredundans visar mindre viktig information och kan leda till förvirring , oordning och långsam databehandling hastighet . Markera dina dubbla värden för att effektivisera ditt Excel-ark och skapa ett mer användarvänligt gränssnitt . Addera VBA Fönster
ställa in formatet villkoren och markera duplicerade värden från Visual Basic for Applications fönster från Microsoft Excel . Öppna VBA fönstret genom att klicka på " Visual Basic " knappen från " Utvecklare " fliken i menyfliksområdet . Om du inte ser " Utvecklare " fliken , klicka på " File ", " Options ", " Anpassa menyfliksområdet " och välj sedan " Utvecklare " från huvudflikar listan . I VBA fönstret , öppna lämplig arket genom att dubbelklicka på titeln från " Microsoft Excel Objects " rutan .
FormatConditions
Microsoft Excel innehåller den FormatConditions fastigheten i VBA alternativen . Den FormatConditions egenskapen kan du ställa in villkorsstyrd formatering på din datamängd . Till exempel , om du vill att alla negativa värden i ett dataområde ska visas med röd text och alla positiva värden för att visa med grön text , kan du ställa in villkorsstyrd formatering för att göra den förändringen . Denna process gör att du kan automatisera funktioner i stället för manuellt ändrar datamängden .
Höjdpunkt dubbletter
Markera dubbletter i din datauppsättning med VBA egendom FormatConditions . Mata in följande kod på din kod fönster :
Sub FormatConditions ( ) Dim RNG Som RangeSet RNG = Range ( " A1 : A7 " ) Set uv = rng.FormatConditions.AddUniqueValuesuv.DupeUnique = xlDuplicateuv.Interior.Color = vbYellowEnd Sub
Ändra cellparametrar inom " Range ( " A1 : A7 " ) " till din specifika dataområdet . Klicka på " Kör " -ikonen längst upp på skärmen för att testa din kod .