fhansen82 Juniormester
17. juni 2017 - 22:00 Der er 6 kommentarer og
1 løsning

Automatisk udfyldelse af unikke værdier i et område

I mit ark, har jeg et område, som består af flettede celler på tværs og x antal rækker som ikke er flettede. I dette område indtastes værdier som kan være ens.
Et andet sted i ark har jeg et område, som består af flettede celler på tværs og x antal rækker som ikke er flettede, hvor unikke forekomster af disse automatisk skal indsættes.

Kan dette lade sig gøre uden brug af VBA?

Mvh

Frank
jkrons Professor
17. juni 2017 - 23:34 #1
Hvordan definerer du en unik værdi? Hvis du fx har tallene 1, 2, 3, 1 er det så kan kun 2og 3, der skal overføres, eller skal 1 med en enkelt gang, selv om tallet ikke er unikt?
fhansen82 Juniormester
18. juni 2017 - 19:56 #2
Der har jeg ikke været skarp nok. Hvis der f.eks. fremgår 1,2,3,1,4,4, så skal der i listen fremgå 1,2,3,4.

Mvh

Frank
jkrons Professor
18. juni 2017 - 23:19 #3
Hvis du har dine data i de uflettede rækker i A-kolonnen og det nye område i c-kolonnen, så indsæt formler af typen =A2, =A3 og så fremdeles i C-kolonnen. Så fpr du to ideintiske kolonner. Makrer så C-kolonnen og brug funktionen Fjern dubletter under Dataværktøjer.

Hvis det skal ske helt automatisk hver gang du taster noget nyt, er der nok ingen vej uden om VBA.
jkrons Professor
18. juni 2017 - 23:43 #4
Det kan faktisk godt lade sig gøre at lave noget, der ligner, selv om det ikke er elegant.

Antag, at du har dine data i A2:A20, og vil have listen til at stå i B2:B20.

Indsæt denne formel som en matrixformel i B2

=INDEKS($A$2:$A$20; SAMMENLIGN(0; TÆL.HVIS($B$1:B1;$A$2:$A$20); 0))

Husk at matrixformler oprettes ved at afslutte mede Ctrl+Shift+Enter.

Kopier nedad. Ret selv områderne til de relevante. Hvis du endnu ikke har tal ikke alle cellerne i A-kolonnen, vil B-kolonnen give I/T ud for de udbrugte rækker.

Dette kan løses ved at ændre formlen til

=HVIS(ER.IKKE.TILGÆNGELIG(INDEKS($A$2:$A$20; SAMMENLIGN(0; TÆL.HVIS($B$1:B1;$A$2:$A$20); 0)));"";INDEKS($A$2:$A$20; SAMMENLIGN(0; TÆL.HVIS($B$1:B1;$A$2:$A$20); 0)))

Den sidste celle i B-kolonnen vil være et 0 indtil alle rækker i A-kolonnen er udfyldt.
fhansen82 Juniormester
19. juni 2017 - 22:27 #5
Hey

Excel siger at matrix formler ikke fungerer over flettede celler :( Det er selvom jeg kun har angivet den første celle i den flettede mængde, som indeholder data.

Mvh

Frank
jkrons Professor
20. juni 2017 - 23:18 #6
Det er korrekt. Det vil ikke virke
, hvis der også skal skrives i de flettede celler. Hvis det er tilfældet kommer du ikke uden om VBA.

I så fald er det vigtigt at huske at VBA opfatter de flettede celler som et område, bestående af de oprindelige. Har du fx flettet A1, B1 og C1, skal de i VBA refererss som Range("A1:C1")
fhansen82 Juniormester
22. juni 2017 - 21:19 #7
Tak for svaret. Så må jeg i gang med at flette noget sammen :)

Mvh

Frank
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Fire gange større end næststørste leverandør: Offentlige indkøbere bør følge Ateas dominerende markedsposition tæt
Atea er fire gange større end den næststørste hardware-leverandør til det offentlige. Situationen skal følges skarpt af offentlige indkøbsorganisationer, så det ikke ender med dårlig konkurrence, lyder opråbet.
Computerworld
Få mere fra hånden med det nye Gmail: Her er de første billeder af Googles nye mail-satsning
Google vil gøre Gmail enklere og mere produktiv i de kommende uger. Se hvordan det nye Gmail tager sig ud her.
CIO
Allersidste opdatering på vej: Om en uge er det slut med stor-version af Windows 10 - skynd dig at opdatere
Om en uge er det slut for altid med den første store udgave af Windows 10, som Microsoft efter 29 måneder ikke længere vil supportere.
Job & Karriere
Klassiske brokere af it-konsulenter står over for kæmpe udfordring - forretningsmodellen er under pres
Klumme: Eksterne konsulenter er populære og en god løsning i en branche i vækst. Men selve forretningsmodellen bag it-konsulenterne er under alvorligt pres.
White paper
Sådan vælger du business intelligence-løsning
I dette whitepaper undersøger vi, hvilke faktorer du skal være opmærksom på, når du vælger din kommende BI-løsning