Sub Vzorec_od_poslednej_vyplnenej() Range("B50000").End(xlDown).Select 'skok na absol.poslednu Selection.End(xlUp).Select 'skok na poslednu vyplnenu ActiveCell.Offset(0, 3).Select 'skok na bunku, kde bude vzorec ActiveCell.FormulaR1C1 = "=SUM(RC[-3]:RC[-1])" 'urob vzorec (tip: nahratie makra) ActiveCell.Copy 'kopia vzorca Range(Selection, Selection.End(xlUp).Offset(1, 0)).Select 'oznac oblast po druhy riadok ActiveSheet.Paste 'kopiruj vzorec Application.CutCopyMode = False End Sub
Excel VBA - pridanie stlpca a vzorca