Søg
Avatar billede rodding Juniormester
21. september 2005 - 15:45 Der er 3 kommentarer og
1 løsning

Macro - indsæt rækker og kolonner

Jeg skal bruge en macro der starter med at indsætte 4 kolonner efter kolonne D (hvid baggrund).

Dernæst skal der indsættes 2 rækker efter hver af de rækker der findes i arket, startende med række 4. Rækkerne skal være en kopi af den foranstående række.
Efter indsættelsen af  2 rækker skal de nu tre enslydende rækker i kolonne E (den første af de nyindsatte kolonner)  navngives med teksterne: sm1, sm2 og sm3.
Altså

Række 4 kolonne E = sm1  (gammel række)
Række 5 kolonne E = sm2
Række 6 kolonne E = sm3
Række 7 kolonne E = sm1  (gammel række)
Række 8 kolonne E = sm2
Række 9 kolonne E = sm3
o.s.v.
..
..
Avatar billede kabbak Professor
21. september 2005 - 19:54 #1
Sub InsertColAndRows()
l = Range("A65536").End(xlUp).Row
Columns("E:H").Insert Shift:=xlToRight
For I = l To 2 Step -1
    Rows(I & ":" & I).Copy
    Rows(I + 1 & ":" & I + 2).Insert Shift:=xlDown
   
    Cells(I, "E") = "sm1"
    Cells(I + 1, "E") = "sm2"
    Cells(I + 2, "E") = "sm3"
  Next
End Sub
Avatar billede kabbak Professor
21. september 2005 - 19:55 #2
Sub InsertColAndRows()
l = Range("A65536").End(xlUp).Row
Columns("E:H").Insert Shift:=xlToRight
For I = l To 4 Step -1 ' rettede til række 4
    Rows(I & ":" & I).Copy
    Rows(I + 1 & ":" & I + 2).Insert Shift:=xlDown
   
    Cells(I, "E") = "sm1"
    Cells(I + 1, "E") = "sm2"
    Cells(I + 2, "E") = "sm3"
  Next
End Sub
Avatar billede rodding Juniormester
22. september 2005 - 09:55 #3
Lige i øjet, tak for det.

Læg et svar
Avatar billede kabbak Professor
22. september 2005 - 12:03 #4
et svar ;-))
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Ændre tal i en celle Af xvid i Excel 1 04/09/202616:05 04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel 7 31/08/202610:24 04/09/202602:08
problem med mailbesked Af Pestilensen i Excel 3 24/08/202611:16 28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel 18 17/08/202615:14 05/09/202622:04
Gemme største værdi Af Lemming@privat.dk i Excel 2 07/08/202622:13 08/08/202609:03
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 21:00 Libre Office Impress Af Frank i Andre styresystemer
I går 11:47 VB script Af Jenshentze i Word
I går 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel
White papers
Flere white papers »