19. juni 2012 - 17:43Der er
6 kommentarer og 1 løsning
Indsætte tomme celler mellem data
Hej alle
Dette er mit første spørgsmål herinde. Jeg har på mit arbejde to lister, som skal sættes op ved siden af hinanden. Problemet er at der i den ene liste står tal i hver eneste række mens den anden kun indeholder tal i hver tredje. Jeg ønsker derfor at indsætte to tomme celler efter hver række med data i den første liste, så de to passer sammen.
Jeg er klar over hvordan det gøres manuelt, men da det vil være et uendelig stort arbejde, håber jeg på lidt hjælp her. Det bør nævnes at jeg arbejder i Excel 2003.
Indsæt denne kode under det relevante ark (Højreklik på arket / Vis programkode)
og så velkommen til Eksperten..
Sub indsætTommeCeller() Dim ræk As Long For ræk = 2 To 65000 Step 3 Cells(ræk, 1).Select If ActiveCell <> "" Then Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Else Exit Sub End If Next ræk End Sub
Hej igen jeg var lige hurtig nok til at lukke tråden. Din løsning fungerer for de første 260 rækker samt for den sidste celle i kolonnen men ikke for resten af dokumentet, hvor der kun engang i mellem er et enkelt mellemrum. Håber der er lidt mere hjælp at hente. På forhånd tak
Okay jeg må gøre noget forkert så. Klikker på 'vis programkode', sætter koden ind i det vindue der åbner og trykker kør?
Jeg må prøve mig lidt frem.
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.
