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č
Vstavljanje vrstic v excel tabeli
Re: Vstavljanje vrstic v excel tabeli
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...
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...
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
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
Matjaž Prtenjak
Administrator
Re: Vstavljanje vrstic v excel tabeli
Zdravo,
hvala za odgovor bom poskusil, upam, da mi bo uspelo.
LPL
hvala za odgovor bom poskusil, upam, da mi bo uspelo.
LPL