09. november 2010 - 08:13Der er
3 kommentarer og 1 løsning
Sammenligning af kolonner og tilretning af celler
Hej eksperter
Jeg har en lille excel udfordring, som jeg håber, der en nogen herinde, der kan hjælpe mig med. Jeg har haft gang i søge-funktionaliteten, men det er ikke lykkedes mig at finde noget brugbart!
Jeg har et ark med to kolonner. Disse to kolonner skal sammenlignes og justeres, således celleværdierne matcher på rækkeniveau. Forklares sikkert bedst med et eksempel.
Dette er udgangspunktet: A B 1 1 3 2 4 3 5 4 7 6
I den enkelte kolonne er hver værdi unik, og kolonnen er sorteret stigende.
Efter sammenligning og justering, vil jeg gerne have dette resultat: A B 1 1 2 3 3 4 4 5 6 7
Dvs. at såfremt der ikke er en matchende værdi i den anden kolonne, så skal alle nedenstående celle rykkes, og der skal blot være en tom celle udfor. Håber det giver mening og at der er nogen der kan hjælpe.
Tak for forslaget, men jeg kan ikke helt se, hvordan det kan virke? Måske er det fordi, at formateringen er røget, at det er svært at se, men det jeg er efter kræver, at der bliver rykket på cellerne i den enkelte kolonne. Hvis 1 står i begge kolonner, så skal de stå ud for hinanden, men hvis 2 kun findes i kolonne B, så skal alle cellerne i kolonne A rykke ned, så der bliver en tom celle ud for 2 tallet i kolonne B.
Sub tst() antal = WorksheetFunction.Max(Range("A1:B1000")) For t = 1 To antal If Cells(t, 1) <> t Then Cells(t, 1).Insert Shift:=xlDown If Cells(t, 2) <> t Then Cells(t, 2).Insert Shift:=xlDown Next For t = antal To 1 Step -1 If Cells(t, 1) = "" And Cells(t, 2) = "" Then Range("A" & t & ":B" & t).Delete Shift:=xlUp Next End Sub
Det hele endte med en noget manuel løsningen. Takker for forsøgene, men det kunne ikke rigtig bruges.
Mvh. Efes
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
