Vstavljanje vrstic v excel tabeli

Pomoč pri delu z MS Excelom
Odgovori
Lili
Prispevkov: 11
Pridružen: So Feb 12, 2011 1:12 am

Vstavljanje vrstic v excel tabeli

Odgovor Napisal/-a Lili »

Zdravo,

Imam obsežno tabelo (10 stolpcev, 5000 vrst) želela bi vstaviti vrstice in sicer tako, da je vsaka druga prazna.(polna, prazna, polna prazna....). nato pa bi v prazne celice vstavila formulo, ki pa bi se morala ponoviti v vseh na novo vstavljenih vrsticah. Seveda nebi to vstavljala po "dolgi poti", kako to narediti v parih korakih, če seveda gre.
Že vnaprej hvala za pomoč
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Re: Vstavljanje vrstic v excel tabeli

Odgovor Napisal/-a admin »

Pozdravljeni,

Kaj takšnega pa Excel seveda po privzetem ne zna. Lahko bi sicer to dosegli tako da bi s pomočjo Index funckije vse podatke prenesli na drug list, a seveda je edina smiselna rešitev za kaj takšnega makro. Spodaj vam prilagam makro, ki vam bo vrinil vsako drugo vrstico...

Koda: Izberi vse

'
'  www.matjazev.net
'   november 2011
'
Sub VstaviPrazneVrstice()
  Dim r As Long
  
  Application.ScreenUpdating = False
    For r = 5000 To 2 Step -1
      Rows(r).Insert Shift:=xlDown
    Next
  Application.ScreenUpdating = True
End Sub
Glede formule je pa večji problem - saj je odvisno kaj točno želite. Recimo spodnji makro vam v vsako prazno vrstico pač vstavi formulo za seštevek celic nad njo...

Koda: Izberi vse

'
'  www.matjazev.net
'   november 2011
'
Sub VstaviPrazneVrsticeSFormulo()
  Dim r As Long
  
  Application.ScreenUpdating = False
    For r = 5000 To 2 Step -1
      Rows(r).Insert Shift:=xlDown
      Range(Cells(r, 1), Cells(r, 10)).FormulaR1C1 = "=SUM(R[-1]C:R[-1]C[9])"
    Next
  Application.ScreenUpdating = True
End Sub
lp,
Matjaž Prtenjak
Administrator
Lili
Prispevkov: 11
Pridružen: So Feb 12, 2011 1:12 am

Re: Vstavljanje vrstic v excel tabeli

Odgovor Napisal/-a Lili »

Zdravo,

hvala za odgovor bom poskusil, upam, da mi bo uspelo.
LPL
Odgovori