08. juli 2008 - 09:28Der er
4 kommentarer og 1 løsning
VBA - indsæt/kopiér rækker
Jeg har et budget liggende i et regnark med kunder i kolonne A og omsætning i kolonne B. Jeg ønsker nu at opdele omsætningen pr. kunde på måneder, så jeg efterfølgende kan trække budgettet ind i en pivot-tabel.
Jeg skal derfor bruge en makro, som laver 12 ens rækker ud af hver enkelt række - altså indsætter 11 nye rækker og kopierer den øverste ned til de 11 nye. Efterfølgende skal der så sættes månedsangivelse på i kolonne C, men det finder jeg selv ud af.
Sub TST() r = Selection.Row: r2 = Selection.Rows.Count For t = r2 + 1 To r + 1 Step -1 Cells(t, 1).Resize(11, 1).EntireRow.Insert Next r2 = Cells(65500, 1).End(xlUp).Row For t = r To r2 Step 12 Range("A" & t & ":B" & t).AutoFill Destination:=Range("A" & t & ":B" & t + 11), Type:=xlFillCopy Next End Sub
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.